📄 editor.frm
字号:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmEditor
Caption = "DebugAsm 集成开发系统"
ClientHeight = 8310
ClientLeft = 165
ClientTop = 450
ClientWidth = 11880
Icon = "editor.frx":0000
LinkTopic = "Form2"
ScaleHeight = 8310
ScaleWidth = 11880
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command12
Height = 375
Left = 3840
Picture = "editor.frx":0442
Style = 1 'Graphical
TabIndex = 18
ToolTipText = "字体加粗"
Top = 0
Width = 375
End
Begin VB.CommandButton Command11
Height = 375
Left = 4320
Picture = "editor.frx":0AB4
Style = 1 'Graphical
TabIndex = 17
ToolTipText = "字体倾斜"
Top = 0
Width = 375
End
Begin VB.CheckBox Check1
Caption = "紧凑显示"
Height = 180
Left = 10320
TabIndex = 16
ToolTipText = "选中此项不显示空白行"
Top = 6480
Width = 1455
End
Begin VB.PictureBox Splitter
Appearance = 0 'Flat
BorderStyle = 0 'None
FillColor = &H00FF0000&
ForeColor = &H80000008&
Height = 240
Left = 600
MousePointer = 7 'Size N S
ScaleHeight = 240
ScaleWidth = 9735
TabIndex = 14
ToolTipText = "按住鼠标拖动改变栏目大小"
Top = 6475
Width = 9735
End
Begin MSComDlg.CommonDialog CommonDialog2
Left = 7440
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command10
Height = 375
Left = 3360
Picture = "editor.frx":1126
Style = 1 'Graphical
TabIndex = 13
ToolTipText = "字体色彩"
Top = 0
Width = 375
End
Begin VB.CommandButton Command9
Height = 375
Left = 5280
Picture = "editor.frx":1798
Style = 1 'Graphical
TabIndex = 12
ToolTipText = "运行"
Top = 0
Width = 375
End
Begin VB.CommandButton Command8
Height = 375
Left = 4800
Picture = "editor.frx":1E0A
Style = 1 'Graphical
TabIndex = 11
ToolTipText = "编译"
Top = 0
Width = 375
End
Begin VB.ListBox List1
Height = 1500
ItemData = "editor.frx":22CC
Left = 0
List = "editor.frx":22CE
TabIndex = 10
ToolTipText = "调试信息"
Top = 6720
Width = 11895
End
Begin VB.CommandButton Command1
Height = 375
Left = 0
Picture = "editor.frx":22D0
Style = 1 'Graphical
TabIndex = 7
ToolTipText = "新建文件"
Top = 0
Width = 375
End
Begin VB.CommandButton Command2
Height = 375
Left = 480
Picture = "editor.frx":293A
Style = 1 'Graphical
TabIndex = 6
ToolTipText = "打开文件"
Top = 0
Width = 375
End
Begin VB.CommandButton Command3
Height = 375
Left = 960
Picture = "editor.frx":2FA4
Style = 1 'Graphical
TabIndex = 5
ToolTipText = "保存文件"
Top = 0
Width = 375
End
Begin VB.CommandButton Command4
Height = 375
Left = 1440
Picture = "editor.frx":360E
Style = 1 'Graphical
TabIndex = 4
ToolTipText = "复制"
Top = 0
Width = 375
End
Begin VB.CommandButton Command5
Height = 375
Left = 1920
Picture = "editor.frx":3C78
Style = 1 'Graphical
TabIndex = 3
ToolTipText = "剪切"
Top = 0
Width = 375
End
Begin VB.CommandButton Command6
Height = 375
Left = 2400
Picture = "editor.frx":42E2
Style = 1 'Graphical
TabIndex = 2
ToolTipText = "粘贴"
Top = 0
Width = 375
End
Begin VB.CommandButton Command7
Caption = "All"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2880
TabIndex = 1
ToolTipText = "全选"
Top = 0
Width = 375
End
Begin RichTextLib.RichTextBox RichTextBox1
Height = 6000
Left = 0
TabIndex = 0
ToolTipText = "编辑区"
Top = 480
Width = 11895
_ExtentX = 20981
_ExtentY = 10583
_Version = 393217
Enabled = -1 'True
ScrollBars = 2
TextRTF = $"editor.frx":494C
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 6840
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComDlg.CommonDialog CommonDialog3
Left = 8040
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Link:"
Height = 180
Left = 120
TabIndex = 15
Top = 6480
Width = 450
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "工程:"
Height = 180
Left = 5760
TabIndex = 9
Top = 120
Width = 450
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Left = 6240
TabIndex = 8
ToolTipText = "当前正在编辑的工程文件"
Top = 120
Width = 90
End
Begin VB.Menu file
Caption = "文件(&F)"
Begin VB.Menu new
Caption = "新建"
Shortcut = ^N
End
Begin VB.Menu open
Caption = "打开"
Shortcut = ^O
End
Begin VB.Menu save
Caption = "保存"
Shortcut = ^S
End
Begin VB.Menu cc
Caption = "-"
End
Begin VB.Menu saveToMasm
Caption = "输出为MASM格式(*.ASM)"
End
Begin VB.Menu bb
Caption = "-"
End
Begin VB.Menu history
Caption = "1"
Index = 0
Visible = 0 'False
End
Begin VB.Menu history
Caption = "2"
Index = 1
Visible = 0 'False
End
Begin VB.Menu history
Caption = "3"
Index = 2
Visible = 0 'False
End
Begin VB.Menu aa
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu exit
Caption = "退出"
Shortcut = ^Q
End
End
Begin VB.Menu edit
Caption = "编辑(&E)"
Begin VB.Menu copy
Caption = "复制"
Shortcut = ^C
End
Begin VB.Menu cut
Caption = "剪切"
Shortcut = ^X
End
Begin VB.Menu paste
Caption = "粘贴"
Shortcut = ^V
End
Begin VB.Menu dd
Caption = "-"
End
Begin VB.Menu select
Caption = "全选"
Shortcut = ^A
End
End
Begin VB.Menu option
Caption = "选项(&O)"
Begin VB.Menu copyRTF
Caption = "复制/剪切时,包含格式(RTF)"
Checked = -1 'True
End
Begin VB.Menu copyTextOnly
Caption = "复制/剪切时,仅包含文本(Text)"
End
Begin VB.Menu gg
Caption = "-"
End
Begin VB.Menu meuAutoClearTempFiles
Caption = "编译结束时,自动清除临时文件"
Checked = -1 'True
End
End
Begin VB.Menu tool
Caption = "工具(&T)"
Begin VB.Menu meuFontSet
Caption = "字体设定"
End
Begin VB.Menu meuFontBold
Caption = "......加粗"
End
Begin VB.Menu meuFontIt
Caption = "......倾斜"
End
Begin VB.Menu meuFontColor
Caption = "字体色彩"
End
Begin VB.Menu meuFontColorMark
Caption = "......注释"
End
Begin VB.Menu meuFontColorDig
Caption = "......数字"
End
Begin VB.Menu meuFontColorListSeparator
Caption = "......分隔符"
End
Begin VB.Menu meuFontColorCharString
Caption = "......字符/字符串"
End
Begin VB.Menu meuFontColorOther
Caption = "......其它"
End
End
Begin VB.Menu run
Caption = "运行(&R)"
Begin VB.Menu startLink
Caption = "编译"
Shortcut = ^L
End
Begin VB.Menu start
Caption = "开始"
Shortcut = {F5}
End
End
Begin VB.Menu helpmain
Caption = "帮助(&H)"
Begin VB.Menu help
Caption = "帮助文件"
Shortcut = {F1}
End
Begin VB.Menu ff
Caption = "-"
End
Begin VB.Menu VisitMyWeb
Caption = "访问我的个人主页"
End
Begin VB.Menu meuMailtoZhb
Caption = "发送邮件给我 ..."
End
Begin VB.Menu ee
Caption = "-"
End
Begin VB.Menu about
Caption = "关于DebugAsm"
End
End
End
Attribute VB_Name = "frmEditor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'实现发送MAIL与HTTP功能
Private Declare Function shellexecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpoperation As String, ByVal lpfile As String, _
ByVal lpparameters As String, ByVal lpdirectory As String, ByVal nshowcmd As Long) As Long
'用于shellexecute打开方式参数
Private Const SW_SHOW = 5
'用于拖拉编辑/编译栏
Private Const SPLT_HEIGHT As Integer = 240
'---- 公有变量 -----
Dim CurrSplitPosY As Long '拖动的位置
Dim CTRL_OFFSET As Integer '拖拉条OFFSET
Dim SPLT_COLOR As Long '......色彩
Dim fIndex As Integer '历史记录索引
Dim FileName As String '文件名
Dim FileSize As Long '文件大小
Dim mainName As String '主文件名
Dim fgFileChange As Integer '文件改更标志
Dim fgMarkStart As Integer '自动着色标志---注释
Dim fgCharOrString As Integer '自动着色标志---字符 或 字符串
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -