科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道在vb中实现超连接的方法!和直接发邮件

在vb中实现超连接的方法!和直接发邮件

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

s = ShellExecute(0&, vbNullString, "mailto:" & email, vbNullString, "C:\", SW_SHOWNORMAL) End Sub 接着就简单不过了! 在你所要进行超连接的窗体中。

作者:中国IT实验室 来源:中国IT实验室 2007年9月13日

关键字: VB 编程

  • 评论
  • 分享微博
  • 分享邮件
  

新建立一个模块
然后再其中添加如下代码 :
Option Explicit

Public Const email = "support@online.com"
Public Const URL = "http://blog.csdn.net/flm2003/"
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_SHOWNORMAL = 1
Public Sub gotoweb()
Dim Success As Long

Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub
Public Sub sendemail()
Dim Success As Long

Success = ShellExecute(0&, vbNullString, "mailto:" & email, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub
接着就简单不过了!
在你所要进行超连接的窗体中,如实现LABEL的超连接
那就在LABEL的CLICK事件中加入  gotoweb或sendemail 即可!

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件