📄 frmsplash.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "mswinsck.ocx"
Begin VB.Form frmSplash
BorderStyle = 3 'Fixed Dialog
ClientHeight = 6360
ClientLeft = 255
ClientTop = 1410
ClientWidth = 9270
ClipControls = 0 'False
ControlBox = 0 'False
Icon = "frmSplash.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6360
ScaleWidth = 9270
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text2
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
ForeColor = &H00FF0000&
Height = 315
IMEMode = 3 'DISABLE
Left = 3593
MaxLength = 16
PasswordChar = "*"
TabIndex = 1
Top = 3930
Width = 2835
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
ForeColor = &H00FF0000&
Height = 315
Left = 3593
MaxLength = 16
TabIndex = 2
Text = "administrator"
Top = 3450
Width = 2835
End
Begin MSWinsockLib.Winsock Winsock1
Left = 300
Top = 5340
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Image Image2
Height = 300
Left = 3420
Picture = "frmSplash.frx":000C
Top = 4890
Width = 990
End
Begin VB.Image Image3
Height = 300
Left = 4860
Picture = "frmSplash.frx":0674
Top = 4890
Width = 990
End
Begin VB.Image Image1
Height = 300
Index = 0
Left = 390
Picture = "frmSplash.frx":0CDC
Top = 2730
Visible = 0 'False
Width = 990
End
Begin VB.Image Image1
Height = 300
Index = 1
Left = 390
Picture = "frmSplash.frx":1344
Top = 3330
Visible = 0 'False
Width = 990
End
Begin VB.Image Image1
Height = 300
Index = 2
Left = 390
Picture = "frmSplash.frx":19A0
Top = 3930
Visible = 0 'False
Width = 990
End
Begin VB.Image Image1
Height = 300
Index = 3
Left = 390
Picture = "frmSplash.frx":2008
Top = 4530
Visible = 0 'False
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密 码:"
ForeColor = &H000080FF&
Height = 180
Index = 1
Left = 2843
TabIndex = 8
Top = 3990
Width = 630
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户名:"
ForeColor = &H000080FF&
Height = 180
Index = 0
Left = 2850
TabIndex = 7
Top = 3510
Width = 630
End
Begin VB.Label lblLicenseTo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "LicenseTo"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 210
Left = 6210
TabIndex = 6
Top = 90
Width = 750
End
Begin VB.Label lblVersion
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Version"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C000&
Height = 285
Left = 7170
TabIndex = 4
Top = 1890
Width = 885
End
Begin VB.Label lblCompany
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "E-Mail:ctkwcs@126.com"
ForeColor = &H00808080&
Height = 180
Left = 3810
TabIndex = 3
Top = 6060
Width = 1890
End
Begin VB.Label lblCopyright
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Copyright @ 黑龙江工程学院测绘研究所"
ForeColor = &H00808080&
Height = 180
Left = 150
TabIndex = 0
Top = 6060
Width = 3240
End
Begin VB.Label lblProductName
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Product"
BeginProperty Font
Name = "楷体_GB2312"
Size = 32.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C000&
Height = 645
Index = 0
Left = 3300
TabIndex = 5
Top = 1020
Width = 2415
End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
lblProductName(0).Caption = App.Title
' lblProductName(1).Caption = App.Title
lblLicenseTo.Caption = lblLicenseTo.Caption & " " & Me.Winsock1.LocalHostName
' Me.Text2.SetFocus
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Picture = Image1(0).Picture
Image3.Picture = Image1(2).Picture
End Sub
Private Sub Form_Paint()
Dim backcolor As Integer
With Me
.AutoRedraw = True
.DrawStyle = vbInsideSolid
.DrawMode = vbCopyPen
.ScaleMode = vbPixels
.DrawWidth = 2
.ScaleHeight = 256
End With
For backcolor = 0 To 255
Me.Line (0, backcolor)-(Screen.Width, backcolor - 1), RGB(125, 0, 255 - backcolor), B
Next backcolor
End Sub
Private Sub Form_Resize()
On Error Resume Next
lblProductName(0).Left = (Me.Width - lblProductName(0).Width) / 2
' lblProductName(1).Left = lblProductName(0).Left - 1 '(Me.Width - lblProductName(1).Width) / 2 - 100
End Sub
Private Sub Image2_Click()
CheckUserNameAndPwd
End Sub
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Picture = Image1(1).Picture
End Sub
Private Sub Image3_Click()
End
End Sub
Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Picture = Image1(3).Picture
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.Text2.Text = ""
Me.Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CheckUserNameAndPwd
End If
End Sub
'校验密码（密码是机器的名称）
Sub CheckUserNameAndPwd()
Dim sUserName As String
Dim sPwd As String
sUserName = Me.Text1.Text
sPwd = Me.Text2.Text
If Len(sUserName) > 16 Then
MsgBox "用户名输入过长！", vbInformation, "提示"
Exit Sub
End If
If Len(sUserName) > 16 Then
MsgBox "用户密码输入过长！", vbInformation, "提示"
Exit Sub
End If
If sPwd = Me.Winsock1.LocalHostName Then
Set fMainForm = New MDIFrmMain
fMainForm.Show
Unload Me
Else
MsgBox "用户密码输入错误！", vbInformation, "提示"
Me.Text2.Text = ""
Me.Text2.SetFocus
Exit Sub
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -