📄 frmbrowser.frm
字号:
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmBrowser
Caption = "一个漂亮的浏览器"
ClientHeight = 6750
ClientLeft = 60
ClientTop = -1950
ClientWidth = 9480
ClipControls = 0 'False
HelpContextID = 50
LinkTopic = "Form1"
LockControls = -1 'True
Picture = "frmBrowser.frx":0000
ScaleHeight = 6750
ScaleWidth = 9480
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin MSComDlg.CommonDialog CommonDialog1
Left = 5700
Top = 4050
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin SHDocVwCtl.WebBrowser WebBrowser1
Height = 4100
Left = 30
TabIndex = 2
TabStop = 0 'False
Top = 2070
Width = 12015
ExtentX = 21193
ExtentY = 7232
ViewMode = 1
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 0
AutoArrange = -1 'True
NoClientEdge = -1 'True
AlignLeft = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = ""
End
Begin ComctlLib.ProgressBar ProgressBar1
Height = 225
Left = 0
TabIndex = 1
Top = 8370
Visible = 0 'False
Width = 1140
_ExtentX = 2011
_ExtentY = 397
_Version = 327682
Appearance = 1
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 360
Left = 0
TabIndex = 0
Top = 6390
Width = 9480
_ExtentX = 16722
_ExtentY = 635
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 10583
MinWidth = 10583
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 3528
MinWidth = 3528
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Text = "F1-Help"
TextSave = "F1-Help"
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Comic Sans MS"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Timer Timer1
Interval = 1000
Left = 4050
Top = 2880
End
Begin MSForms.Image minimizeimage
Height = 375
Left = 10800
Top = 0
Width = 375
BorderStyle = 0
Size = "661;661"
VariousPropertyBits= 19
End
Begin MSForms.Image ViewImage
Height = 315
Left = 1950
Top = 30
Width = 645
BorderStyle = 0
Size = "1138;556"
VariousPropertyBits= 19
End
Begin MSForms.Image GoImage
Height = 315
Left = 2670
Top = 30
Width = 435
BorderStyle = 0
Size = "767;556"
VariousPropertyBits= 19
End
Begin MSForms.Image EditImage
Height = 315
Left = 1290
Top = 30
Width = 555
BorderStyle = 0
Size = "979;556"
VariousPropertyBits= 19
End
Begin MSForms.Image Image1
Height = 255
Left = 11400
Top = 1590
Width = 285
BorderColor = -2147483638
BorderStyle = 0
Size = "503;450"
VariousPropertyBits= 19
End
Begin MSForms.ComboBox sitelist
Height = 315
Left = 4590
TabIndex = 3
Top = 1590
Width = 6795
VariousPropertyBits= 746604563
BackColor = -2147483629
ForeColor = 16711680
DisplayStyle = 3
Size = "11986;556"
MatchEntry = 1
ListStyle = 1
BorderColor = 16777215
SpecialEffect = 0
FontHeight = 165
FontCharSet = 0
FontPitchAndFamily= 2
End
Begin MSForms.Image closeimage
Height = 345
Left = 11340
Top = 0
Width = 375
BorderStyle = 0
Size = "661;609"
VariousPropertyBits= 19
End
Begin MSForms.Image cmdbookmark
Height = 435
Left = 750
Top = 1530
Width = 1635
BorderStyle = 0
Size = "2884;767"
VariousPropertyBits= 19
End
Begin MSForms.Image cmdstop
Height = 465
Left = 6840
Top = 630
Width = 495
BorderStyle = 0
Size = "873;820"
VariousPropertyBits= 19
End
Begin MSForms.Image cmdprint
Height = 495
Left = 5970
Top = 600
Width = 525
BorderStyle = 0
Size = "926;873"
VariousPropertyBits= 19
End
Begin MSForms.Image cmdsearch
Height = 555
Left = 4980
Top = 600
Width = 585
BorderStyle = 0
Size = "1032;979"
VariousPropertyBits= 19
End
Begin MSForms.Image cmdhome
Height = 555
Left = 4080
Top = 570
Width = 585
BorderStyle = 0
Size = "1032;979"
VariousPropertyBits= 19
End
Begin MSForms.Image cmdreload
Height = 555
Left = 3150
Top = 570
Width = 585
BorderStyle = 0
Size = "1032;979"
VariousPropertyBits= 19
End
Begin MSForms.Image cmdforward
Height = 555
Left = 2130
Top = 570
Width = 585
BorderStyle = 0
Size = "1032;979"
VariousPropertyBits= 19
End
Begin MSForms.Image cmdback
Height = 555
Left = 1290
Top = 570
Width = 585
BorderStyle = 0
Size = "1032;979"
VariousPropertyBits= 19
End
Begin MSForms.Image fileimage
Height = 315
Left = 660
Top = 30
Width = 555
BorderStyle = 0
Size = "979;556"
VariousPropertyBits= 19
End
Begin VB.Menu mnuFileMain
Caption = "&File"
HelpContextID = 510
Visible = 0 'False
Begin VB.Menu mnuFileNewWindow
Caption = "&New Window"
End
Begin VB.Menu mnuFileOpenPage
Caption = "&Open Page"
End
Begin VB.Menu mnuFileHomePage
Caption = "&Home Page"
End
Begin VB.Menu mnuFileSeperator
Caption = "-"
End
Begin VB.Menu mnuFileSavePage
Caption = "&Save Page"
End
Begin VB.Menu mnuSavePageAs
Caption = "Save Page &As"
End
Begin VB.Menu mnuFilePrint
Caption = "&Print"
End
Begin VB.Menu mnuFilePrintPreview
Caption = "Print P&review"
End
Begin VB.Menu mnuFilePageSetup
Caption = "Pa&ge Setup"
End
Begin VB.Menu mnuFileProperties
Caption = "Proper&ties"
End
Begin VB.Menu mnuFileSeparator2
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "E&xit"
End
End
Begin VB.Menu mnuEditMain
Caption = "&Edit"
HelpContextID = 520
Visible = 0 'False
Begin VB.Menu mnuEditCopy
Caption = "C&opy"
End
Begin VB.Menu mnuEditPaste
Caption = "&Paste"
End
Begin VB.Menu mnuEditSeperator
Caption = "-"
End
Begin VB.Menu mnuEditSelectAll
Caption = "&Select All"
End
Begin VB.Menu mnuEditFind
Caption = "&Find"
End
End
Begin VB.Menu mnuGoMain
Caption = "&Go"
HelpContextID = 530
Visible = 0 'False
Begin VB.Menu mnuGoBack
Caption = "&Back"
End
Begin VB.Menu mnuGoForward
Caption = "&Forward"
End
Begin VB.Menu mnuGoSeperator
Caption = "-"
End
Begin VB.Menu mnuGoHome
Caption = "&Home"
End
Begin VB.Menu mnuGoSearch
Caption = "&Search"
End
End
Begin VB.Menu mnuViewMain
Caption = "&View"
HelpContextID = 540
Visible = 0 'False
Begin VB.Menu mnuViewStatusbar
Caption = "Status &Bar"
Checked = -1 'True
End
Begin VB.Menu mnuViewSeperator1
Caption = "-"
End
Begin VB.Menu mnuViewStop
Caption = "&Stop"
End
Begin VB.Menu mnuViewRefresh
Caption = "&Refresh"
End
End
Begin VB.Menu mnuBookmarkMain
Caption = "&Bookmark"
HelpContextID = 550
Visible = 0 'False
Begin VB.Menu mnuBookmarkAdd
Caption = "&Add"
End
Begin VB.Menu mnuBookmarkEdit
Caption = "&Edit"
End
End
End
Attribute VB_Name = "frmBrowser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public WithEvents m_oWbSink As SHDocVwCtl.InternetExplorer
Attribute m_oWbSink.VB_VarHelpID = -1
Dim flag As String
Dim flag1 As String
Dim flag2 As String
Dim text As String
Dim str As String
Dim myurl As String
Dim download As String
Dim F As Form
Dim siteno As Integer
Dim mykeypressed As String
Private Sub cmdBack_Click()
On Error Resume Next
WebBrowser1.GoBack
sitelist.text = WebBrowser1.LocationURL
End Sub
Private Sub cmdback_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
cmdback.SpecialEffect = fmSpecialEffectSunken
End Sub
Private Sub cmdback_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single)
cmdback.SpecialEffect = fmSpecialEffectRaised
End Sub
Private Sub cmdback_MouseUp(button As Integer, Shift As Integer, X As Single, Y As Single)
cmdback.SpecialEffect = fmSpecialEffectRaised
End Sub
Private Sub cmdbookmark_Click()
cmdbookmark.SpecialEffect = fmSpecialEffectSunken
PopupMenu mnuBookmarkMain, , 730, 2000
End Sub
Private Sub cmdbookmark_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single)
cmdbookmark.SpecialEffect = fmSpecialEffectRaised
End Sub
Private Sub cmdbookmark_MouseUp(button As Integer, Shift As Integer, X As Single, Y As Single)
cmdbookmark.SpecialEffect = fmSpecialEffectRaised
End Sub
Private Sub Closeimage_Click()
Unload Me
End Sub
Private Sub closeimage_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
closeimage.SpecialEffect = fmSpecialEffectSunken
End Sub
Private Sub closeimage_MouseUp(button As Integer, Shift As Integer, X As Single, Y As Single)
closeimage.SpecialEffect = fmSpecialEffectFlat
End Sub
Private Sub cmdForward_Click()
On Error Resume Next
WebBrowser1.GoForward
sitelist.text = WebBrowser1.LocationURL
End Sub
Private Sub cmdforward_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
cmdforward.SpecialEffect = fmSpecialEffectSunken
End Sub
Private Sub cmdforward_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single)
cmdforward.SpecialEffect = fmSpecialEffectRaised
End Sub
Private Sub cmdforward_MouseUp(button As Integer, Shift As Integer, X As Single, Y As Single)
cmdforward.SpecialEffect = fmSpecialEffectRaised
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -