frmstatus.frm

AVAYA IPO 430系列交换机 TAPI 2.0软件电话源代码

VERSION 5.00
Begin VB.Form frmStatus 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "TAPI Tester - Status"
   ClientHeight    =   10725
   ClientLeft      =   105
   ClientTop       =   390
   ClientWidth     =   14670
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   10725
   ScaleWidth      =   14670
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdDump 
      Caption         =   "DUMP"
      Height          =   390
      Left            =   9450
      TabIndex        =   7
      Top             =   10185
      Width           =   915
   End
   Begin VB.CommandButton cmdReset 
      Caption         =   "RESET Error Counter"
      Height          =   495
      Left            =   11280
      TabIndex        =   5
      Top             =   10185
      Width           =   1260
   End
   Begin VB.CommandButton cmdClear 
      Caption         =   "CLEAR"
      Height          =   390
      Left            =   10365
      TabIndex        =   4
      Top             =   10185
      Width           =   915
   End
   Begin VB.CommandButton cmdMain 
      Caption         =   "To MAIN screen"
      Height          =   495
      Left            =   12540
      TabIndex        =   1
      Top             =   10185
      Width           =   1980
   End
   Begin VB.ListBox lbStatus 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   9930
      Left            =   60
      TabIndex        =   0
      Top             =   90
      Width           =   14580
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "Double Click on line above for entries that have been truncated for FULL view"
      Height          =   450
      Left            =   4470
      TabIndex        =   6
      Top             =   10155
      Width           =   4515
   End
   Begin VB.Label Label6 
      Alignment       =   1  'Right Justify
      Caption         =   "Errors Occured:"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   150
      TabIndex        =   3
      Top             =   10230
      Width           =   1965
   End
   Begin VB.Label lblErrorCounter 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   420
      Left            =   2115
      TabIndex        =   2
      Top             =   10140
      Width           =   1965
   End
End
Attribute VB_Name = "frmStatus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdClear_Click()

    frmStatus.lbStatus.Clear
    frmMain.lbStatusBrief.Clear

End Sub

Private Sub cmdDump_Click()

    Dim lLoop As Long
    
    MsgBox "Dumping START", vbInformation, PROJECT_TITLE
    
    Call RMSGeneralRoutines.MouseBusy
    
    Open "c:\tapitester.log" For Output As #1
    
    For lLoop = 0 To frmStatus.lbStatus.ListCount - 1
        Print #1, frmStatus.lbStatus.List(lLoop)
    Next lLoop
    
    Close #1
    
    Call RMSGeneralRoutines.MouseNorm
    
    MsgBox "Dumping FINISHED", vbInformation, PROJECT_TITLE
    
End Sub

Private Sub cmdMain_Click()

    frmStatus.WindowState = vbMinimized
    DoEvents
    frmMain.Show
    frmMain.WindowState = vbNormal
    frmMain.ZOrder 0
    DoEvents
    
End Sub

Private Sub cmdReset_Click()

    frmMain.lblErrorCounter.BackColor = &HFFFFFF ' White
    frmMain.lblErrorCounter.ForeColor = &H0& ' Black
    frmMain.lblErrorCounter.Caption = "0"
    glNoOfErrors = 0
    
End Sub

Private Sub Form_Load()

    Call RMSGeneralRoutines.Centre_Screen(Me)
    DoEvents
    
End Sub

Private Sub lbStatus_DblClick()

    If frmStatus.lbStatus.ListCount > 0 Then
        If frmStatus.lbStatus.ListIndex <> -1 Then
            If InStr(1, frmStatus.lbStatus.Text, "sDevSpecificInfo") <> 0 And InStr(1, frmStatus.lbStatus.Text, "(Decoded)") <> 0 Then
                Call RMSTAPIRoutines.Dump_DevInfo(frmStatus.lbStatus.Text)
            Else
                MsgBox frmStatus.lbStatus.Text, vbInformation, PROJECT_TITLE
            End If
        End If
    End If
    
End Sub