急.用VB做IE浏览器 只要一个URL打开相应的网页，浏览器的窗口就行了。

来源：百度知道 编辑：UC知道 时间：2024/05/10 20:11:28
急~~~

url指定TEXT1就行了

只要一个URL打开相应的网页，浏览器的窗口

请把做好的FRM发到我的QQ邮箱里：371169396@QQ.com

“后退”、“前进”、“停止”，“刷新”、“主页”都不要，要的话只要“后退”、“前进”就行了

OK之后给您加分
WebBrowser1里面的地址要在TEXT1里啊
点WebBrowser1里面的链接TEXT1也要一起变

代码如下：

Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Command2_Click()
WebBrowser1.GoBack
End Sub

Private Sub Command3_Click()
WebBrowser1.GoForward
End Sub

Private Sub WebBrowser1_BeforeNavigate(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)
Text1.Text = URL
End Sub

这样就行了

发送了：

代码如下：

Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Command2_Click()
WebBrowser1.GoBack
End Sub

Private Sub Command3_Click()
WebBrowser1.GoForward
End Sub

'=====================增加代码=============插入tiemr控件

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
text1.Text = WebBrowser1.LocationU