?? frmtwo.frm
字號:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmTwo
Caption = "二人聊天世界"
ClientHeight = 7395
ClientLeft = 60
ClientTop = 345
ClientWidth = 6720
Icon = "frmTwo.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7395
ScaleWidth = 6720
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox txtself
Height = 2500
Left = 360
MultiLine = -1 'True
TabIndex = 0
Top = 4080
Width = 6000
End
Begin VB.TextBox txtSelf1
Height = 150
Left = 5475
MultiLine = -1 'True
TabIndex = 2
Top = 86640
Width = 1140
End
Begin VB.TextBox txtFrd
Height = 2500
Left = 360
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 1
Top = 960
Width = 6000
End
Begin MSWinsockLib.Winsock wskUDP
Left = 6360
Top = 3480
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin VB.Label Label2
Caption = "自己:"
Height = 255
Left = 240
TabIndex = 4
Top = 3600
Width = 735
End
Begin VB.Label lblFrd
AutoSize = -1 'True
Height = 180
Left = 1560
TabIndex = 3
Top = 480
Width = 90
WordWrap = -1 'True
End
Begin VB.Image ImgFrd
Height = 615
Left = 360
Top = 240
Width = 855
End
End
Attribute VB_Name = "frmTwo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private FirstClose As Integer
Private Sub Form_Load()
FirstClose = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
'退出二人世界
Dim k As Integer
If FirstClose = 0 Then
wskUDP.SendData "QICQCLS"
End If
For k = 0 To ConCount - 1
If arrCon(k).username = Me.Tag Then Exit For
Next
arrCon(k).username = ""
arrCon(k).ip = ""
Me.Tag = ""
End Sub
Private Sub txtSelf_Change()
wskUDP.SendData txtself.Text
End Sub
Private Sub wskUDP_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox Description, vbInformation, "出錯"
End Sub
Private Sub wskUDP_DataArrival(ByVal bytesTotal As Long)
wskUDP.GetData vardata, vbString
If vardata = "QICQCLS" Then
MsgBox "對方已經退出二人世界!"
FirstClose = 1
Unload Me
Exit Sub
End If
txtFrd.Text = vardata
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -