?? frmbrowser.frm
字號:
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.dll"
Begin VB.Form frmBrowser
ClientHeight = 5850
ClientLeft = 3060
ClientTop = 3345
ClientWidth = 7245
LinkTopic = "Form1"
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5850
ScaleWidth = 7245
WindowState = 2 'Maximized
Begin SHDocVwCtl.WebBrowser brwWebBrowser
Height = 5025
Left = 30
TabIndex = 0
Top = 720
Width = 7110
ExtentX = 12541
ExtentY = 8864
ViewMode = 1
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 0
AutoArrange = -1 'True
NoClientEdge = -1 'True
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
Begin VB.PictureBox picAddress
Align = 1 'Align Top
BorderStyle = 0 'None
Height = 675
Left = 0
ScaleHeight = 675
ScaleWidth = 7245
TabIndex = 3
TabStop = 0 'False
Top = 0
Width = 7245
Begin VB.ComboBox cboAddress
Height = 315
Left = 45
TabIndex = 2
Text = "help"
Top = 300
Width = 3795
End
Begin VB.Label lblAddress
Caption = "地址(&A):"
Height = 255
Left = 45
TabIndex = 1
Tag = "&Address:"
Top = 60
Width = 3075
End
End
End
Attribute VB_Name = "frmBrowser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public StartingAddress As String
Dim mbDontNavigateNow As Boolean
Private Sub Form_Load()
On Error Resume Next
Me.Show
Form_Resize
cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15
cboAddress.Text = App.Path & "\help\help.htm"
brwWebBrowser.Navigate cboAddress.Text
End Sub
Private Sub brwWebBrowser_DownloadComplete()
On Error Resume Next
Me.Caption = brwWebBrowser.LocationName
End Sub
Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
Dim i As Integer
Dim bFound As Boolean
Me.Caption = brwWebBrowser.LocationName
For i = 0 To cboAddress.ListCount - 1
If cboAddress.List(i) = brwWebBrowser.LocationURL Then
bFound = True
Exit For
End If
Next i
mbDontNavigateNow = True
If bFound Then
cboAddress.RemoveItem i
End If
cboAddress.AddItem brwWebBrowser.LocationURL, 0
cboAddress.ListIndex = 0
mbDontNavigateNow = False
End Sub
Private Sub cboAddress_Click()
If mbDontNavigateNow Then Exit Sub
'timTimer.Enabled = True
brwWebBrowser.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_Resize()
cboAddress.Width = Me.ScaleWidth - 100
brwWebBrowser.Width = Me.ScaleWidth - 100
brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100
End Sub
Private Sub Form_Unload(Cancel As Integer)
MainForm.StatusBar1.Panels(1).Text = "狀態: 無"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -