VB中如何实现输入网址？

来源：百度知道 编辑：UC知道 时间：2024/05/29 02:45:27
就是在窗口有一个text控件（就是输入字的那个），一个按钮。
在框中输入网址，然后按下按钮，让程序打开IE并且打开那个网址。。（举一个例子：在框中输入www.baidu.com，点击按钮，自动打开IE并跳转到www.baidu.com）

本人一个大菜鸟。。望高手们写得详细点。。辛苦了。。

Shell "rundll32.exe url.dll,FileProtocolHandler " & Text1.Text & "/infocenter",
上面的代码就是用RUNDLL32.EXE程序来打开IE浏览器并输入指定的网址,网址可以在里面进行修改(也就是你的text控件进行修改).这样的方法可以不用担心IE放在哪的问题.

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 Command1_Click()
Call ShellExecute(Me.hwnd, "Open", Text1.Text, "", App.Path, 1)
End Sub

Shell "cmd /c start http://zhidao.baidu.com", vbHide