怎么在VB6.0里做一个像网页那样的链接啊!

[另类唐伯虎]

我先谢谢各位高手.

[onlineboy]

有现成的控件
当然
你也可以自己写

[wumy_ld]

首先声明
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
Public Const SW_SHOW = 5

然后在某个控件的click事件中，加入如下代码：
ShellExecute Me.hwnd, "open", "http://www.csdn.net", vbNullString, vbNullString, SW_SHOW

给分吧：）

[yunok]

新建一个标准的EXE工程，在窗体Form1中添加两个标签Label1、Label2，其Caption属性分别为：
1、发信给作者；
2、打开“凝尘软件”主页。

为了使它们更像我们日常上网使用的超级链接，建议各位把标签的Font文字属性设置为带下划线，文字颜色为蓝色，鼠标指向形状（即当鼠标移到标签上时鼠标的形状，MouseIcon的值为手形，MousePointer设为99-Custom）为手掌状。 设置好控件属性后，就可以编写程序代码了。

首先，在窗体声明部分，加入如下的代码，就能引用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

其中各个参数的意义如下表所示：

hwnd Long，指定一个窗口的句柄，有时windows程序要在创建自己的主窗口前显示一个消息框
lpOperation String，指定字串“open”来打开lpFlie文档，或指定“Print”来打印它
lpFile String，想用关联程序打印或打开一个程序名或文件名
lpParameters String，如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数
lpDirectory String，想使用的完整路径
nShowCmd Long，定义了如何显示启动程序的常数值

有了API函数，就可以用IE打开标签中的超链接。

在标签Label1的Click()过程中加入如下代码： 　Call ShellExecute(Form1.hwnd, "Open", "mailto:[e-mail]", "", App.Path, 1)，其中“[e-mail]”是笔者的电子邮件地址，您可以更改为自己的邮件地址嘛。 　

在标签Label2的Click()过程中加入如下代码： Call ShellExecute(Form1.hwnd, "open", "http://ioi.xiloo.com", vbNullString, vbNullString, &H0) 　　

其中http://ioi.xiloo.com是要打开的超级链接，您可以更改为您喜欢的链接地址，"open"是采用打开的方法，&H0表示用默认程序IE打开时，IE窗口可见。

输入完以上代码后，试着运行一下，您会发现，点击标签1，程序会调用系统默认的电子邮件收发程序，并打开状态为“写新邮件”，而上面的收信人地址正是“[e-mail]”。点击标签2，则会启动 IE浏览器，地址为“http://ioi.xiloo.com”。

以上是引用API函数的方法，下面再介绍一下使用OCX控件的方法。能实现超级链接的控件很多, 在这里，我想以HyperLink.ocx(又名 HLNKCTRL.ocx)控件为例。

如果VB控件工具箱里没有HyperLink.ocx控件，要先添加进来,然后，添到窗体Form1的两个标签下方（不要让标签遮盖住了）。HyperLink控件的各个属性怎么修改，随您自己的喜欢吧，只要别漏了URL项就行啦。在URL属性栏中输入“http://ioi.xiloo.com”之类的网址，就能使程序打开网页，或者输入“[e-mail]”之类的电子邮件地址，就能启动电子邮件收发程序。


呵呵。详细不？给分吧。嘿嘿

[lihonggen0]

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 Label1_Click()
ShellExecute Me.hWnd, "open", "http://www.csdn.net", vbNullString, vbNullString, SW_SHOW

End Sub

[anwell]

顶一下

[射天狼]

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 Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
End Sub

Private Sub Label1_Click()
On Error GoTo Errhandle
'Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE mailto:[e-mail]", vbMinimizedFocus
' ShellExecute Me.hwnd, "open", "mailto:[e-mail]", vbNullString, vbNullString, 1
ShellExecute Me.hwnd, "open", "www.sohu.com", vbNullString,
Exit Sub
Errhandle:
MsgBox Err.Description, vbExclamation
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
End Sub

[iiboy]

在VB中实现文件超链接:


　1、 filename = "file://" + "文件全名"
　　HyperJump = shellexecute(0&, vbNullString, filename, vbNullString, vbNullString, vbNormalFocus)

　2、 www = "http://链接网址"
　　HyperJump = shellexecute(0&, vbNullString, www, vbNullString, vbNullString, vbNormalFocus)

3、 ShellExecute 0&, vbNullString, "MailTo:你的邮箱地址", vbNullString, vbNullString, vbNormalFocus

[iiboy]

接上
*****************************
不好意思！
还应该在程序中做如下次声明：
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

[hxy2003]

ShellExecute Me.hwnd, "open", "http://www.163.com", vbNullString, vbNullString, SW_SHOW

[didishu0807]

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
Dim WithEvents lblURL As Label

Private Sub Form_Load()
Set lblURL = Controls.Add("VB.Label", "lblURL", Me)
With lblURL
.Left = 1000
.Top = 1000
.AutoSize = True
.Caption = "http://www.163.com"
.Visible = True
.FontUnderline = True
.ForeColor = vbBlue
.MousePointer = vbUpArrow
End With
End Sub

Private Sub lblURL_Click()
ShellExecute Me.hwnd, "open", lblURL.Caption, vbNullString, vbNullString, ByVal 0&
End Sub