mdifrmmain.frm

本人写的一个垃圾代码,主要是实现简单的打印功能

VERSION 5.00
Object = "{628CC7D5-A6CF-11D0-B997-00805F024BFD}#1.0#0"; "VertMenu.ocx"
Begin VB.MDIForm MDIfrmMain 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000A&
   Caption         =   "安义县村镇建设发证系统"
   ClientHeight    =   7695
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   13155
   Icon            =   "MDIfrmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   NegotiateToolbars=   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      Align           =   3  'Align Left
      Height          =   7695
      Left            =   0
      ScaleHeight     =   7635
      ScaleWidth      =   1215
      TabIndex        =   0
      Top             =   0
      Width           =   1275
      Begin VertMenu.VerticalMenu VerticalMenu1 
         Height          =   7695
         Left            =   0
         TabIndex        =   1
         Top             =   0
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   13573
         MenusMax        =   3
         MenuCaption1    =   "数据处理"
         MenuItemsMax1   =   2
         MenuItemIcon11  =   "MDIfrmMain.frx":038A
         MenuItemCaption11=   "申请发证"
         MenuItemIcon12  =   "MDIfrmMain.frx":06A4
         MenuItemCaption12=   "查    询"
         MenuCaption2    =   "打印证件"
         MenuItemsMax2   =   7
         MenuItemIcon21  =   "MDIfrmMain.frx":09BE
         MenuItemCaption21=   "用地规划"
         MenuItemIcon22  =   "MDIfrmMain.frx":0C9C
         MenuItemCaption22=   "建筑工程"
         MenuItemIcon23  =   "MDIfrmMain.frx":0F7A
         MenuItemCaption23=   "选址意见"
         MenuItemIcon24  =   "MDIfrmMain.frx":1294
         MenuItemCaption24=   "房屋建设"
         MenuItemIcon25  =   "MDIfrmMain.frx":15AE
         MenuItemCaption25=   "村镇用地"
         MenuItemIcon26  =   "MDIfrmMain.frx":18C8
         MenuItemCaption26=   "村镇房屋"
         MenuItemIcon27  =   "MDIfrmMain.frx":1BE2
         MenuItemCaption27=   "退     出"
         MenuCaption3    =   "联系方式"
         MenuItemIcon31  =   "MDIfrmMain.frx":1DBC
         MenuItemCaption31=   "关于....."
      End
   End
End
Attribute VB_Name = "MDIfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub MDIForm_Load()

  'frmWelcome.Show
  'frmWelcome.ZOrder 0
  
End Sub

Private Sub MDIForm_Resize()
'VerticalMenu1.Height = Me.Height - 400
'VerticalMenu1.Refresh
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
  
 ' If MsgBox("确定退出系统?", vbQuestion + vbYesNo, "退出") = vbYes Then

   'Dim frm As Form
   'For Each frm In Forms
  '     Unload frm
  '     Set frm = Nothing
  ' Next frm
'  Else
 '     Cancel = -1
  '    frmWelcome.Show
 ' End If

End Sub

Private Sub VerticalMenu1_MenuItemClick(MenuNumber As Long, MenuItem As Long)
 Select Case MenuNumber
 Case 1
   Select Case MenuItem
     Case 1
      frmData.Show
      frmData.ZOrder 0
     Case 2
      frmQuery.Show
     frmQuery.ZOrder 0
     
  End Select
 Case 2
    Select Case MenuItem
    Case 1
     frmA.Show
     frmA.ZOrder 0
     Case 2
     frmB.Show
     frmB.ZOrder 0
     Case 3
     frmC.Show
     frmC.ZOrder 0
     Case 4
     frmD.Show
     frmD.ZOrder 0
     Case 5
     Case 6
     Case 7
       End
    End Select
 Case 3
    Select Case MenuItem
     Case 1
       frmAbout.Show 1
    End Select
 End Select
End Sub