vb中如何调用mailto函数？

来源：百度知道 编辑：UC知道 时间：2024/06/25 19:58:16
在vb中想做一个联系作者，用户一点就可以调用客户端发邮件的，记得应该用mailto函数，很简单的。可我现在想不起来该具体怎么做了，麻烦各位帮我写下，具体点，谢谢！
我做了一个label标签，写上了我的邮件地址，怎么让他变成一个超链接？用户一点就可以调用客户端个我发邮件呢？dyxg041写的是按钮，到label里该怎么用呢？写在click里是可以调用，怎么让邮件地址变成超链接的形式啊？

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()
ShellExecute Me.hwnd, "open", "mailto:Chendz88@163.com", "", "", 1
End Sub
Private Sub Command2_Click()
ShellExecute Me.hwnd, "open", "c:\bbb.chm", "", "", 1
End Sub

变超链接很简单,把Label的ForeColor改为蓝色,Font把下划线勾选,MousePointer改为99 - Custom,把MouseIcon点开,选择一个手形的鼠标指针(可以在c:\windows\Cursors目录下找个你喜欢的,注意:旧版VB只支持单色鼠标指针,如果你选彩色的可能会出错)