16,554
社区成员
发帖
与我相关
我的任务
分享
'Private Const URL As String = "www.google.cn"
Private Sub Form_Load()
Call ReSize
WebBrowser1.Navigate txtURL.Text
End Sub
Private Sub ReSize()
txtURL.Move 0, 0, frmWeb.Width
WebBrowser1.Move 0, 0, frmWeb.Width, frmWeb.Height - txtURL.Height
End Sub
这是全部源码:
Private Sub Form_Resize()
Call ReSize
End Sub
Private Sub txtURL_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
WebBrowser1.Navigate txtURL.Text
End If
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As New frmWeb
frm.Show
Set ppDisp = frm.WebBrowser1.Object
End Sub