📄 frmlogin.frm
字号:
VERSION 5.00
Begin VB.Form Frmlogin
AutoRedraw = -1 'True
Caption = "土地等级系统登录"
ClientHeight = 8850
ClientLeft = 4095
ClientTop = 1965
ClientWidth = 11355
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
LinkTopic = "Form1"
Picture = "Frmlogin.frx":0000
ScaleHeight = 8850
ScaleWidth = 11355
Begin VB.Timer Timer5
Left = 7920
Top = 6480
End
Begin VB.Timer Timer4
Interval = 10
Left = 2520
Top = 2880
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BackColor = &H8000000E&
FillColor = &H00808080&
ForeColor = &H00C0C000&
Height = 975
Left = 0
ScaleHeight = 915
ScaleWidth = 4515
TabIndex = 8
Top = 600
Width = 4575
End
Begin VB.Timer Timer3
Interval = 1000
Left = 5040
Top = 4080
End
Begin VB.CommandButton Command1
Caption = "Command1"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = -240
TabIndex = 7
Top = 7200
Visible = 0 'False
Width = 1215
End
Begin VB.Timer Timer2
Interval = 1000
Left = 0
Top = 6240
End
Begin VB.Timer Timer1
Interval = 1000
Left = 240
Top = 5160
End
Begin VB.Image Image8
Height = 5415
Left = 4800
Top = 0
Width = 6615
End
Begin VB.Image Image7
Height = 4095
Left = 0
Top = 4200
Width = 7215
End
Begin VB.Image Image6
Height = 5400
Left = 4800
Picture = "Frmlogin.frx":6F75
Top = 0
Width = 7200
End
Begin VB.Image Image5
Height = 5400
Left = 0
Picture = "Frmlogin.frx":BAC8
Top = 4200
Width = 7200
End
Begin VB.Image Image4
Height = 5400
Left = 4800
Picture = "Frmlogin.frx":10B04
Top = 0
Width = 7200
End
Begin VB.Image Image3
Height = 5400
Left = 0
Picture = "Frmlogin.frx":15E53
Top = 4200
Width = 7200
End
Begin VB.Image Image2
Height = 5400
Left = 4800
Picture = "Frmlogin.frx":1B974
Top = 0
Width = 7200
End
Begin VB.Image Image1
Height = 5400
Left = 0
Picture = "Frmlogin.frx":1FF05
Top = 4200
Width = 7200
End
Begin VB.Label Label7
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2280
TabIndex = 6
Top = 0
Width = 1215
End
Begin VB.Label Label6
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1800
TabIndex = 5
Top = 0
Width = 1215
End
Begin VB.Label Label5
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1560
TabIndex = 4
Top = 0
Width = 1215
End
Begin VB.Label Label4
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 960
TabIndex = 3
Top = 0
Width = 1215
End
Begin VB.Label Label3
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 2
Top = 0
Width = 1215
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 1
Top = 0
Width = 1215
End
Begin VB.Label Label1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 0
TabIndex = 0
Top = 0
Width = 1215
End
Begin VB.Menu menufile
Caption = "文件"
Begin VB.Menu menurun
Caption = "载入"
End
Begin VB.Menu menuquit
Caption = "退出"
End
End
End
Attribute VB_Name = "Frmlogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function FlashWindow Lib "user32" ( _
ByVal hwnd As Long, ByVal bInvert As Long) As Long '窗体闪烁
Dim OnFlash As Boolean '窗体闪烁
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Dim flag As Integer
Dim ss As String, sw As String ' ss：所要显示的字符串；飞入
' sw：当前显示的字符；⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -