lols7边框:电脑编程高手进,好的有追加

来源:百度文库 编辑:神马品牌网 时间:2024/05/09 08:49:28
1.点击一个按钮后自动关闭本程序的语句
2.写一个VB程序语句,要点击按钮后打开网页:www.q444.com怎么写
(直接给我写出来,要让我COPY进去就可以用,的确可以用的我加分)

第一个像楼上的兄弟说了,你可以使用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