📄 frmmain.frm
字号:
Name = "Bookman Old Style"
Size = 8.25
Charset = 0
Weight = 300
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 3960
TabIndex = 0
Top = 1170
Width = 1815
End
Begin VB.CommandButton cmdExit
Caption = "&Exit"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 750
Left = 12480
TabIndex = 2
ToolTipText = "(inclusive of lineShutdown, lineClose, lineDrop and lineDeallocateCall if necessary)"
Top = 9240
Width = 1215
End
Begin VB.Label Label2
Caption = "Please click on Notes button for important information about use of this program"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 1
Left = 135
TabIndex = 83
Top = 9630
Width = 7560
End
Begin VB.Label lblConsCall
BorderStyle = 1 'Fixed Single
Height = 315
Left = 7800
TabIndex = 74
Top = 2865
Width = 4395
End
Begin VB.Label lblConfCall
BorderStyle = 1 'Fixed Single
Height = 315
Left = 7800
TabIndex = 73
Top = 2550
Width = 4395
End
Begin VB.Label Label7
Alignment = 2 'Center
Caption = "Items above are LINE dependant (i.e. lineInitialize must be ran first)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 12630
TabIndex = 59
Top = 5715
Width = 1980
End
Begin VB.Label lblHeldCall
BorderStyle = 1 'Fixed Single
Height = 315
Left = 7800
TabIndex = 50
Top = 2235
Width = 4395
End
Begin VB.Label lblStatus
BorderStyle = 1 'Fixed Single
Height = 405
Left = 45
TabIndex = 32
Top = 10320
Width = 12420
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 = 12480
TabIndex = 29
Top = 7710
Width = 1965
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 = 12360
TabIndex = 28
Top = 7380
Width = 1965
End
Begin VB.Label Label5
Caption = "Boxes below NOT visible"
Height = 240
Left = 12630
TabIndex = 27
Top = 8235
Visible = 0 'False
Width = 2010
End
Begin VB.Label lblEvent
BorderStyle = 1 'Fixed Single
Height = 330
Left = 12555
TabIndex = 19
Top = 8850
Visible = 0 'False
Width = 1125
End
Begin VB.Label lblLineDigits
BorderStyle = 1 'Fixed Single
Height = 330
Left = 12570
TabIndex = 18
Top = 8520
Visible = 0 'False
Width = 1110
End
Begin VB.Label lblhCall
BorderStyle = 1 'Fixed Single
Height = 315
Left = 7800
TabIndex = 16
Top = 1920
Width = 4395
End
Begin VB.Label Label4
BorderStyle = 1 'Fixed Single
Caption = "INTERACTIVE VOICE && UNKNOWN Media Modes"
Height = 315
Left = 7800
TabIndex = 15
Top = 645
Width = 4395
End
Begin VB.Label Label3
BorderStyle = 1 'Fixed Single
Caption = "MONITOR and OWNER Privileges"
Height = 315
Left = 7800
TabIndex = 14
Top = 330
Width = 4395
End
Begin VB.Label lblTAPIVersion
BorderStyle = 1 'Fixed Single
Height = 315
Left = 7800
TabIndex = 13
Top = 15
Width = 4395
End
Begin VB.Label lblhLine
BorderStyle = 1 'Fixed Single
Height = 315
Left = 7800
TabIndex = 12
Top = 1275
Width = 4395
End
Begin VB.Label lblNoOfDevices
BorderStyle = 1 'Fixed Single
Height = 315
Left = 7800
TabIndex = 11
Top = 1605
Width = 4395
End
Begin VB.Label lblhLineApp
BorderStyle = 1 'Fixed Single
Height = 315
Left = 7800
TabIndex = 10
Top = 960
Width = 4395
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "Choose Device:-"
Height = 495
Left = 12270
TabIndex = 4
Top = 165
Width = 810
End
End
Attribute VB_Name = "frmMain"
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 cmdExit_Click()
If MsgBox("Exit?", vbDefaultButton1 + vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
If frmMain.cmdlineShutdown.Enabled = True Then
frmMain.lblStatus.Caption = "Please wait..."
Call frmMain.cmdlineShutdown_Click
DoEvents
frmMain.lblStatus.Caption = ""
End If
End
End If
End Sub
Private Sub cmdlineAddToConference_Click()
If RMSTAPIRoutines.glConfCall <> 0 Then
Call RMSTAPIRoutines.Run_lineAddToConference
End If
End Sub
Private Sub cmdlineAnswer_Click()
If RMSTAPIRoutines.glhCall <> 0 Then
Call RMSTAPIRoutines.Run_lineAnswer
End If
End Sub
Private Sub cmdlineBlindTransfer_Click()
If RMSTAPIRoutines.glhCall <> 0 Then
Call RMSTAPIRoutines.Run_lineBlindTransfer
End If
End Sub
Public Sub cmdlineClose_Click()
If frmMain.cmdlineDrop.Enabled = True Then
If RMSTAPIRoutines.glhCall <> 0 Then
frmMain.lblStatus.Caption = "Please wait..."
Call RMSTAPIRoutines.Run_lineDrop
frmMain.lblStatus.Caption = ""
End If
End If
Call RMSTAPIRoutines.Run_lineClose
frmMain.cmdlineOpen.Enabled = True
frmMain.cmdlineAnswer.Enabled = False
frmMain.cmdlineDrop.Enabled = False
frmMain.cmdlineMakeCall.Enabled = False
frmMain.cmdNU.Enabled = False
frmMain.cmdSpeakingClock.Enabled = False
frmMain.cmdlineClose.Enabled = False
frmMain.cmdlineGetLineDevStatus.Enabled = False
frmMain.cmdlineHold.Enabled = False
frmMain.cmdlineAddToConference.Enabled = False
frmMain.cmdlineRemoveFromConference.Enabled = False
frmMain.cmdlineSwapHold.Enabled = False
frmMain.cmdlineBlindTransfer.Enabled = False
frmMain.cmdlineCompleteTransferTRANSFER.Enabled = False
frmMain.cmdlineCompleteTransferCONFERENCE.Enabled = False
frmMain.cmdlineDial.Enabled = False
frmMain.cmdlineHandoff.Enabled = False
frmMain.cmdlineUnHold.Enabled = False
frmMain.cmdlinePark.Enabled = False
frmMain.cmdlineUnPark.Enabled = False
frmMain.cmdlineReDirect.Enabled = False
frmMain.cmdlineGetCallInfo.Enabled = False
frmMain.cmdlineGetCallStatus.Enabled = False
frmMain.cmdlineSetCallPrivilege.Enabled = False
frmMain.cmdlineGetID.Enabled = False
frmMain.cmdlineSetStatusMessages.Enabled = False
frmMain.cmdlineGetAddressStatus.Enabled = False
frmMain.cmdlineMonitorTones.Enabled = False
frmMain.cmdlineGenerateDigits.Enabled = False
frmMain.cmdlineGenerateTone.Enabled = False
frmMain.cmdlineGetNumRings.Enabled = False
frmMain.cmdlineSetNumRings.Enabled = False
frmMain.cmdlineMonitorDigits.Enabled = False
frmMain.cmdlineSetCallData.Enabled = False
frmMain.cmdlineSetAppSpecific.Enabled = False
frmMain.cmdlineGetAddressID.Enabled = False
frmMain.cmdlineDevSpecific.Enabled = False
frmMain.cmdlineSetupTransfer.Enabled = False
End Sub
Private Sub cmdlineCompleteTransferCONFERENCE_Click()
If RMSTAPIRoutines.glhCall <> 0 Then
Call RMSTAPIRoutines.Run_lineCompleteTransfer(LINETRANSFERMODE_CONFERENCE)
End If
End Sub
Private Sub cmdlineCompleteTransferTRANSFER_Click()
If RMSTAPIRoutines.glhCall <> 0 Then
Call RMSTAPIRoutines.Run_lineCompleteTransfer(LINETRANSFERMODE_TRANSFER)
End If
End Sub
Private Sub cmdlineConfigDialog_Click()
Dim bValid As Boolean
bValid = False
If frmMain.cbDevice.ListCount > 0 Then
If frmMain.cbDevice.ListIndex <> -1 Then
bValid = True
End If
End If
If bValid = True Then
Call RMSTAPIRoutines.Run_lineConfigDialog
End If
If bValid = False Then
MsgBox "Please choose a TAPI device", vbExclamation, PROJECT_TITLE
End If
End Sub
Private Sub cmdlineConfigDialogEdit_Click()
Dim bValid As Boolean
bValid = False
If frmMain.cbDevice.ListCount > 0 Then
If frmMain.cbDevice.ListIndex <> -1 Then
bValid = True
End If
End If
If bValid = True Then
Call RMSTAPIRoutines.Run_lineConfigDialogEdit
End If
If bValid = False Then
MsgBox "Please choose a TAPI device", vbExclamation, PROJECT_TITLE
End If
End Sub
Private Sub cmdlineDevSpecific_Click()
Const DOES_NOT_MATTER = 0
If MsgBox("Login/Logout", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
If MsgBox("Login?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_LOGIN, DOES_NOT_MATTER)
End If
If MsgBox("Logout?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_LOGOUT, DOES_NOT_MATTER)
End If
End If
If MsgBox("Message Waiting Lamp / Group IN or OUT?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
If MsgBox("Message Waiting Lamp?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
If MsgBox("Turn Message Waiting Light ON?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_MESSWAITLAMP, True)
Else
Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_MESSWAITLAMP, False)
End If
End If
If MsgBox("Group IN or OUT?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
If MsgBox("Group IN?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_GROUP, True)
Else
Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_GROUP, False)
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -