frmlogin.frm
来自「使用VB仿QQ界面开发的ICQ程序,采用C/S结架,实现简单文字聊天.」· FRM 代码 · 共 612 行 · 第 1/2 页
FRM
612 行
VERSION 5.00
Begin VB.Form frmLogin
BorderStyle = 1 'Fixed Single
Caption = "EM Login"
ClientHeight = 4920
ClientLeft = 150
ClientTop = 135
ClientWidth = 4830
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmLogin.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4920
ScaleWidth = 4830
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame2
Caption = "网络设置"
Height = 1455
Left = 120
TabIndex = 13
Top = 3360
Width = 4575
Begin MessengerProject.LaVolpeButton CmdApply
Height = 375
Left = 3240
TabIndex = 19
Top = 960
Width = 1095
_ExtentX = 1931
_ExtentY = 661
BTYPE = 3
TX = "&Apply"
ENAB = 0 'False
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
BCOL = 14215660
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "frmLogin.frx":0CCA
ALIGN = 1
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
OPTVAL = 0 'False
OPTMOD = 0 'False
GStart = 0
GStop = 16711680
GStyle = 0
End
Begin MessengerProject.LaVolpeButton CmdEdit
Height = 375
Left = 2040
TabIndex = 18
Top = 960
Width = 1095
_ExtentX = 1931
_ExtentY = 661
BTYPE = 3
TX = "&Edit"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
BCOL = 14215660
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "frmLogin.frx":0CE6
ALIGN = 1
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
OPTVAL = 0 'False
OPTMOD = 0 'False
GStart = 0
GStop = 16711680
GStyle = 0
End
Begin VB.TextBox txtPort
Enabled = 0 'False
Height = 285
Left = 3360
TabIndex = 17
Top = 360
Width = 975
End
Begin VB.TextBox txtIpAddress
Enabled = 0 'False
Height = 285
Left = 600
TabIndex = 15
Top = 360
Width = 1695
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Port："
Height = 195
Left = 2850
TabIndex = 16
Top = 450
Width = 525
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "IP："
Height = 195
Left = 240
TabIndex = 14
Top = 450
Width = 360
End
End
Begin MessengerProject.LaVolpeButton CmdExit
Cancel = -1 'True
Height = 375
Left = 3480
TabIndex = 8
Top = 2760
Width = 1215
_ExtentX = 2143
_ExtentY = 661
BTNICON = "frmLogin.frx":0D02
BTYPE = 3
TX = "退出(&E)"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
BCOL = 13160660
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 99
MICON = "frmLogin.frx":2E3C
ALIGN = 0
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
OPTVAL = 0 'False
OPTMOD = 0 'False
GStart = 0
GStop = 16711680
GStyle = 0
End
Begin MessengerProject.LaVolpeButton CmdLogin
CausesValidation= 0 'False
Height = 375
Left = 2040
TabIndex = 2
Top = 2760
Width = 1215
_ExtentX = 2143
_ExtentY = 661
BTNICON = "frmLogin.frx":3156
BTYPE = 3
TX = "登录(&L)"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
BCOL = 14215660
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "frmLogin.frx":5B08
ALIGN = 1
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
OPTVAL = 0 'False
OPTMOD = 0 'False
GStart = 0
GStop = 16711680
GStyle = 0
End
Begin MessengerProject.LaVolpeButton CmdOptions
Height = 375
Left = 120
TabIndex = 11
Top = 2760
Width = 1215
_ExtentX = 2355
_ExtentY = 661
BTNICON = "frmLogin.frx":5B24
BTYPE = 3
TX = "高级设置"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
BCOL = 13160660
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 99
MICON = "frmLogin.frx":782E
ALIGN = 0
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
OPTVAL = 0 'False
OPTMOD = 0 'False
GStart = 0
GStop = 16711680
GStyle = 0
End
Begin VB.Frame Frame1
Height = 1815
Left = 120
TabIndex = 3
Top = 840
Width = 4575
Begin VB.ComboBox CobUser
Height = 315
ItemData = "frmLogin.frx":784A
Left = 1200
List = "frmLogin.frx":785A
TabIndex = 0
Top = 360
Width = 2295
End
Begin MessengerProject.LaVolpeButton CmdRegister
Height = 315
Left = 3600
TabIndex = 12
ToolTipText = "Create a ScreenName!"
Top = 360
Width = 855
_ExtentX = 1508
_ExtentY = 556
BTYPE = 7
TX = "注册帐号"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?