awxb03test.frm

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

VERSION 5.00
Begin VB.Form frmAWXB03Test 
   Caption         =   "Form1"
   ClientHeight    =   4392
   ClientLeft      =   60
   ClientTop       =   348
   ClientWidth     =   5952
   LinkTopic       =   "Form1"
   ScaleHeight     =   4392
   ScaleWidth      =   5952
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text2 
      Height          =   2175
      Left            =   120
      MultiLine       =   -1  'True
      TabIndex        =   3
      Top             =   2040
      Width           =   5655
   End
   Begin VB.CommandButton cmdStop 
      Caption         =   "Stop"
      Height          =   495
      Left            =   1920
      TabIndex        =   2
      Top             =   1440
      Width           =   1695
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   960
      Width           =   1455
   End
   Begin VB.CommandButton cmdStart 
      Caption         =   "Start"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   1440
      Width           =   1575
   End
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   120
      Top             =   120
   End
End
Attribute VB_Name = "frmAWXB03Test"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private objX As AWXB04Starter.AWXB04
Private objM As New AWXB02MSG.clsA02I
Private Sub cmdStart_Click()

Set objX = CreateObject("AWXB04Starter.AWXB04")
objX.Show Text1.Text

End Sub

Private Sub cmdStop_Click()

objM.AddXMessage Text1.Text, "STOP"
Set objX = Nothing

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set objM = Nothing

End Sub
Private Sub Timer1_Timer()

Dim colMessages As Collection
Dim lngCounter As Long
objM.GetXMessages "MAINQUEUE", colMessages
For lngCounter = 1 To colMessages.Count
    Text2.Text = Text2.Text & colMessages(lngCounter).strMessage & vbCrLf
    Text2.SelLength = 0
    Text2.SelStart = Len(Text2.Text)
Next

End Sub