如何在vb的form上加超连接？

Question

put a labe on the form as follow
font:underline;
cusor: handle;
OnMouseClick: ShellExecute(...);

Answer 1

用VB太容易啦,一个标签控件,响应单击事件,调用ShellExecute就行了

Answer 2

没有这么简单，首先Label无法得知MouseMoveIn和MouseMoveOut，其次hand.cur在哪里？看看VB自带的光标有何时的吗？最好的方法是用PictureBox，分别做两张图片，放到资源文件中，然后再在Picture的MouseMove中判断是MoveIn还是MoveOut，分别Load不同的Picture.至于hand光标，强烈建议下载Iconbook软件，里面的图标和光标一辈子用不完。www.2beesoft.com

Answer 3

先声名ShellExecute：
'************[ Functions ]********************************
'#If Win32 Then
Public 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)
 
'【返回值】
        'Long，非零表示成功，零表示失败。会设置GetLastError
'【参数表】
        'hwnd -----------  Long，指定一个窗口的句柄，有时候，windows程序有必要在创
        '                        建自己的主窗口前显示一个消息框
        'lpOperation ----  String，指定字串“open”来打开lpFlie文档，或指定“Print”
        '                        来打印它
        'lpFile ---------  String，想用关联程序打印或打开一个程序名或文件名
        'lpParameters ---  String，如lpszFlie是可执行文件，则这个字串包含传递给执
        '                        行程序的参数
        'lpDirectory ----  String，想使用的完整路径
        'nShowCmd -------  Long，定义了如何显示启动程序的常数值。参考ShowWindow函
        '                        数的nCmdShow参数
'#End If 'WIN32
'**********<<[ EOF ]>>***********************************一个标签控件,响应单击事件,然后用
ShellExecute(Me.hwnd, "Open", "http://your.aaa.net", "", App.Path, 1)

Answer 4

用LABLE就可以了
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
Private Const WEB = "http://www.sohu.com"Private Sub Label1_Click()
    Dim HyperJump
    
    '建立超连接
    HyperJump = ShellExecute(0&, vbNullString, WEB, vbNullString, _
                vbNullString, vbNormalFocus)
End Sub