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

最新推荐文章于 2022-08-23 22:33:01 发布

iteye_12947

最新推荐文章于 2022-08-23 22:33:01 发布

阅读量367

点赞数

文章标签： shell

本文链接：https://blog.csdn.net/iteye_12947/article/details/82246578

版权

手把手教你用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