Pedro Paulo
não registrado
|
|
Postada em 22/06/2004 10:32 hs
Bom dia! Como fazer, no VB, para atribuir a um label uma propriedade do tipo <hyperlink>, onde o nome muda de cor e fica sublinhado, enquanto o ponteiro do mouse se transforma num ícone de mãozinha? 'brigado. |
|
|
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 22/06/2004 10:46 hs
Private Sub Form_Load()
Label1.Caption = "http://www.vbweb.com.br"End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Font.Underline = False
Label1.ForeColor = &H0&
End Sub
Private Sub Label1_Click()
Call Shell("Explorer " & Label1.Caption, vbMaximizedFocus)
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Font.Underline = True
Label1.ForeColor = &HFF0000
End Sub Ou esta ocx. |
|
|
|
|
