📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
BackColor = &H00E0E0E0&
Caption = "公文管理系统"
ClientHeight = 8595
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8595
ScaleWidth = 11880
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture1
Align = 3 'Align Left
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 8595
Left = 0
ScaleHeight = 8565
ScaleWidth = 11850
TabIndex = 0
Top = 0
Width = 11880
Begin VB.PictureBox Picture4
BackColor = &H00FFFFFF&
Height = 1095
Left = 1770
Picture = "FrmMain.frx":0000
ScaleHeight = 1035
ScaleWidth = 10005
TabIndex = 4
Top = 0
Width = 10065
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "专为行政办公人员设计的工具箱 集成 Office 的强大功能"
BeginProperty Font
Name = "仿宋_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 345
Left = 150
TabIndex = 5
Top = 630
Width = 8235
End
End
Begin VB.PictureBox Picture2
BackColor = &H00800000&
Height = 8535
Left = 0
ScaleHeight = 8475
ScaleWidth = 1695
TabIndex = 2
Top = 0
Width = 1755
Begin MSComctlLib.ImageList ImageList2
Left = 240
Top = 930
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":14864
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":1D83D
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":233B4
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":25B8E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":35146
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":391F9
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":3CFC9
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":45A37
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":4A02B
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":4E839
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":4EC8B
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":4F0DD
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":4F52F
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":4F981
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":4FDD3
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":50225
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":50677
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":50AC9
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ListView ListView1
Height = 8235
Left = 0
TabIndex = 3
Top = 60
Width = 1680
_ExtentX = 2963
_ExtentY = 14526
Arrange = 1
LabelEdit = 1
Sorted = -1 'True
LabelWrap = 0 'False
HideSelection = -1 'True
HideColumnHeaders= -1 'True
HotTracking = -1 'True
_Version = 393217
Icons = "ImageList2"
SmallIcons = "ImageList1"
ColHdrIcons = "ImageList1"
ForeColor = -2147483634
BackColor = 8388608
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
End
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 7425
Left = 1770
ScaleHeight = 7395
ScaleWidth = 10035
TabIndex = 1
Top = 1110
Width = 10065
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
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 Form_Unload(Cancel As Integer)
End
End Sub
Private Sub ListView1_Click()
Dim frm As Form
Select Case ListView1.SelectedItem.Text
Case "收文管理"
Set frm = New frmShouWen
Case "发文管理"
Set frm = New frmFaWen
Case "便函管理"
Set frm = New frmBianHan
Case "签报管理"
Set frm = New frmQianBao
Case "公文归档"
Set frm = New frmWenJianGuiDang
Case "公文传阅"
Set frm = New frmShouWen_Display
Case "公文编辑"
Set frm = New frmFaWenGaoZhi
Case "公文立卷"
Set frm = New frmWenJianGuiDang
Case "数据维护"
Set frm = New frmBuMen
Case Else
End Select
If Not frm Is Nothing Then
frm.Show
SetParent frm.hWnd, Picture3.hWnd
End If
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 Form_Load()
On Error Resume Next
ListView1.View = lvwIcon
ListView1.Arrange = lvwAutoTop
ListView1.ListItems.Add 1, , "收文管理", 1, 1
ListView1.ListItems.Add 2, , "发文管理", 2, 2
ListView1.ListItems.Add 3, , "便函管理", 3, 3
ListView1.ListItems.Add 4, , "签报管理", 4, 4
ListView1.ListItems.Add 5, , "公文归档", 5, 5
ListView1.ListItems.Add 6, , "公文传阅", 6, 6
ListView1.ListItems.Add 7, , "公文编辑", 7, 7
ListView1.ListItems.Add 8, , "公文立卷", 8, 8
ListView1.ListItems.Add 9, , "数据维护", 9, 9
ListView1.Sorted = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -