?? frmcharuser.frm
字號(hào):
VERSION 5.00
Begin VB.Form frmCharUser
BorderStyle = 3 'Fixed Dialog
Caption = "登陸聊天室"
ClientHeight = 1590
ClientLeft = 45
ClientTop = 330
ClientWidth = 5745
Icon = "frmCharUser.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1590
ScaleWidth = 5745
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text1
Height = 270
Left = 2160
TabIndex = 0
Top = 240
Width = 1935
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "frmCharUser.frx":0442
Left = 2160
List = "frmCharUser.frx":044C
TabIndex = 1
Text = "男生"
Top = 960
Width = 1935
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "取消"
Height = 375
Left = 4440
TabIndex = 3
Top = 960
Width = 975
End
Begin VB.CommandButton Command1
Caption = "進(jìn)入"
Default = -1 'True
Height = 375
Left = 4440
TabIndex = 2
Top = 240
Width = 975
End
Begin VB.Label Label2
Caption = "請(qǐng)選擇你的標(biāo)識(shí):"
Height = 255
Left = 360
TabIndex = 5
Top = 960
Width = 1935
End
Begin VB.Label Label1
Caption = "在些輸入你的大名:"
Height = 255
Left = 360
TabIndex = 4
Top = 240
Width = 1815
End
End
Attribute VB_Name = "frmCharUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next
If Text1.Text = "" Or Text1.Text = "大家" Then
MsgBox "不能不起個(gè)名字呀!", vbInformation + vbSystemModal, "小小問題"
Text1.SetFocus
Exit Sub
End If
If LockName Then
Exit Sub
End If
frmChat.mThisName = Text1.Text
frmChat.mThisSex = Combo1.Text
frmChat.IsLogin = True
frmChat.Show
frmButton.Winsock1.SendData "_talk" + Chr(0) + "login" + Chr(0) + Text1.Text + Chr(0) + Combo1.Text
Unload frmCharUser
End Sub
Private Sub Command2_Click()
frmChat.IsLogin = False
'frmChat.Visible = False
frmChat.Visible = False
Unload frmChat
DoEvents
Unload frmCharUser
End Sub
Private Function LockName() As Boolean
If InStr(1, Text1.Text, "爸") <> 0 Or InStr(1, Text1.Text, "媽") <> 0 Or _
InStr(1, Text1.Text, "爹") <> 0 Or InStr(1, Text1.Text, "娘") <> 0 Or _
InStr(1, Text1.Text, "爺") <> 0 Or InStr(1, Text1.Text, "奶") <> 0 Or _
InStr(1, Text1.Text, "叔") <> 0 Or InStr(1, Text1.Text, "姑") <> 0 Or _
InStr(1, Text1.Text, "舅") <> 0 Or InStr(1, Text1.Text, "姨") <> 0 Or _
InStr(1, Text1.Text, "她") <> 0 Or InStr(1, Text1.Text, "他") <> 0 _
Then
LockName = True
MsgBox "這個(gè)名字不好吧,可能要被人罵了!對(duì)了,你是不是想找事呀?", vbExclamation + vbSystemModal, "問題不小"
Text1.SetFocus
Exit Function
End If
If InStr(1, Text1.Text, "雞巴") <> 0 Or InStr(1, Text1.Text, "機(jī)吧") <> 0 Or _
InStr(1, Text1.Text, "屄") <> 0 Or InStr(1, Text1.Text, "操") <> 0 Or _
InStr(1, Text1.Text, "肏") <> 0 Or InStr(1, Text1.Text, "機(jī)巴") <> 0 Or _
InStr(1, Text1.Text, "雞吧") <> 0 Or InStr(1, Text1.Text, "屌") <> 0 _
Then
LockName = True
MsgBox "你這個(gè)名字太不象話了,你必須要換一個(gè)!!!", vbExclamation + vbSystemModal, "問題嚴(yán)重"
Text1.SetFocus
Exit Function
End If
End Function
Private Sub Form_Load()
'Me.Show
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -