?? fmain.frm
字號:
VERSION 5.00
Begin VB.Form fMain
Caption = "Native VB TAPI Tester"
ClientHeight = 5205
ClientLeft = 3555
ClientTop = 3165
ClientWidth = 6705
Icon = "fMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 347
ScaleMode = 3 'Pixel
ScaleWidth = 447
Begin VB.CommandButton cmdHangUp
Caption = "Hang Up"
Height = 555
Left = 4230
TabIndex = 13
Top = 3465
Width = 2355
End
Begin VB.ListBox lstCallProgress
Height = 645
Left = 4230
TabIndex = 11
Top = 2565
Width = 2370
End
Begin VB.PictureBox picIcon
Height = 660
Left = 5940
ScaleHeight = 40
ScaleMode = 3 'Pixel
ScaleWidth = 40
TabIndex = 9
Top = 135
Width = 660
End
Begin VB.CommandButton cmdExit
Caption = "Exit"
Height = 555
Left = 4230
TabIndex = 8
Top = 4545
Width = 2355
End
Begin VB.CommandButton cmdDialProps
Caption = "Dialing Properties..."
Height = 555
Left = 2160
TabIndex = 6
Top = 4545
Width = 1860
End
Begin VB.TextBox txtPhoneNumber
Height = 330
Left = 4230
TabIndex = 5
Text = "123-4567"
Top = 1215
Width = 2355
End
Begin VB.CommandButton cmdDial
Caption = "Dial..."
Height = 555
Left = 4230
TabIndex = 4
Top = 1620
Width = 2355
End
Begin VB.CommandButton cmdConfigDlg
Caption = "Line Config Dialog..."
Height = 555
Left = 135
TabIndex = 3
Top = 4545
Width = 1860
End
Begin VB.ListBox lstLineInfo
Height = 3765
Left = 135
TabIndex = 2
Top = 525
Width = 3885
End
Begin VB.ComboBox cboLineSel
Height = 300
Left = 2610
Style = 2 'Dropdown List
TabIndex = 0
Top = 135
Width = 1425
End
Begin VB.Label lblProgress
Caption = "Call Progress:"
Height = 240
Left = 4275
TabIndex = 12
Top = 2250
Width = 2370
End
Begin VB.Label lblIcon
Caption = "Icon from TSP:"
Height = 195
Left = 4230
TabIndex = 10
Top = 225
Width = 1200
End
Begin VB.Label lblPhoneNumber
Caption = "Enter Phone Number to dial:"
Height = 240
Left = 4230
TabIndex = 7
Top = 855
Width = 2370
End
Begin VB.Label lblLineSel
Caption = "Select TAPI Line number:"
Height = 240
Left = 135
TabIndex = 1
Top = 210
Width = 2370
End
End
Attribute VB_Name = "fMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'****************************************************************
'* VB file: fMain.frm...
'* VB TAPI Devcaps/Dialer app
'*
'* created: 1999 by Ray Mercer
'*
'* last modified: 8/25/99 by Ray Mercer (added comments)
'*
'* Copyright (c) 1998 Ray Mercer. All rights reserved.
'* Latest version at http://i.am/shrinkwrapvb
'****************************************************************
Private Declare Function timeGetTime Lib "winmm.dll" () As Long 'for slowing down GUI only
'dimension a TAPI variable with events
Public WithEvents tapiline As CvbTAPILine
Attribute tapiline.VB_VarHelpID = -1
Private Sub Form_Load()
Dim success As Boolean
Dim line As Long
cmdHangUp.Enabled = False
Me.Show
Me.MousePointer = vbHourglass
Me.Refresh
'Initialize the TAPI class
Set tapiline = New CvbTAPILine
'Set the negotiate API version between 1.3 and 3.0
'This step is not necessary if default versions are OK (1.3 - 3.0)
'It's easy to visualize the high and low words in Hex
tapiline.LowAPI = &H10003 ' 1.3 = &H00010003
tapiline.HiAPI = &H30000 ' 3.0 = &H00030000
'give user feedback and pause to let user read it
lstLineInfo.AddItem "Negotiating TAPI version..."
lstLineInfo.Refresh
Call Pause(1000, False)
'initialize and negotiate API versions for all lines
success = tapiline.Create
'List all available lines with these API caps in the listbox
If success Then
For line = 0 To tapiline.numLines - 1
tapiline.CurrentLineID = line
If tapiline.NegotiatedAPIVersion Then
cboLineSel.AddItem (line)
End If
Next
'set the currently selected line (and trigger the click event)
cboLineSel.ListIndex = 0
Else
'give user feedback so they know their TAPI device doesn't support 2.1
lstLineInfo.AddItem tapiline.ErrorString(tapiline.LastError)
lstLineInfo.Refresh
Call Pause(500, False)
lstLineInfo.AddItem "Trying TAPI 1.3 - 1.4..."
lstLineInfo.Refresh
Call Pause(1000, False)
'now re-negotiate lower version
tapiline.LowAPI = &H10003 ' 1.3 = &H00010003
tapiline.HiAPI = &H10004 ' 1.4 = &H00010004
success = tapiline.Create
If success Then
For line = 0 To tapiline.numLines - 1
tapiline.CurrentLineID = line
If tapiline.NegotiatedAPIVersion Then
cboLineSel.AddItem (line)
End If
Next
'set the currently selected line (and trigger the click event)
cboLineSel.ListIndex = 0
Else
lstLineInfo.AddItem "Failed to negotiate TAPI version! <Critical Error!>"
End If
End If
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -