frmtwo.frm

国防工业部VB高级编程源码

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