awxb01.frm

VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB

VERSION 5.00
Begin VB.Form frmAWXB01 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Form1"
   ClientHeight    =   3192
   ClientLeft      =   48
   ClientTop       =   336
   ClientWidth     =   4680
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3192
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdSend 
      Caption         =   "Send"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   1095
   End
   Begin VB.TextBox txtMessage 
      Height          =   315
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2175
   End
End
Attribute VB_Name = "frmAWXB01"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mstrThreadID As String
Private mobjMessage As AWXB02MSG.clsA02I
Public Property Let ThreadID(strNew As String)

mstrThreadID = strNew

End Property

Private Sub cmdSend_Click()

mobjMessage.AddXMessage "MAINQUEUE", txtMessage.Text

End Sub

Private Sub Form_Initialize()

Set mobjMessage = New AWXB02MSG.clsA02I

End Sub

Private Sub Form_Terminate()

Set mobjMessage = Nothing

End Sub