?? mfrm_main.frm
字號(hào):
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Menu mun_File
Caption = "文件(&F)"
Begin VB.Menu mun_FileNew
Caption = "新建(&N)"
Shortcut = ^N
End
Begin VB.Menu mun_FileOpen
Caption = "打開(&O)"
Shortcut = ^O
End
Begin VB.Menu mun_FileClose
Caption = "關(guān)閉(&C)"
End
Begin VB.Menu mun_FileLine0
Caption = "-"
End
Begin VB.Menu mun_FileSave
Caption = "保存(&S)"
Shortcut = ^S
End
Begin VB.Menu mun_FileSaveAs
Caption = "另存為(&A)..."
End
Begin VB.Menu mun_FileLine1
Caption = "-"
End
Begin VB.Menu mun_FilePageSetup
Caption = "頁面設(shè)置(&U)..."
End
Begin VB.Menu mun_FilePreView
Caption = "打印預(yù)覽(&V)"
End
Begin VB.Menu mun_FileLine2
Caption = "-"
End
Begin VB.Menu mun_FileMRU
Caption = "最近文件"
Visible = 0 'False
End
Begin VB.Menu mun_FileLine3
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnu_FileExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mun_Edit
Caption = "編輯(&E)"
Begin VB.Menu mun_EditDel
Caption = "刪除(&D)"
Shortcut = {DEL}
End
Begin VB.Menu mun_EditLock
Caption = "鎖定(&U)"
Shortcut = ^U
End
Begin VB.Menu mun_EditClone
Caption = "克隆(&C)"
Shortcut = ^C
End
Begin VB.Menu mun_EditLine0
Caption = "-"
End
Begin VB.Menu mun_EditSelAll
Caption = "全選(&A)"
Shortcut = ^A
End
Begin VB.Menu mun_EditProp
Caption = "屬性(&P)"
Shortcut = ^P
End
End
Begin VB.Menu mun_Draw
Caption = "繪制(&D)"
Begin VB.Menu mun_DrawObj
Caption = "選區(qū)(&S)"
Checked = -1 'True
Index = 0
Shortcut = ^R
End
Begin VB.Menu mun_DrawObj
Caption = "直線(&L)"
Index = 1
Shortcut = ^L
End
Begin VB.Menu mun_DrawObj
Caption = "文字(&T)"
Index = 2
Shortcut = ^T
End
Begin VB.Menu mun_DrawObj
Caption = "圖形(&I)"
Index = 3
Shortcut = ^I
End
End
Begin VB.Menu mun_Format
Caption = "格式(&F)"
Begin VB.Menu mun_FormatLeft
Caption = "左對(duì)齊(&L)"
End
Begin VB.Menu mun_FormatHCenter
Caption = "水平居中(&C)"
End
Begin VB.Menu mun_FormatRight
Caption = "右對(duì)齊(&R)"
End
Begin VB.Menu mun_FormatLine0
Caption = "-"
End
Begin VB.Menu mun_FormatTop
Caption = "頂對(duì)齊(&T)"
End
Begin VB.Menu mun_FormatVCenter
Caption = "垂直居中(&M)"
End
Begin VB.Menu mun_FormatBottom
Caption = "底對(duì)齊(&B)"
End
Begin VB.Menu mun_FormatLine1
Caption = "-"
End
Begin VB.Menu mun_FormatWidth
Caption = "相同寬度(&W)"
End
Begin VB.Menu mun_FormatHeight
Caption = "相同高度(&H)"
End
Begin VB.Menu mun_FormatSize
Caption = "相同尺寸(&S)"
End
End
Begin VB.Menu mun_Tool
Caption = "工具(&T)"
Begin VB.Menu mun_ViewToolbar
Caption = "工具欄(&T)"
Checked = -1 'True
End
Begin VB.Menu mun_ViewStatusbar
Caption = "狀態(tài)欄(&B)"
Checked = -1 'True
End
Begin VB.Menu mun_ToolLine
Caption = "-"
End
Begin VB.Menu mun_ToolSystem
Caption = "系統(tǒng)選項(xiàng)"
End
End
Begin VB.Menu mun_Window
Caption = "窗口(&W)"
WindowList = -1 'True
Begin VB.Menu mnu_WindowCascade
Caption = "層疊(&C)"
End
Begin VB.Menu mnu_WindowTileHorizontal
Caption = "橫向平鋪(&H)"
End
Begin VB.Menu mnu_WindowTileVertical
Caption = "縱向平鋪(&V)"
End
Begin VB.Menu mnu_WindowArrangeIcons
Caption = "排列圖標(biāo)(&A)"
End
End
Begin VB.Menu mun_Help
Caption = "幫助(&H)"
Begin VB.Menu mnu_HelpContents
Caption = "目錄(&C)"
End
Begin VB.Menu mun_About
Caption = "關(guān)于(&A).."
End
End
Begin VB.Menu mun_Right
Caption = "Right"
Visible = 0 'False
Begin VB.Menu mun_ObjDraw
Caption = "選區(qū)"
Checked = -1 'True
Index = 0
End
Begin VB.Menu mun_ObjDraw
Caption = "直線"
Index = 1
End
Begin VB.Menu mun_ObjDraw
Caption = "文字"
Index = 2
End
Begin VB.Menu mun_ObjDraw
Caption = "圖形"
Index = 3
End
Begin VB.Menu mun_Line0
Caption = "-"
End
Begin VB.Menu mun_Align
Caption = "對(duì)齊"
Begin VB.Menu mun_AlignLeft
Caption = "左對(duì)齊"
End
Begin VB.Menu mun_AlignHCenter
Caption = "水平居中"
End
Begin VB.Menu mun_AlignRight
Caption = "右對(duì)齊"
End
Begin VB.Menu mun_line1
Caption = "-"
End
Begin VB.Menu mun_AlignTop
Caption = "頂對(duì)齊"
End
Begin VB.Menu mun_AlignVCenter
Caption = "垂直居中"
End
Begin VB.Menu mun_AlignBottom
Caption = "底對(duì)齊"
End
End
Begin VB.Menu mun_SameSize
Caption = "統(tǒng)一尺寸"
Begin VB.Menu mun_SameWidth
Caption = "相同寬度"
End
Begin VB.Menu mun_SameHeight
Caption = "相同高度"
End
Begin VB.Menu mun_SameAll
Caption = "相同尺寸"
End
End
Begin VB.Menu mun_Line2
Caption = "-"
End
Begin VB.Menu mun_Delete
Caption = "刪除"
End
Begin VB.Menu mun_Lock
Caption = "鎖定"
End
Begin VB.Menu mun_Clone
Caption = "克隆"
End
Begin VB.Menu mun_Line3
Caption = "-"
End
Begin VB.Menu mun_SelAll
Caption = "全選"
End
Begin VB.Menu mun_ObjProp
Caption = "屬性"
End
End
End
Attribute VB_Name = "mFrm_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public mbSelLoad As Boolean
Public Sub InitSystem()
End Sub
Private Sub MDIForm_Load()
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
With mFrm_Main.sbrMain
.Panels("dbn") = "None"
.Panels("use") = "Demo"
.Panels("mod") = "套打設(shè)計(jì)"
End With
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("您確認(rèn)要退出系統(tǒng)嗎？", vbYesNo + vbExclamation) = vbNo Then Cancel = True
ClipCursor ByVal 0&
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
If mbSelLoad Then Unload mFrm_Select
Set mFrm_Main = Nothing
Set g_ActFrm = Nothing
End Sub
Private Sub MDIForm_Resize()
On Error Resume Next
With sbrMain
.Panels(1).Width = Me.Width - (.Panels(2).Width + .Panels(3).Width + .Panels(4).Width + .Panels(5).Width + .Panels(6).Width) - 400
End With
End Sub
Private Sub mnu_FileExit_Click()
Call Exited
End Sub
Private Sub mnu_WindowArrangeIcons_Click()
Me.Arrange vbArrangeIcons
End Sub
Private Sub mnu_WindowTileVertical_Click()
Me.Arrange vbTileVertical
End Sub
Private Sub mnu_WindowTileHorizontal_Click()
Me.Arrange vbTileHorizontal
End Sub
Private Sub mnu_WindowCascade_Click()
Me.Arrange vbCascade
End Sub
Private Sub mun_About_Click()
MsgBox "此程序?yàn)檠菔景姹?不提供數(shù)據(jù)的保存與打印功能！", vbExclamation, Me.Caption
End Sub
Private Sub mun_AlignBottom_Click()
If g_ActFrm Is Nothing Then Exit Sub
g_ActFrm.SetAlign (AlignBottom)
End Sub
Private Sub mun_AlignHCenter_Click()
If g_ActFrm Is Nothing Then Exit Sub
g_ActFrm.SetAlign (AlignHCenter)
End Sub
Private Sub mun_AlignLeft_Click()
If g_ActFrm Is Nothing Then Exit Sub
g_ActFrm.SetAlign (AlignLeft)
End Sub
Private Sub mun_AlignRight_Click()
If g_ActFrm Is Nothing Then Exit Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -