📄 frmmain.frm
字号:
BackStyle = 0 'Transparent
Caption = "帮助"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 7
Left = 4320
TabIndex = 10
Top = 60
Width = 480
End
Begin VB.Label Meun_Label
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "工具"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 6
Left = 3720
TabIndex = 9
Top = 60
Width = 480
End
Begin VB.Label Meun_Label
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "其他"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 5
Left = 3120
TabIndex = 8
Top = 60
Width = 480
End
Begin VB.Label Meun_Label
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "编译"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 4
Left = 2520
TabIndex = 7
Top = 60
Width = 480
End
Begin VB.Label Meun_Label
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设置"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 3
Left = 1920
TabIndex = 6
Top = 60
Width = 480
End
Begin VB.Label Meun_Label
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "搜索"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 2
Left = 1320
TabIndex = 5
Top = 60
Width = 480
End
Begin VB.Label Meun_Label
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "编辑"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 1
Left = 720
TabIndex = 4
Top = 60
Width = 480
End
Begin VB.Label Meun_Label
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "文件"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 0
Left = 120
TabIndex = 3
Top = 60
Width = 480
End
Begin VB.Shape shpMenu
BackColor = &H0000D5F2&
BackStyle = 1 'Opaque
BorderColor = &H00006A79&
Height = 285
Left = 5040
Top = 0
Visible = 0 'False
Width = 480
End
End
Begin VB.Menu 文件_File
Caption = "文件"
Visible = 0 'False
WindowList = -1 'True
Begin VB.Menu New
Caption = "新建"
Begin VB.Menu VB模块
Caption = "VB模块"
End
End
Begin VB.Menu 文件
Caption = "文件"
Index = 0
End
End
Begin VB.Menu 编辑_Edit
Caption = "编辑"
Visible = 0 'False
Begin VB.Menu 编辑
Caption = "编辑"
Index = 0
End
End
Begin VB.Menu 搜索_Find
Caption = "搜索"
Visible = 0 'False
Begin VB.Menu 搜索
Caption = "搜索"
Index = 0
End
End
Begin VB.Menu 设置_Set
Caption = "设置"
Visible = 0 'False
Begin VB.Menu 设置
Caption = "设置"
Index = 0
End
End
Begin VB.Menu 编译_Comp
Caption = "编译"
Visible = 0 'False
Begin VB.Menu 编译
Caption = "编译"
Index = 0
End
End
Begin VB.Menu 其他_Other
Caption = "其他"
Visible = 0 'False
Begin VB.Menu 其他
Caption = "其他"
Index = 0
End
End
Begin VB.Menu 工具_Tools
Caption = "工具"
Visible = 0 'False
Begin VB.Menu 工具
Caption = "工具"
Index = 0
End
End
Begin VB.Menu 帮助_help
Caption = "帮助"
Visible = 0 'False
Begin VB.Menu 帮助
Caption = "帮助"
Index = 0
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public LastMnuIndex As Long
Public LastMnuOpenIndex As Long
Private Sub Image1_Click()
ActiveForm.WindowState = 1
Picture3.Visible = False
End Sub
Private Sub Image2_Click()
Picture3.Visible = False
ActiveForm.Picture3.Visible = True
ActiveForm.Picture1.Visible = True
ActiveForm.WindowState = 0
End Sub
Private Sub Image3_Click()
Unload ActiveForm
Picture3.Visible = False
End Sub
Private Sub McToolBar1_Click(ByVal ButtonIndex As Long)
On Error Resume Next
Select Case ButtonIndex
Case 0: 新建
Case 1: Unload ActiveForm
Case 2: 打开
Case 3: 保存
Case 4: 另存为
Case 5:
Case 6: ActiveForm.Cut
Case 7: ActiveForm.CopyM
Case 8: ActiveForm.Paste
Case 9: 查找
Case 10: 查找下一个
Case 11: 替换
Case 12:
Case 13: ActiveForm.Undo
Case 14: ActiveForm.Undo
Case 15:
Case 16: Link
Case 17: Make
Case 18: Script "VBScript"
Case 19:
Case 20: Shell "Cmd.exe", 1
Case 21: frmSettings.Show
Case 22: frmAbout.Show
End Select
End Sub
Private Sub MDIForm_Resize()
Picture3.Left = Me.Width - Picture3.Width - 120
TreeView1.Top = 0
TreeView1.Left = 0
TreeView1.Width = Picture2.Width
TreeView1.Height = Picture2.Height
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
SaveSetting "IDE", "Settings", "Left", frmMain.Left
SaveSetting "IDE", "Settings", "Top", frmMain.Top
SaveSetting "IDE", "Settings", "Width", frmMain.Width
SaveSetting "IDE", "Settings", "Height", frmMain.Height
End Sub
Private Sub MDIForm_Load()
frmMain.Move GetSetting("IDE", "Settings", "Left", 400), GetSetting("IDE", "Settings", "Top", 400), GetSetting("IDE", "Settings", "Width", 11000), GetSetting("IDE", "Settings", "Height", 7200)
Call 菜单
Picture3.Visible = False
新建
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -