求教:怎么连接去一个网站
当我按了按钮,可以打开浏览器,连接去一个网站入tieba.baidu.com..
'偶在《奥运邮集》软件里采用了这个方法,代码提供如下:
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
Private Const SW_SHOW = 5
Private Sub Command1_Click()
Dim web As String '链接网站用,网址放在Combo1的属性Text中,
web = Combo1.Text
ShellExecute 0&, vbNullString, web, vbNullString, vbNullString, 0
End Sub