菜鸟问题，怎么给文字加上超连接

Question

我看见很多软件上都有，一般在关于里面---作者主页，点一下就自动开IE上那个网站了，怎么实现，还有些点了就自动进outlook写一封到指定地址的信，请问怎么实现？
比如说要进www.google.com或者写信给 [email protected] 该怎么编？

Answer 1

在模块部分声明：
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窗体中增加一个Label1及Label2Private Sub Label1_Click()  '打开网页
    ShellExecute Form1.hwnd, "open", "http://www.google.com ", vbNullString, vbNullString, 1
End SubPrivate Sub Label2_Click()  '打开邮件
    ShellExecute Form1.hwnd, "open", "mailto:[email protected] ", vbNullString, vbNullString, 1End Sub

Answer 2

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 LongPrivate Sub Form_Load()
ShellExecute Me.hwnd, vbNullString, "mailto:[email protected]?subject=给我写信", vbNullString, vbNullString, 9
End Sub

Answer 3

我记得只要:
dim strURL as string
strURL="HTTP://WWW.GOOGLE.COM/"
shell "start " & strURL就好了

Answer 4

ShellExecute VB声明 
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 
说明 
  查找与指定文件关联在一起的程序的文件名 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
hwnd Long，指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框 
lpOperation String，指定字串“open”来打开lpFlie文档，或指定“Print”来打印它 
lpFile String，想用关联程序打印或打开一个程序名或文件名 
lpParameters String，如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数 
lpDirectory String，想使用的完整路径 
nShowCmd Long，定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数 ShowWindow VB声明 
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long 
说明 
控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性） 
返回值 
Long，如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零） 
参数表 
参数 类型及说明 
hwnd Long，窗口句柄，要向这个窗口应用由nCmdShow指定的命令 
nCmdShow Long，为窗口指定可视性方面的一个命令。请用下述任何一个常数 
SW_HIDE 隐藏窗口，活动状态给令一个窗口 
SW_MINIMIZE 最小化窗口，活动状态给令一个窗口 
SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态 
SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态 
SW_SHOWMAXIMIZED 最大化窗口，并将其激活 
SW_SHOWMINIMIZED 最小化窗口，并将其激活 
SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口 
SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口 
SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口 
SW_SHOWNORMAL 与SW_RESTORE相同