vb小问题2

Question

没有！
在Label的Mouse_Move中自己设置颜色和下划线不久行了
再用API函数ShellExecute 如：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
    'DeityFox 2001
    'URL: http://www.dimsun.com/
    'E-Mail: [email protected]
    '发送信件
    ShellExecute Me.hwnd, vbNullString, "mailto:[email protected]",   vbNullString, "", SW_SHOWNORMAL
    '用默认的浏览器打开网页
    ShellExecute Me.hwnd, vbNullString, "www.csdn.net",   vbNullString, "", SW_SHOWNORMALEnd Sub

Answer 1

Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.ForeColor = RGB(200, 0, 0)
    Label1.FontUnderline = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.ForeColor = RGB(0, 0, 0)
    Label1.FontUnderline = False
End Sub