响应式banner:在vb中实现超连接的方法！和直接发邮件(In the vb method to achie...

来源：百度文库编辑：中财网时间：2024/04/27 13:25:15

在vb中实现超连接的方法！和直接发邮件 [ English ]

2008-2-24 1:52:37　中国学网　跟贴 0 条网友投稿

新建立一个模块
然后再其中添加如下代码：
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 即可！

转帖于 Xue163.com_VB.NET

在vb中如何实现超连接.......谢谢如何用VB实现直接发送邮件？在vb中怎样实现汉字和拼音的转换请问在ASP中,怎么实现在线发邮件,谢谢! 在vb 中怎么实现连接远程数据库？在HTML中的下拉框中怎样实现超连接? 在WORD中可以直接发邮件吗？用VB实现对远程数据库的连接（不是问代码，而是问流程和方法）在VB中要实现这样的效果怎么实现: 在VB中事件和方法的区别？在VB中如何实现关机，重新启动和注销？ VB 中实现控件 dir1 刷新方法？ VB 中实现控件 dir1 刷新方法？在WinXP中，VB6.0中怎样实现用命令按钮往指定邮箱发邮件？怎样在VB中实现点"."和BACKSPACK的功能在VB中实现与网页和记事本文件的联接 vb.net 中怎样用linklable实现打开邮件程序？？关于VB中如何实现利用SQLSERVER群发邮件如何在实现在网页中，鼠标经过超连接时出现下划线效果怎么让邮件里的连接在别人打开邮件的时候直接就打开了，怎样才能在发的帖子里添加超连接? vb 如何实现datagrid中数据的修改和添加怎样在发邮件中放音乐和图片如何在邮件中插入网页连接和图片？