还是关于超级连接的问题！！！！！！！！！！

Question

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) As Long
'以下是打开网址,写入相应事件中
Dim b As Variant
     b = ShellExecute(Me.hwnd, vbNullString, "http://www.sina.com.cn", vbNullString, vbNullString, 1)

Answer 1

先将某一行的Web链接地址获取，再用API函数ShellExecute，来执行即可

Answer 2

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) As Long
'以下是打开网址,写入相应事件中
Dim b As Variant
    b = ShellExecute(Me.hwnd, vbNullString, "http://www.wzjcw.net/vbgood/taishan/index.html", vbNullString, vbNullString, 1)把"http://www.wzjcw.net/vbgood/taishan/index.html"换成DBGrid1.Text