Dim mbDontNavigateNow As Boolean
Private Sub Form_Resize() '窗體重設大小事件
cboAddress.Width = Me.ScaleWidth - 100
WebBrowser1.Width = Me.ScaleWidth - 100
'WebBrowser1.Height = Me.ScaleHeight - (picaddress.Top + picaddress.Height)
End Sub
Private Sub cboAddress_Click() '下拉列表框的單擊事件
If mbDontNavigateNow Then Exit Sub
Timer1.Enabled = True
WebBrowser1.Navigate cboAddress.Text
End Sub
Private Sub cboAddress_KeyPress(KeyAscii As Integer) '下拉列表框鍵盤按下事件
On Error Resume Next
If KeyAscii = vbKeyReturn Then
cboAddress_Click
End If
End Sub
Private Sub Form_Load() '窗體加載事件
On Error Resume Next
Me.Show
Toolbar1.Refresh
Form_Resize
cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15 '設置下拉菜單的位置
If Len(StartingAddress) > 0 Then
cboAddress.Text = StartingAddress '在下拉列表框的Text內容
cboAddress.AddItem cboAddress.Text '在下拉列表框中添加該項
Timer1.Enabled = True
WebBrowser1.Navigate StartingAddress '在瀏覽器中顯示該網頁
End If
End Sub
Private Sub Timer1_Timer() '計時器事件
If WebBrowser1.Busy = False Then
Timer1.Enabled = False
Me.Caption = WebBrowser1.LocationName '設置窗體的Caption事件
Else
Me.Caption = "working......" '加載網站
End If
End Sub