怎么在控件上做超级连接？？？

Question

Option Explicit
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 Sub Command1_Click()
Call ShellExecute(hwnd, "Open", "http://www.csdn.net", "", _
    App.Path, 1)
End Sub
这样写就可以了，可以把你的地址加到上面

Answer 1

你找找CSDN以前的帖子，有一样的问题。

Answer 2

不是加按钮，而是象显示一段文本当点击这段文本就调用ie或outlook 打开超连。
就象超级文本一样。

Answer 3

label有个mouseover和mouseclick事件，
  当mouseover发生时字体变红
  当mouseclick发生是用上面的shell就可以了~private sub label1_mouseover () 
  label1.font.color=vbred      '颜色可能写的不对，有点忘了，不是很经常用这个~
end subprivate sub label1_click ()
  shellexecute me.hwnd,"Open","http://www.csdn.net","",app.path,1 end sub
 

Answer 4

你就不会用个lable了吗，这事还得我教你吗，我只不过是给你举个例子而已，知道shellexecute怎么用就行了，好好看看

Answer 5

当然了，你还可以用自定义cursor，使鼠标到文本上面时候成为手的形状，这些都要你自己去写了，你想都让别人给你写完吗

Answer 6

来晚了，我也是用 ShellExecute(m_hWnd,NULL,  
"http://www.computerworld.com.cn", 
               NULL,NULL,SW_SHOWMAXIMIZED); 

Answer 7

to vbdabster,
你说的我都早就知道，但我是要象超级文本一样的！！！不是label,button等等

Answer 8

但我是要象超级文本一样的！！！麻凡你说清楚点，我不太明白你的意思，是像Word中的链街那样么

Answer 9

你的意思实说只要有http or ftp or etc 就会出现超链接，word都有时候出错的，而且非常经常，你可以判断一下字符串把