📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form FrmMain
BorderStyle = 3 'Fixed Dialog
Caption = "健身俱乐部管理系统"
ClientHeight = 4575
ClientLeft = 150
ClientTop = 540
ClientWidth = 8235
Icon = "FrmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4575
ScaleWidth = 8235
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin ComctlLib.Toolbar TlbMain
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 1
Top = 0
Width = 8235
_ExtentX = 14526
_ExtentY = 1508
ButtonWidth = 1455
ButtonHeight = 1349
Appearance = 1
ImageList = "ilsToolBar"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 6
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "会员注册"
Key = "MemberReg"
Object.ToolTipText = "新会员注册"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "出入检测"
Key = "InOutTest"
Object.ToolTipText = "出入检测"
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "统计"
Key = "Stat"
Object.ToolTipText = "统计"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "设置"
Key = "Set"
Object.ToolTipText = "设置"
Object.Tag = ""
ImageIndex = 4
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "帮助"
Key = "Help"
Object.ToolTipText = "帮助"
Object.Tag = ""
ImageIndex = 6
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "退出"
Key = "Exit"
Object.ToolTipText = "退出"
Object.Tag = ""
ImageIndex = 8
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog CDgHelp
Left = 2970
Top = 1935
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Timer tmrMain
Interval = 100
Left = 3510
Top = 2250
End
Begin MSComctlLib.StatusBar staMain
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 0
Top = 4230
Width = 8235
_ExtentX = 14526
_ExtentY = 609
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 2
Object.Width = 4419
MinWidth = 4410
Text = "沈阳世纪先达科技有限公司"
TextSave = "沈阳世纪先达科技有限公司"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 2
Object.Width = 4445
MinWidth = 4410
Text = "大宁健身俱乐部会员管理系统"
TextSave = "大宁健身俱乐部会员管理系统"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 2
Object.Width = 8811
MinWidth = 8820
EndProperty
EndProperty
End
Begin ComctlLib.ImageList ilsToolBar
Left = 990
Top = 1980
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 8
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":0442
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":075C
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":0A76
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":0D90
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":10AA
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":1284
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":159E
Key = ""
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":1778
Key = ""
EndProperty
EndProperty
End
Begin VB.Image ImgMain
BorderStyle = 1 'Fixed Single
Height = 3555
Left = 0
Picture = "FrmMain.frx":1A92
Stretch = -1 'True
Top = 675
Width = 8250
End
Begin VB.Menu mnuBase
Caption = "基本操作"
Begin VB.Menu mnuClose
Caption = "退出"
End
End
Begin VB.Menu mnuMember
Caption = "综合管理"
Begin VB.Menu mnuMemberReg
Caption = "新会员注册"
End
Begin VB.Menu mnuLine1
Caption = "-"
End
Begin VB.Menu MnuManage
Caption = "综合管理"
End
Begin VB.Menu mnuChest
Caption = "储物箱管理"
End
Begin VB.Menu mnuLine2
Caption = "-"
End
Begin VB.Menu MnuInOutTest
Caption = "出入检测"
End
End
Begin VB.Menu mnuStat
Caption = "统计汇总"
Enabled = 0 'False
End
Begin VB.Menu mnuSet
Caption = "设置"
Begin VB.Menu munSound
Caption = "音效"
Begin VB.Menu mnuMscSet
Caption = "打开"
End
End
Begin VB.Menu mnuCardChecking
Caption = "刷卡"
Begin VB.Menu mnuOnlyIn
Caption = "仅进入"
Checked = -1 'True
End
Begin VB.Menu mnuBoth
Caption = "进出"
End
End
End
Begin VB.Menu mnuHelp
Caption = "帮助"
Begin VB.Menu mnuAbout
Caption = "关于"
End
Begin VB.Menu mnuAboutUs
Caption = "关于我们"
End
Begin VB.Menu mnuUseHelp
Caption = "使用帮助"
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 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) As Long
'
'Const HWND_TOPMOST = -1
'Const SWP_NOMOVE = &H2
'Const SWP_NOSIZE = &H1
'Dim lngWindowPosition As Long
' 这个函数模拟了键盘行动
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_F1& = &H70 'V键的ascii码值(虚拟键值)
'显示帮助文件用
'hwndCaller指出调用者的窗口，pszFile指出要调用的文件，uCommand是发送给 HtmlHelp的命令，dwData是uCommand的参数。
Private Declare Function HtmlHelpA Lib "hhctrl.ocx" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long
Private Sub Form_Load()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -