msgsa.frm

星子行主机控制系统用于主机管理,方便远程操作,通信等功能.更 方便用于局域网,管理速度快,连接简单方便.注意:星子行连接可用 于带路由主机与带路由主机之间连接,非路由与非路由之间连接.带

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Msgsa 
   BackColor       =   &H80000011&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "聊天记录"
   ClientHeight    =   6660
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4695
   Icon            =   "Msgsa.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6660
   ScaleWidth      =   4695
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   4920
      Top             =   6000
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H80000011&
      Height          =   4335
      Left            =   240
      TabIndex        =   0
      Top             =   -120
      Width           =   4215
      Begin RichTextLib.RichTextBox Box1 
         Height          =   3975
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   3975
         _ExtentX        =   7011
         _ExtentY        =   7011
         _Version        =   393217
         BorderStyle     =   0
         ScrollBars      =   2
         TextRTF         =   $"Msgsa.frx":5D52
      End
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H80000011&
      Height          =   1455
      Left            =   240
      TabIndex        =   2
      Top             =   4200
      Width           =   4215
   End
   Begin VB.Image Image1 
      Height          =   675
      Left            =   -1200
      Picture         =   "Msgsa.frx":5DEF
      Top             =   5640
      Width           =   11400
   End
   Begin VB.Image Image5 
      Height          =   675
      Left            =   -1560
      Picture         =   "Msgsa.frx":E5BB
      Top             =   -480
      Width           =   11400
   End
   Begin VB.Image Image2 
      Height          =   11400
      Left            =   4440
      Picture         =   "Msgsa.frx":16F95
      Top             =   -5640
      Width           =   675
   End
   Begin VB.Image Image3 
      Height          =   11400
      Left            =   -360
      Picture         =   "Msgsa.frx":20257
      Top             =   -5640
      Width           =   675
   End
End
Attribute VB_Name = "Msgsa"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()

End Sub

Private Sub Form_Load()

On Error Resume Next
'Msgsa.left = Msgwin.left
Msgsa.Height = Msgwin.Height - 1000
Msgsa.top = Msgwin.top
Msgsa.left = Msgwin.left + Msgwin.Width

Set rs = cn.Execute("select * from Data")
rs.MoveFirst
Do While rs.EOF = False
'if rs.EOF = False Then
a = rs("tcp_Data")
Box1.Text = Box1.Text + vbCrLf + a
rs.MoveNext
'End If
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)

'msgbox"!!"

End Sub

Private Sub Timer1_Timer()
On Error Resume Next
'Msgsa.left = Msgwin.left
Msgsa.Height = Msgwin.Height - 1200
Msgsa.top = Msgwin.top
Msgsa.left = Msgwin.left + Msgwin.Width
End Sub