📄 启动.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form 启动
Caption = "启动"
ClientHeight = 8400
ClientLeft = 60
ClientTop = 345
ClientWidth = 11850
Icon = "启动.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "启动.frx":0442
ScaleHeight = 560
ScaleMode = 3 'Pixel
ScaleWidth = 790
Begin VB.Timer Timer1
Interval = 3000
Left = 1590
Top = 6030
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 1050
Top = 6000
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "文件备份"
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Left = 2880
TabIndex = 5
Top = 6210
Width = 2220
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "程序设计：姚 巍"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000014&
Height = 405
Left = 4530
TabIndex = 4
Top = 7170
Width = 2805
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "程序设计：姚 巍"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 4590
TabIndex = 3
Top = 7200
Width = 2865
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "退出系统"
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Left = 6720
TabIndex = 2
Top = 6210
Width = 2220
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "管理人才"
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Left = 6720
TabIndex = 1
Top = 5430
Width = 2220
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "技术人才"
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 525
Left = 2880
TabIndex = 0
Top = 5340
Width = 2220
End
End
Attribute VB_Name = "启动"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'API函数声明
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal X As Long, ByVal hWndInsterAfter As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwflags As Long) As Long
'常数声明
Const REG_SZ = 1
Const HKEY_CURRENT_USER = &H80000001
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
'变量声明
Dim hWndl As Long
Private Sub Form_Activate()
If 用户登录.Falg = 1 Then
Label1.Visible = True: Label2.Visible = True
Label3.Visible = True: Label4.Visible = True
End If
End Sub
Private Sub Form_Click()
If 用户登录.Falg <> 1 Then
用户登录.Show
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii <> 0 Then
If 用户登录.Falg <> 1 Then
用户登录.Show
End If
End If
End Sub
Private Sub Form_Load()
Dim A As String
Dim B As Integer
A = Me.hwnd
B = 0
Disabled A, B
Me.Left = 0: Me.Top = 0
Label1.Visible = False: Label2.Visible = False
Label3.Visible = False: Label4.Visible = False
PlaySound App.Path + "\Windows 登录音.wav", 0&, &H1
'获得窗体句柄
hWndl = FindWindow("Shell_traywnd", "")
'关闭任务栏
' SetWindowPos hWndl, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
'得到屏幕当前分辨率
SystemParametersInfo SPI_GETWORKAREA, vbNull, VarPtr(apiRECT), 0
'将屏幕当前分辨率保存于 Screen.txt
Open App.Path + "\" + "Screen.txt" For Output As #1
Write #1, apiRECT.Right
Close #1
'将屏幕分辨率改为800×600
SetDisplayMode 800, 600, 16
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H80000012: Label2.ForeColor = &H80000012
Label3.ForeColor = &H80000012: Label4.ForeColor = &H80000012
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF&
End Sub
Private Sub Label1_Click()
Unload Me
技术人才主菜单.Show
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFF&
End Sub
Private Sub Label2_Click()
Unload Me
管理人才主菜单.Show
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.ForeColor = &HFF&
End Sub
Private Sub Label3_Click()
Dim FileName1, FileName2 As String
On Error GoTo A1
CommonDialog1.Filter = "*.mdb|*.mdb"
CommonDialog1.ShowOpen
FileName1 = CommonDialog1.FileName
CommonDialog1.ShowSave
FileName2 = CommonDialog1.FileName
A1:
If Err.Number = 75 Or Err.Number = 53 Then
Exit Sub
Else
If Err.Number = 70 Then
If FileName1 = FileName2 Then
MsgBox " 文件已经存在，请更改文件名 ！", vbOKOnly + vbExclamation
Exit Sub
Else
Exit Sub
End If
Else
FileCopy FileName1, FileName2
End If
End If
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = &HFF&
End Sub
Private Sub Label4_Click()
Quit
End Sub
Private Sub Quit()
'打开任务栏
SetWindowPos hWndl, 0, 0, 0, 0, 0, SWP_SHOWWINDOW
'读取原屏幕分辨率数值
Open App.Path + "\" + "Screen.txt" For Input As #1
Input #1, apiRECT.Right
Close #1
'按原屏幕分辨率重新设置
Call SetWindowPos(hWndl, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
Select Case apiRECT.Right
Case 1024
SetDisplayMode 1024, 768, 16
Case 800
SetDisplayMode 800, 600, 16
Case 640
SetDisplayMode 640, 480, 16
End Select
Unload Me
End
End Sub
Private Sub Timer1_Timer()
If 用户登录.Falg <> 1 Then
用户登录.Show
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -