clientdata.frm

一个比较简单通用的VB开发的通讯软件大家试试就知道了,请大家多多提宝贵意见

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form clientdata 
   BorderStyle     =   0  'None
   Caption         =   "聊天记录"
   ClientHeight    =   2820
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   9390
   FillStyle       =   0  'Solid
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   2820
   ScaleWidth      =   9390
   ShowInTaskbar   =   0   'False
   Begin RichTextLib.RichTextBox RichTextBox1 
      Height          =   2565
      Left            =   45
      TabIndex        =   0
      Top             =   120
      Width           =   8955
      _ExtentX        =   15796
      _ExtentY        =   4524
      _Version        =   393217
      Enabled         =   -1  'True
      ReadOnly        =   -1  'True
      ScrollBars      =   2
      AutoVerbMenu    =   -1  'True
      TextRTF         =   $"clientdata.frx":0000
   End
End
Attribute VB_Name = "clientdata"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
clientdata.Left = FrmClient.Left
clientdata.Width = FrmClient.Width
clientdata.Top = FrmClient.Top + FrmClient.Height
Set rs = cn.Execute("select * from data")
rs.MoveFirst
Do While rs.EOF = False
'if rs.EOF = False Then
a = rs("tcp_data")
RichTextBox1.Text = RichTextBox1.Text + vbCrLf + a
rs.MoveNext
'End If
Loop
End Sub