vb编写的简易浏览器
vb编写的简易浏览器
2009年07月21日
其他 VB 文章 VB 小程序
23.vb编写的简易浏览器'在菜单“工程→部件”中勾选： Microsoft Internet Controls
'在窗体添加控件：WebBrowser1，Command1，Text1
'所有控件可随意放置，不用设置任何属性
Private Sub Command1_Click()
WebBrowser1.Navigate Trim(Text1.Text) '打开网页
End Sub
Private Sub Form_Load()
Me.Caption = "我的浏览器": Command1.Caption = "转到"
Text1.Text = "http://baidu.com/"
Me.Move Screen.Width * 0.05, Screen.Height * 0.05, Screen.Width * 0.9, Screen.Height * 0.9
Call Command1_Click
End Sub
Private Sub Form_Resize()
Dim W As Single, H As Single, T As Single, L As Single, S1 As Single
S1 = Me.TextWidth("A")
Command1.Move S1, S1, S1 * 8, S1 * 4
L = Command1.Left + Command1.Width + S1: W = Me.ScaleWidth - L - S1
If W > 0 Then Text1.Move L, Command1.Top + S1 * 0.5, W, S1 * 3
T = Command1.Top + Command1.Height + S1: W = Me.ScaleWidth
H = Me.ScaleHeight - T
If W > 0 And H > 0 Then WebBrowser1.Move 0, T, W, H
End Sub
其他 VB 文章 VB 小程序
