将下面这句放在代码第一行:
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 Sub OpenUrl(tUrl As String)
'用ie打开主页
ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
End Sub
在你需要用到的地方,如单击事件里加上:
OpenUrl "http://*"
就可以了
用vb的ie控件
我记得好像是 open http://.... 好像是的 不确定
ShellExecute Me.hWnd, "open", "http://www.sohu.com", "", "", 4
VB6中,如果不想把网页文件和程序分开放置
可以将网页做进RES资源文件里(用VB资源管理器)
在程序中使用LoadResData 函数调出
如果要在程序中显示,可以使用IE控件
如果要调用IE浏览器显示,
使用Shell "iexplore.exe " & FileName 即可