📄 frmmain.frm
字号:
VERSION 5.00
Object = "{4932CEF1-2CAA-11D2-A165-0060081C43D9}#2.0#0"; "Actbar2.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmMain
BackColor = &H8000000C&
Caption = "Dest"
ClientHeight = 5652
ClientLeft = 168
ClientTop = 168
ClientWidth = 9372
Icon = "frmMain.frx":0000
LinkTopic = "MDIForm1"
Tag = "Main"
Visible = 0 'False
Begin ActiveBar2LibraryCtl.ActiveBar2 ActiveBar
Align = 1 'Align Top
Height = 5655
Left = 0
TabIndex = 0
Top = 0
Width = 9375
_LayoutVersion = 1
_ExtentX = 16531
_ExtentY = 9970
_DataPath = ""
Bands = "frmMain.frx":08CA
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 375
Left = 3240
ScaleHeight = 31
ScaleMode = 3 'Pixel
ScaleWidth = 39
TabIndex = 2
Top = 1920
Visible = 0 'False
Width = 465
End
Begin VB.PictureBox rtfsample
Height = 255
Left = 10560
ScaleHeight = 204
ScaleWidth = 564
TabIndex = 1
Top = 360
Visible = 0 'False
Width = 615
End
End
Begin MSComDlg.CommonDialog dlgCommonDialog
Left = 240
Top = 3000
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.ImageList imlToolbarIcons
Left = 960
Top = 3000
_ExtentX = 995
_ExtentY = 995
BackColor = 16777215
ImageWidth = 16
ImageHeight = 16
MaskColor = 16777215
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 26
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1593E
Key = "New"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":15A50
Key = "Open"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":15B62
Key = "Save"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":15C74
Key = "Print"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":15D86
Key = "Cut"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":15E98
Key = "Copy"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":15FAA
Key = "Paste"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":160BC
Key = "Bold"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":161CE
Key = "Italic"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":162E0
Key = "Underline"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":163F2
Key = "Align Left"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":16504
Key = "Center"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":16616
Key = "Align Right"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":16728
Key = "Reason"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":16B7A
Key = "ReverseReason"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":16FCC
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1741E
Key = ""
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":179B8
Key = ""
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1810A
Key = ""
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":189E4
Key = ""
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":192BE
Key = ""
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":19B98
Key = ""
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1A472
Key = ""
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1AD4C
Key = ""
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1B626
Key = ""
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1BF00
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuNewProject
Caption = "新建工程(&N)..."
Shortcut = ^N
End
Begin VB.Menu mnuOpenProject
Caption = "打开工程(&O)..."
Shortcut = ^O
End
Begin VB.Menu mnuRemovePrj
Caption = "移除工程(&R)"
End
Begin VB.Menu mnuProjectBar0
Caption = "-"
End
Begin VB.Menu mnuProjectSave
Caption = "保存工程(&S)"
Shortcut = ^S
End
Begin VB.Menu mnuProjectSaveas
Caption = "工程另存为(&A)..."
End
Begin VB.Menu mnuFileBar1
Caption = "-"
End
Begin VB.Menu mnuFileNew
Caption = "新建文件"
End
Begin VB.Menu mnuFileOpen
Caption = "打开文件..."
End
Begin VB.Menu mnuFileSave
Caption = "保存文件"
End
Begin VB.Menu mnuFileSaveas
Caption = "文件另存为..."
End
Begin VB.Menu mnuKnowledgeBar0
Caption = "-"
End
Begin VB.Menu mnuFileProperty
Caption = "属性(&I)"
End
Begin VB.Menu mnuFileBar2
Caption = "-"
End
Begin VB.Menu mnuFilePageSetup
Caption = "页面设置(&U)..."
End
Begin VB.Menu mnuFilePrintPreview
Caption = "打印预览(&V)"
End
Begin VB.Menu mnuFilePrint
Caption = "打印(&P)..."
End
Begin VB.Menu mnuFileBar3
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 mnuFileBar5
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuFileExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mnuEdit
Caption = "编辑(&E)"
Begin VB.Menu mnuEditUndo
Caption = "取消(&U)"
End
Begin VB.Menu mnuEditBar0
Caption = "-"
End
Begin VB.Menu mnuEditSelectAll
Caption = "全选"
Shortcut = ^A
End
Begin VB.Menu mnuEditCut
Caption = "剪切(&T)"
Shortcut = ^X
End
Begin VB.Menu mnuEditCopy
Caption = "复制(&C)"
Shortcut = ^C
End
Begin VB.Menu mnuEditPaste
Caption = "粘贴(&P)"
Shortcut = ^V
End
Begin VB.Menu mnuEditPasteSpecial
Caption = "粘贴自(&S)..."
End
Begin VB.Menu mnuEditDelete
Caption = "删除(&D)"
End
Begin VB.Menu mnuEditBar1
Caption = "-"
End
Begin VB.Menu mnuEditFind
Caption = "查找(&F)..."
Shortcut = ^F
End
Begin VB.Menu mnuEditFindNext
Caption = "查找下一个"
Shortcut = {F3}
End
End
Begin VB.Menu mnuProject
Caption = "工程(&P)"
Begin VB.Menu mnuFileValidate
Caption = "文件编译"
Visible = 0 'False
End
Begin VB.Menu mnuNetPageShow
Caption = "在浏览器中预览(&B)"
End
Begin VB.Menu mnuProjectbar1
Caption = "-"
End
Begin VB.Menu mnuFileSave1
Caption = "保存知识文件"
End
Begin VB.Menu mnuFileSaveas1
Caption = "知识文件另存为"
End
Begin VB.Menu mnuAddKnowledge
Caption = "添加知识文件(&A)"
End
Begin VB.Menu mnuDeleteKnowledge
Caption = "删除知识文件(&D)"
End
Begin VB.Menu mnuExportKnowledge
Caption = "导出知识文件到知识库(&E)"
End
End
Begin VB.Menu mnuView
Caption = "视图(&V)"
Begin VB.Menu mnuViewOutput
Caption = "输出窗口"
End
Begin VB.Menu mnuViewTree
Caption = "工程窗口"
Checked = -1 'True
End
Begin VB.Menu mnuViewToolbar
Caption = "工具栏(&T)"
Checked = -1 'True
End
Begin VB.Menu mnuViewStatusBar
Caption = "状态栏(&S)"
Checked = -1 'True
End
Begin VB.Menu mnuViewBar0
Caption = "-"
End
Begin VB.Menu mnuViewRefresh
Caption = "刷新(&R)"
End
Begin VB.Menu mnuViewOptions
Caption = "选项(&O)"
End
End
Begin VB.Menu mnuInsert
Caption = "插入(&I)"
Begin VB.Menu mnuInsertDTD
Caption = "DTD约束"
End
End
Begin VB.Menu mnuTools
Caption = "工具(&T)"
Begin VB.Menu mnuLearn
Caption = "样本学习"
End
Begin VB.Menu mnuAHP
Caption = "层次分析..."
End
Begin VB.Menu mnuKnowinput
Caption = "可视录入(&V)..."
End
Begin VB.Menu mnuOutChart
Caption = "结果分析"
End
Begin VB.Menu mnuToolsOptions
Caption = "选项(&O)"
End
End
Begin VB.Menu mnureason1
Caption = "推理(&R)"
Begin VB.Menu mnuFileCompile
Caption = "文件编译(&C)"
Shortcut = {F5}
End
Begin VB.Menu mnuReason
Caption = "正向推理(&P)"
Shortcut = {F7}
End
Begin VB.Menu mnuReverseReason
Caption = "反向推理(&D)"
Shortcut = {F8}
End
Begin VB.Menu mnuEndReason
Caption = "停止推理(&E)"
End
End
Begin VB.Menu mnuWindow
Caption = "窗口(&W)"
WindowList = -1 'True
Begin VB.Menu mnuWindowNewWindow
Caption = "新建窗口(&N)"
End
Begin VB.Menu mnuWindowCommon
Caption = "一般窗口排列"
End
Begin VB.Menu mnuWindowBar0
Caption = "-"
End
Begin VB.Menu mnuWindowCascade
Caption = "层叠(&C)"
End
Begin VB.Menu mnuWindowTileHorizontal
Caption = "纵向排列(&H)"
End
Begin VB.Menu mnuWindowTileVertical
Caption = "横向排列(&V)"
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -