【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-frmFormload.frm，希望本篇文章对您学习有所帮助。
VERSION 5.00
Begin VB.Form frmFormload
BorderStyle = 0 'None
ClientHeight = 8490
ClientLeft = 0
ClientTop = 240
ClientWidth = 11880
ControlBox = 0 'False
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
LinkTopic = "Form1"
ScaleHeight = 8490
ScaleWidth = 11880
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin VB.Timer Timer2
Interval = 500
Left = 6360
Top = 7080
End
Begin VB.Frame Frame1
Caption = "会员登录区"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3255
Left = 3200
TabIndex = 5
Top = 3480
Width = 5895
Begin VB.CommandButton CmdConfig
Caption = "配 置"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4200
TabIndex = 12
Top = 2520
Width = 1215
End
Begin VB.CommandButton cmdLogin
Caption = "登 录"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4200
TabIndex = 2
Top = 960
Width = 1215
End
Begin VB.TextBox TxtUserID
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 1320
TabIndex = 0
Text = "csrs"
Top = 1110
Width = 2535
End
Begin VB.TextBox TxtPassWord
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
IMEMode = 3 'DISABLE
Left = 1320
Pass
wordChar = "*"
TabIndex = 1
Text = "csrs"
Top = 1815
Width = 2535
End
Begin
VB.CommandButton cmdLogout
Caption = "取 消"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4200
TabIndex = 6
Top = 1750
Width = 1215
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "进入机器配置 >>>>>"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 480
TabIndex = 13
Top = 2640
Width = 3360
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "帐号："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 480
TabIndex = 9
Top = 1095
Width = 855
End
Begin VB.Label Label3
Caption = "密码："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 480
TabIndex = 8
Top = 1815
Width = 855
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "请输入
会员帐号和密码"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 480
TabIndex = 7
Top = 480
Width = 2850
End
End
Begin VB.Label Label9
Caption = "
演示版，只支持win98"
Height = 375
Left = 4800
TabIndex = 14
Top = 480
Width = 3135
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "当前时间："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4200
TabIndex = 11
Top = 7125
Width = 1425
End
Begin VB.Label Label6
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 5520
TabIndex = 10
Top = 7080
Width = 150
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "要解除锁定: 请向管理请求开通或直接以会员身份登录"
BeginProperty Font
Name = "宋体"[br
相关文章
2013-9-1
