Label1.hwnd ???

It doesn't exist, but is there a way around it???? I need that hwnd!!!

[kedaman]

You are absolutely right, there isn't a hwnd, and the reason is because there isnt'. In other words, a label doesn't have a hwnd.

In fact the caption is written directly on the form so there isn't a window to which it could have a handle

I know there is no hwnd for label. I'm asking if there is a way around it (I need to use the label in subclassing but without the hwnd it's not possible)

P.S. What with that caption????? What caption?????

[V(ery) Basic]

Why exactly do you need it for.

There are more than two ways to get deep pe...

I've said too much.

I need to create a mouse_in and mouse_out event. I did it with command button, picture box, form, frame etc. But all of them had the hwnd. I have a bunch of labels (a lot actually) and I need to create a mouse_in and out event. Without the hwnd - well it's not doable.

[HeSaidJoe]

Could you set the Label1.tag = 333
or whatever and access the label by its tag number?

He is using it for subclassing, I dont think you can use the Tag property in subclassing... unfortunatly

[parksie]

Make a usercontrol that acts like a label, but is a windowed control.

HeSaidJoe: Can't do. In my subclassing procedure I have something like this:

Select Case hwnd
Case frmMain.hwnd
Case frmOption.hwnd
Case frmMain.cmdAdd.hwnd
End Select

the hwnd is part of the subclassing (as far as I know you need to have hwnd to subclass unless I'm mistaken). So as you see I need that [beep] hwnd

[parksie]

The UserControl has the capability to export its hWnd.

[HeSaidJoe]

Don't know if it's of any use to you but I found this on
another site as an answer to finding the hwnd can't be found
'sample of mouse over mouse off

It might give you a spark or something and if not...just more useless code for your situtation.

[code]

Private Sub Form_Load()
Picture1.Height = 1
Picture1.Width = 1
End Sub

Private Sub Label1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
If State = 1 Then
lblmsg = "Mouse left label1"
Picture1.Drag 0
End If
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblmsg = "Mouse is over label1"
Picture1.Left = Label1.Left + X
Picture1.Top = Label1.Top + Y
Picture1.Drag
End Sub
[code]

[kedaman]

I think you could have a textbox to act like a label if you remove the borders, or ofcouse you could make a usercontrol for that

Why not just place it in a PictureBox?

[kedaman]

because it would take up more resource than a textbox would