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

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