Search:

I declare the Rectangle API function:



Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long


I...

I get the same thing quite often. No idea why. Noticed if I made a change, like a comment for example, it would not occur again for that vbp

Got it to work.

OK, I got it to work.

You say gOnZo but do you mean gOnMo instead. This is not my code; I got it from fafalone. Anyway, they seem to work as is and I'm only using Check1

First, just to make it clear, I have never done any manifesting and I really don't know what the purpose is or how it works or even make a manifest file.

The manifest file that I have associated...

OK, it's time I put this project on the back shelf for now and start a new thread on manifesting. I'm playing around with your ManifestCreatorII so I'll see how far I get with that, :eek:

Yes, exactly as you posted it.




I don't think it's a flaw in the OCX. I tried my project on another PC (Windows 8.1) and I get same results



I'm using v5.82 of Comctl32 on XP

The same thing I got when I first started this project. I see where the Left and Right values are correct but those I always got in this Case statement



1 0
0 1306716 115 -1306715
...

That's what I thought it was but wasn't sure



During ITEMPREPAINT I get this



Left 345
Top -1207892936

Nope, none of that stuff made any difference. Same results as I pointed out in post 8

It didn't work in Case CDDS_ITEMPREPAINT so I put the Debug statements in CDDS_PREPAINT but I don't understand the results of the dump.

No matter which subitem I click on I always get the same...

Except for the Debug statements and two Case statements the entire project is the same as what fafalone posted in the other thread

Form code


Option Explicit

Private Sub Check1_Click()
If...

I don't know what code you're using to get those values but I'm using the same code as I posted above and here are the results of the Debug.Print in each of the three Case statements I get when I...

Based on the code I got from here I'm trying to move a border (made from a UC) around the selected sub-items of a ListView. As mentioned in a following post in the same thread I'm using nmcdr.nmcd.rc...

I got that nmcdr.nmcd.rc member and use it as nmcdr.nmcd.rc.Left and nmcdr.nmcd.rc.Top. Now the .Left comes very close to the left edge of the column but the .Top is like really wierd. .Top gives...

I'm playing around with the project from post #5 and I can move my border around the list view on the sub items but it is not exactly what I had in mind. What I don't know is how to capture the X and...

You forgot the UC

I made another UC using four Line Controls and that works out fine

OK, here's the project

I can't use the .Line function because I have to have the UC as transparent and that causes the .Line to not show; only if I make the UC BackStyle = Opaque will the .Line show

I'm putting a Shape Control on a User Control with following Properties

BackColor = White
BackStyle = Transparent
BorderColor = Black
BorderStyle = Solid
BorderWidth = 2
FillStyle =...

When you speak of wasteful on resources just how wasteful do you mean. Programs have textboxes all the time. I have written many programs with many textboxes; didn't seem to put a curse on them. In...

I decided the best way for me is to use a textbox. I can paste formatted text into the text property without any problems

Nope. I don't see the difference between .WordWrap = True or False. When you put a very long text line in a caption it always breaks at the end of the label's width anyway so what does WordWrap do....

I want to load a label's caption during design time with multiple lines. I have the multiple lines of text already in Notepad formatted out with line break codes but when I copy the entire text and...

OK, I got it now. I need to code this



Public Property Get hDC() As Long
hDC = UserControl.hDC
End Property


I should have known to do this when I started the thread since I did...

BitBlt Picture1.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, UserControl2.hDC, 0, 0, vbSrcCopy


I'm trying to BitBlt a picture from a User Control to Picture1 but I get error: Method or...

Couldn't you put the Image/Shape controls in a UC and use the hDC of the UC

Even though there are menus and sub menus I get 0


Dim AppHwnd As Long

AppHwnd = FindWindow(vbNullString, "Project1 - Microsoft Visual Basic [run]")
hMenubar = GetMenu(AppHwnd)
'
'

Private Sub cmdUnHook()
UnhookWindowsHookEx hHook
End Sub


Doesn't always work. hHook is correct value. After I click on button hooking continues on and other times hooking is stopped.

Yeah, I was wondering about that. I started out with mouse down but for some reason (now forgotten why/what:blush:) it was causing situations I didn't like so I changed it to mouse up and it made the...

So why do I get the same values each time I click on Command1 (snippet in post 14) even if I click on the sub menus then click on Command1 they're always the same values so that is telling me they do...

Also as I did more testing using the timer approach I noticed it does not return the correct handle of menu sub items.

I used the timer approach and I got the following results:

For the File...

That's really impressive, baka, simple and effective. So, is all this hooking stuff just a big hype

I see what you mean

Yes, that is magic. Any name you want as long as it is the last Private sub in the app.

I took your advise and made my own little app that captures mouseup. I just don't know how to use...

How does it know the callback name myHookProc

Also are you serious about this:

' //////////////// DO NOT ADD ANY NEW CODE FROM HERE TO THE END OF THE CODE PAGE \\\\\\\\\\\\\\\\\\\\

If so,...

I'm assuming you are referring to this one

I see I have to click on the button for each window. Can it be coded to click the button only once