马眼棒35:电脑编程高手进,好的有追加
来源:百度文库 编辑:高考问答 时间:2024/07/06 11:08:26
第一个像楼上的兄弟说了,你可以使用END来结束程序运行,如:
Private Sub Command1_OnClick()
End
End Sub
第二个的话,楼上的兄弟代码有误,楼主可以使用ShellExecute 这个API来实现,在窗体代码里定义
'// 用来执行程序/打开URL等
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
然后使用以下代码就可以实现了
'// 打开指定的URL
Public Sub OpenUrlAddress(ByVal strAddress As String)
Call ShellExecute(0, "Open", strAddress, vbNullString, vbNullString, 3)
End Sub
Private Sub Command2_OnClick()
Call OpenUrlAddress("http://www.q444.com")
End Sub
这样单击Command2按钮时,就会调用当前默认的浏览器打开你所指定的地址。
1. end
2. open“www.q444.com”