【VB开源代码栏目提醒】：本文主要为网学会员提供frmchild.frm，希望对需要frmchild.frm网友有所帮助，学习一下!
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmChild
AutoRedraw = -1 'True
Caption = "Untitled"
ClientHeight = 5535
ClientLeft = 60
ClientTop = 630
ClientWidth = 7845
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmchild.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 5535
ScaleWidth = 7845
Tag = "This is the Editor."
WindowState = 2 'Maximized
Begin RichTextLib.RichTextBox RTF1
Height = 3885
Left = 1305
TabIndex = 1
Tag = $"frmchild.frx":058A
Top = 405
Width = 6180
_ExtentX = 10901
_ExtentY = 6853
_Version = 393217
BorderStyle = 0
HideSelection = 0 'False
ScrollBars = 3
DisableNoScroll = -1 'True
Appearance = 0
TextRTF = $"frmchild.frx":0615
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin SHDocVwCtl.WebBrowser IE1
Height = 1500
Left = 0
TabIndex = 4
TabStop = 0 'False
Top = 0
Width = 2760
ExtentX = 4868
ExtentY = 2646
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
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 = ""
End
Begin VB.Timer tmrAutoSave
Interval = 60000
Left = 1710
Top = 4410
End
Begin VB.PictureBox p2
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 240
Left = 990
Picture = "frmchild.frx":06A2
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 3
TabStop = 0 'False
Top = 5040
Visible = 0 'False
Width = 240
End
Begin VB.PictureBox p1
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 240
Left = 180
Picture = "frmchild.frx":2514
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 2
Top = 4950
Visible = 0 'False
Width = 240
End
Begin RichTextLib.RichTextBox rtfTmp
Height = 510
Left = 1080
TabIndex = 0
Top = 4275
Width = 420
_ExtentX = 741
_ExtentY = 900
_Version = 393217
BorderStyle = 0
Enabled = -1 'True
Appearance = 0
TextRTF = $"frmchild.frx":3556
End
Begin VB.Menu mnuWhatever
Caption = "&What"
Visible = 0 'False
Begin VB.Menu mnuSelectBody
Caption = "&Select"
End
Begin VB.Menu mnuDeleteBody
Caption = "&Delete"
End
Begin VB.Menu mnuWhatSep
Caption = "-"
End
Begin VB.Menu mnuUpdate
Caption = "&Update"
End
End
Begin VB.Menu mnuFile
Caption = "&File"
Begin VB.Menu mnuNewWhat
Caption = "&New"
Begin VB.Menu mnuFileNew
Caption = "&Blank"
Shortcut = ^N
End
Begin VB.Menu mnuUsingTemplate
Caption = "&Using..."
End
End
Begin VB.Menu mnuFileOpen
Caption = "&Open..."
Shortcut = ^O
End
Begin VB.Menu mnuOpenRemote
Caption = "&Load..."
End
Begin VB.Menu mnuFileSep
Caption = "-"
End
Begin VB.Menu mnuFileSave
Caption = "&Save"
Shortcut = ^S
End
Begin VB.Menu mnuFileSaveAs
Caption = "S&ave as..."
End
Begin VB.Menu mnuFileSaveAll
Caption = "Sa&ve all"
End
Begin VB.Menu mnuFileSepBar
Caption = "-"
End
Begin VB.Menu mnuFileRevert
Caption = "Re&vert..."
End
Begin VB.Menu mnuFileSep2
Caption = "-"
End
Begin
VB.Menu mnuPrintX
Caption = "&Print"
Begin VB.Menu mnuFilePrinterSetup
Caption = "Set&up..."
End
Begin VB.Menu mnuFilePrintPreview
Caption = "Pr&eview..."
End
Begin VB.Menu mnuPSep
Caption = "-"
End
Begin VB.Menu mnuPrintPage
Caption = "Page..."
End
Begin VB.Menu mnuFilePrint
Caption = "
HTML..."
Shortcut = ^P
End
End
Begin VB.Menu mnuSepMRU
Caption = "-"
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 1
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 2
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 3
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 4
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 5
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 6
Visible = 0 'False
End
Begin VB.Menu mnuFileSep3
Caption = "-"
End
Begin VB.Menu mnuFileClose
Caption = "&Close"
End
Begin VB.Menu mnuFileExit
Caption = "E&xit"
End
End
Begin VB.Menu mnuEdit
Caption = "E&dit"
Begin VB.Menu mnuEditUndo
Caption = "U&ndo"
End
Begin VB.Menu mnuEditRedo
Caption = "&Redo"
End
Begin VB.Menu mnuEditSep1
Caption = "-"
End
Begin VB.Menu mnuEditCut
Caption = "C&ut"
End
Begin VB.Menu mnuEditCopy
Caption = "&Copy"
End
Begin VB.Menu mnuE
相关文章
2013-9-1
