手把手教你用vb6.0写一个桌面网址小软件

最新推荐文章于 2023-05-31 00:18:11 发布

原创最新推荐文章于 2023-05-31 00:18:11 发布 · 268 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#shell

本文介绍如何使用VB6.0创建一个简单的桌面应用，该应用可通过点击标签控件打开预设网址。首先需重命名窗体，并设置图标。接着在标签点击事件中调用ShellExecute函数实现打开网页的功能。

手把手教你用vb6.0写一个桌面网址小软件
2009年11月07日
　　1.打开vb6.0
　　　　将默认的form1窗体重命名为mian
　　　　
　　　　查找其属性icon 单击icon旁边的小按钮添加自己喜爱的图标
　　　　然后在mian窗体的load事件当中添加下列声明
　　　　
　　　　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
　　　　2.点击工具栏上的label控件并将其拖动到窗体中
　　　　将其caption属性设置为电脑问题互助
　　　　
　　　　在label1的click事件中写入
　　　　Private Sub label1_Click()
　　　　
　　　　 Dim pchelp As Long
　　　　 pchelp = ShellExecute(0, "open", "http;//pchep.groups.tianya.cn", vbNull, vbNull, 0)
　　　　
　　　　 End Sub
　　　　3.生成工程 myweb.exe