mdiformmain.frm

公文管理系统》是一套通过行文收发

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIFormMain 
   BackColor       =   &H8000000C&
   Caption         =   "公文管理系统1.0"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   Icon            =   "MDIFormMain.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Align           =   3  'Align Left
      Height          =   8595
      Left            =   0
      ScaleHeight     =   8535
      ScaleWidth      =   11820
      TabIndex        =   0
      Top             =   0
      Width           =   11880
      Begin VB.PictureBox Picture3 
         BackColor       =   &H80000001&
         Height          =   8475
         Left            =   1590
         ScaleHeight     =   8415
         ScaleWidth      =   10185
         TabIndex        =   3
         Top             =   30
         Width           =   10245
      End
      Begin VB.PictureBox Picture2 
         Height          =   8505
         Left            =   0
         ScaleHeight     =   8445
         ScaleWidth      =   1485
         TabIndex        =   1
         Top             =   0
         Width           =   1545
         Begin MSComctlLib.ImageList ImageList1 
            Left            =   0
            Top             =   0
            _ExtentX        =   1005
            _ExtentY        =   1005
            BackColor       =   -2147483643
            ImageWidth      =   32
            ImageHeight     =   32
            MaskColor       =   12632256
            _Version        =   393216
            BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
               NumListImages   =   7
               BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                  Picture         =   "MDIFormMain.frx":0742
                  Key             =   ""
               EndProperty
               BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                  Picture         =   "MDIFormMain.frx":0B94
                  Key             =   ""
               EndProperty
               BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                  Picture         =   "MDIFormMain.frx":0FE6
                  Key             =   ""
               EndProperty
               BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                  Picture         =   "MDIFormMain.frx":1438
                  Key             =   ""
               EndProperty
               BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                  Picture         =   "MDIFormMain.frx":188A
                  Key             =   ""
               EndProperty
               BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                  Picture         =   "MDIFormMain.frx":1CDC
                  Key             =   ""
               EndProperty
               BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                  Picture         =   "MDIFormMain.frx":212E
                  Key             =   ""
               EndProperty
            EndProperty
         End
         Begin MSComctlLib.ListView ListView1 
            Height          =   8535
            Left            =   30
            TabIndex        =   2
            Top             =   0
            Width           =   1590
            _ExtentX        =   2805
            _ExtentY        =   15055
            Arrange         =   1
            LabelEdit       =   1
            Sorted          =   -1  'True
            LabelWrap       =   -1  'True
            HideSelection   =   -1  'True
            HideColumnHeaders=   -1  'True
            HotTracking     =   -1  'True
            _Version        =   393217
            Icons           =   "ImageList1"
            SmallIcons      =   "ImageList1"
            ColHdrIcons     =   "ImageList1"
            ForeColor       =   -2147483640
            BackColor       =   -2147483624
            Appearance      =   0
            NumItems        =   0
         End
      End
   End
End
Attribute VB_Name = "MDIFormMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SetWindowPos& Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Private Sub ListView1_Click()
    Dim frm As Form
    
    Select Case ListView1.SelectedItem.Text
        Case "收文管理"
        Case "发文管理"
            Set frm = New frmFaWen
        Case "公文归档"
        Case "公文传阅"
        Case "公文编辑"
        Case "公文立卷"
        Case "数据维护"
    End Select
    
    frm.Show
    
    SetParent frm.hWnd, Picture3.hWnd

End Sub
Private Sub LoadControl(obj As String, sname As String)
   Dim objExt As Object
   
   Dim vobj As Control
   
   For Each vobj In Controls
        If vobj.Name = sname Then
            Controls.Remove vobj
        End If
   Next
   
   Licenses.Clear
   Licenses.Add obj, sname
   Set objExt = Controls.Add(obj, sname, Picture3)
   objExt.Visible = True
End Sub

Private Sub MDIForm_Load()
    On Error Resume Next
    ListView1.View = lvwIcon
    ListView1.ListItems.Add 1, , "收文管理", 1
    ListView1.ListItems.Add 2, , "发文管理", 2
    ListView1.ListItems.Add 3, , "公文归档", 3
    ListView1.ListItems.Add 4, , "公文传阅", 4
    ListView1.ListItems.Add 5, , "公文编辑", 5
    ListView1.ListItems.Add 6, , "公文立卷", 6
    ListView1.ListItems.Add 7, , "数据维护", 7
    ListView1.Sorted = False

End Sub