asked on

Events for a label

I want to have a VB6 label control function like a hyperlink. When the user moves the mouse over the lavbel, I want to change the mouse pointer. When they click on it, I will, in code, direct them to a page in a browser. When the user moves the mouse pointer out from over the label, I want to change the pointer back to the default.

Unfortunately, the label control only has a mousemove event (I can use that to determine when the control gets focus) but no way of determining when focus is lost. Any ideas???

Doug

ASKER CERTIFIED SOLUTION

jmundsack

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

D B

ASKER

I can do that on MouseMove event because then I know the label has focus. But, I want to change it back to the default pointer when the label loses focus. There is no event that I am aware of that lets me know when that happens. If I move off the control, I just never call the mousemove event again. The only other option I know off is to use the mouse move events of the other controls around the label to reset the pointer to normal. I would rather do it all within the label control iteslf.

Mike Tomlinson

One way:
http://www.ftponline.com/archives/premier/mgznarch/VBPJ/1999/08aug99/ap0899.pdf

Guy Hengel [angelIII / a3]

You only need to set the properties jmundsack describes at design time. the mouse pointer will change automatically, no need to code anything.

vb_elmar

Needs :
=====
1 Label

Const URL = "whatismyip.com"

Private Sub Form_Load()
With Label1
.Font = "arial"
.FontSize = 12
.FontUnderline = True
.Caption = URL
.Width = 2000
End With
End Sub

Public Sub gotoweb(ByVal myURL As String)
Dim Success As Long
Shell "C:\Programme\Internet Explorer\IEXPLORE.EXE " & myURL, vbNormalFocus
End Sub

Private Sub Label1_Click()
gotoweb URL
End Sub

D B

ASKER

DUH! I left my brain at home this morning :-(