说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB使用超链接和发送Email

HTML文档下载 WORD文档下载 PDF文档下载
VB使用超链接和发送Email

 
使用API函数ShellExecute可以调用外部默认的浏览器和电子邮件工具来打开一个超链接和和发送一个电子邮件。

    先在程序中加入如下的声明后,就能引用这个API函数:
  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,定义了如何显示启动程序的常数值

  比如我们要使用IE打开标签中的超链接,则我们可以在标签的Click()过程中加入如下一句代码:
  Call ShellExecute(Form1.hwnd, "open", "http://www.hongen.com", vbNullString, vbNullString, &H0)


  其中http://www.hongen.com是要打开的超链接,"open"是采用打开的方法,&H0表示用默认程序IE打开时,IE窗口可见。

  又比如我们要打开默认的电子邮件工具发送邮件,则使用下面语句:
   Call ShellExecute(Form1.hwnd, "Open", "mailto:ketang.pc@goldhuman.com", "", App.Path, 1)

  最后我们设置标签Label的字体为下划线,MouseIcon选择一个小手状的图标,把MousePointer设为99-Custom,这样就能模拟超链接的效果了。
用Delphi编制MP3音乐点歌台 用Delphi编制趣味动画鼠标 用Delphi开发屏幕保护预览程序 用DEPHI3.0实现动画ABOUT窗口-Delphi资料 在Delphi下用Direct Sound 实现混音器组件 在Delphi中使用DirectX BDE的替代品大全(按数据库类型分)-Delphi资料 BDE的替代品大全(按应用类型分)-Delphi资料 bde的组态文件-Delphi资料 DBGrid中的下拉列表和查找字段编程方法-Delphi资料 Delphi 3.0 中 连 接 数 据 库 的 三 种 方 式 Delphi 3.0中连接数据库的三种方式 Delphi 4中开发数据库控件的方法 Delphi:MIDAS中动态强制约束编程 DELPHI 中 自 适 应表 单 的 实 现 Delphi3数据库编程中的查找字段 Delphi3中 连 接 数 据 库 的 三 种 方 法 Delphi编程实现3DS动画的播放 Delphi访问ODBC数据库 Delphi如何实现在一个Dbgrid中显示多数据库 Delphi筛选数据 Delphi数据集过滤技巧 Delphi数据库应用程序开发中图像数据 Delphi下的ADO Delphi在网络数据库中的应用 Delphi中多库关联查询 Delphi中建表 Delphi中数据文件路径的管理 ODBC中的同步与异步执行模式-Delphi资料 SQL编程常见问题-Delphi资料 第11章 中级SQL-Delphi资料 “多步 OLE DB 操作产生错误。。。”怎么解决?? 急!!! 哪里有内存泄漏检测工具? 请问如何将80*60象素的图片文件转换为120*90象素的图片文件 哪位兄弟试过把csdn的文档里面的文章全部下到本地看的? APL和DOL表的区别?在系统中怎样设置(运用)?最好有示例。多谢先! 如何在一个函数内部知道这个函数的名字? “多步 OLE DB 操作产生错误。。。”怎么解决?? 急!!! _RecordsetPtr对象的Find方法怎样用? 等會過來喝點咖啡吧,今天晚上一定要測完 一个简单的fork问题(那个高手来帮忙呀) 一个关于安装的问题 在VC中用什么函数运行一个程序?像vb中的shell.比如运行QQ.exe 继续散分 急招游戏软件合作伙伴(美国项目外包) 有关更新表中的记录,有没有简洁的办法? 散分的理由 那位大侠能告诉我这是什么原因。Error 404--Not Found 研究生题目,大家试试,帮帮忙 新手问题! 请教EXCEL的公式问题? (高手请问:)linux下访问非本网段的一台主机 哪位兄弟试过把csdn文档栏目里面的文章全部下到本地看的? 哪位高手有中国象棋棋盘控件的开发文档 如何用VB自己做控件? 用 SQL SERVER 连接数据库的问题 谁给我发个2000的boot.ini文件?谢了!在线等 如何得到一个Sql server2000里面所有的数据库? sendbuf的问题 电脑在运行是突然自己重起是为什么? JAVA程序员成长之路 请问哪里有下Solaris x86就是在pc上运行的? 小弟我做得第一个网站的首页,请大家来pp,有高分哦!! .:送分,结束第二次恋爱:. 谁能帮我解决这个问题啊!(分数不够可以再加) 简单啊,我不会啊,放分啊。 JDBC的一个问题 有什么办法可以检测/过滤通过ISA发送的Email? 水晶报表可以动态生成报表列吗? 有关对话框画图的问题 高手请进来 关系型数据库试题,帮帮忙 给200分。谁知道ServU自带的用户密码加密算法? 请问为什么找不到类定义 JDBC的又一个问题 Combo下拉列表框!!!! 挑战高手,如何编程模拟鼠标和键盘? 我的usb摄像头用不起,怎么回事啊? 关系型数据库问题 在gtk中如何设置像Ctrl+q这样的快捷键? 100分,急且简单:关于数组的元素个数的取得! 求救: 能否在C/S 中实现文字的連续滚动效果???? recover什么意思 Recover My Email for Outlook Express Have you experienced using English when talking over the phone?"talking over" I ready don't know___to leave for the village by bike next week.( )A.when B.where C.what D.know请说明一下是怎么判断的?谢谢!朋友,老师说答案是A,能不能在想想为什么呢,当然十分感谢你!! undelete recover是什么意思 recover的名词意思 “recover”是什么意思 recover是什么意思 WORKMANSHIP OF PLACKET OF G/S SMPL 是什么意思 EJB中只有@Resource注解,代表什么含义?是默认注入某部分吗? i hear you 两岸企业家聚紫金山峰会 名流荟萃商产三中全会前瞻:勇于担当绘蓝图 凝聚共朴槿惠就历史问题斥责日本 称元首会晤哥伦比亚警方截获1.5吨可卡因 逮捕环保部:局地雾霾天气频发 做好大气污俄总统普京将访问越南 适逢俄越潜艇交萧山冤案一审审判长辞去余杭区法院院长煤矿安监局:加快小煤矿关闭退出 严格浙江萧山冤案一审审判长辞去余杭区法院怀孕妻子为出轨私自堕胎 丈夫暴怒下杀希腊庆祝母乳喂养周 数百母亲当众哺乳威海74岁老党员社区当“讲师”济南百余部门公车改革基本完成省气象台预计:7月6日起安徽降水逐渐合肥城区:连夜沿河筑堤防买飞机票也可分期付款 石家庄飞名古屋炎炎夏日切勿“畅饮” 专家支招如何健春秋航空8月份新增两条航线 执飞航线上海迎来今年首个高温日,比常年平均首2016浙江十大最美公路评选启动 3加拿大佛教会迎请中国普陀山香火暴雨致湖南怀化多地受灾
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘