mfrm_main.frm

套打程序

      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         =   "关闭(&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         =   "页面设置(&U)..."
      End
      Begin VB.Menu mun_FilePreView 
         Caption         =   "打印预览(&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         =   "选区(&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         =   "左对齐(&L)"
      End
      Begin VB.Menu mun_FormatHCenter 
         Caption         =   "水平居中(&C)"
      End
      Begin VB.Menu mun_FormatRight 
         Caption         =   "右对齐(&R)"
      End
      Begin VB.Menu mun_FormatLine0 
         Caption         =   "-"
      End
      Begin VB.Menu mun_FormatTop 
         Caption         =   "顶对齐(&T)"
      End
      Begin VB.Menu mun_FormatVCenter 
         Caption         =   "垂直居中(&M)"
      End
      Begin VB.Menu mun_FormatBottom 
         Caption         =   "底对齐(&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         =   "状态栏(&B)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mun_ToolLine 
         Caption         =   "-"
      End
      Begin VB.Menu mun_ToolSystem 
         Caption         =   "系统选项"
      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         =   "排列图标(&A)"
      End
   End
   Begin VB.Menu mun_Help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnu_HelpContents 
         Caption         =   "目录(&C)"
      End
      Begin VB.Menu mun_About 
         Caption         =   "关于(&A).."
      End
   End
   Begin VB.Menu mun_Right 
      Caption         =   "Right"
      Visible         =   0   'False
      Begin VB.Menu mun_ObjDraw 
         Caption         =   "选区"
         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         =   "对齐"
         Begin VB.Menu mun_AlignLeft 
            Caption         =   "左对齐"
         End
         Begin VB.Menu mun_AlignHCenter 
            Caption         =   "水平居中"
         End
         Begin VB.Menu mun_AlignRight 
            Caption         =   "右对齐"
         End
         Begin VB.Menu mun_line1 
            Caption         =   "-"
         End
         Begin VB.Menu mun_AlignTop 
            Caption         =   "顶对齐"
         End
         Begin VB.Menu mun_AlignVCenter 
            Caption         =   "垂直居中"
         End
         Begin VB.Menu mun_AlignBottom 
            Caption         =   "底对齐"
         End
      End
      Begin VB.Menu mun_SameSize 
         Caption         =   "统一尺寸"
         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") = "套打设计"
    End With
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("您确认要退出系统吗？", 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 "此程序为演示版本,不提供数据的保存与打印功能！", 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