mainform.frm
来自「VaxSIPUserAgentSDK」· FRM 代码 · 共 1,947 行 · 第 1/4 页
FRM
1,947 行
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{148188FB-A6D9-48BC-AE37-65786376CD8E}#1.0#0"; "VAXSIP~1.OCX"
Begin VB.Form MainForm
BorderStyle = 1 'Fixed Single
Caption = "VaxSIPUserAgent Visual Basic Sample code [www.vaxvoip.com]"
ClientHeight = 8265
ClientLeft = 45
ClientTop = 330
ClientWidth = 13185
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8265
ScaleWidth = 13185
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame13
Caption = "Audio IN"
Height = 1455
Left = 11280
TabIndex = 104
Top = 5400
Width = 1815
Begin VB.ListBox ListAudioIn
Height = 1035
Left = 120
TabIndex = 105
Top = 240
Width = 1575
End
End
Begin VB.Frame Frame11
Caption = "Audio OUT"
Height = 1455
Left = 9240
TabIndex = 102
Top = 5400
Width = 1815
Begin VB.ListBox ListAudioOut
Height = 1035
Left = 120
TabIndex = 103
Top = 240
Width = 1575
End
End
Begin VB.Timer TimerProgressBar
Interval = 20
Left = 12720
Top = 7320
End
Begin ComctlLib.ProgressBar SpkProgress
Height = 255
Left = 9360
TabIndex = 92
Top = 7200
Width = 3495
_ExtentX = 6165
_ExtentY = 450
_Version = 327682
Appearance = 1
End
Begin VB.Frame Frame12
Caption = " Line(s) Status/Codecs "
Height = 2415
Left = 9240
TabIndex = 90
Top = 120
Width = 3855
Begin ComctlLib.ListView ListViewLineStatus
Height = 2055
Left = 120
TabIndex = 91
Top = 240
Width = 3615
_ExtentX = 6376
_ExtentY = 3625
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 327682
ForeColor = -2147483640
BackColor = -2147483643
Appearance = 1
NumItems = 0
End
End
Begin VB.Frame Frame10
Height = 1815
Left = 6000
TabIndex = 78
Top = 6360
Width = 3135
Begin VB.CommandButton BtnTransferCall
Caption = "Transfer Call"
Height = 375
Left = 1560
TabIndex = 81
Top = 1320
Width = 1455
End
Begin VB.TextBox EditTransferPhoneNo
Height = 315
Left = 1200
TabIndex = 80
Top = 840
Width = 1815
End
Begin VB.ComboBox ComboTransferCall
Height = 315
Left = 1200
Style = 2 'Dropdown List
TabIndex = 79
Top = 360
Width = 1815
End
Begin VB.Label Label14
Caption = "Phone No:"
Height = 255
Left = 240
TabIndex = 83
Top = 840
Width = 975
End
Begin VB.Label Label13
Caption = "Select Line:"
Height = 255
Left = 120
TabIndex = 82
Top = 360
Width = 1095
End
End
Begin VB.Frame Frame9
Caption = "Play wave (.wav)"
Height = 1935
Left = 2760
TabIndex = 63
Top = 6240
Width = 3135
Begin VB.CommandButton BtnPlayStop
Caption = "*"
Height = 375
Left = 1920
TabIndex = 74
Top = 1440
Width = 495
End
Begin VB.CommandButton BtnPlayPause
Caption = "||"
Height = 375
Left = 2520
TabIndex = 73
Top = 1440
Width = 495
End
Begin VB.CommandButton BtnPlayForward
Caption = ">>"
Height = 375
Left = 720
TabIndex = 72
Top = 1440
Width = 495
End
Begin VB.CommandButton BtnPlayRewind
Caption = "<<"
Height = 375
Left = 120
TabIndex = 71
Top = 1440
Width = 495
End
Begin VB.CommandButton BtnStartPlay
Caption = ">"
Height = 375
Left = 1320
TabIndex = 70
Top = 1440
Width = 495
End
Begin VB.TextBox EditPlayFileName
Height = 315
Left = 120
TabIndex = 67
Top = 1080
Width = 2055
End
Begin VB.CommandButton BtnSetPlayFile
Caption = "Set"
Height = 375
Left = 2280
TabIndex = 66
Top = 960
Width = 735
End
Begin VB.CheckBox CheckPlayListen
Caption = "Listen"
Height = 255
Left = 1200
TabIndex = 65
Top = 720
Width = 975
End
Begin VB.ComboBox ComboPlayWave
Height = 315
Left = 1200
Style = 2 'Dropdown List
TabIndex = 64
Top = 360
Width = 1815
End
Begin VB.Label Label9
Caption = "File (.wav)"
Height = 255
Left = 120
TabIndex = 69
Top = 840
Width = 975
End
Begin VB.Label Label8
Caption = "Select Line:"
Height = 255
Left = 120
TabIndex = 68
Top = 360
Width = 1095
End
End
Begin VB.ComboBox ComboDial
Height = 315
Left = 1320
Style = 2 'Dropdown List
TabIndex = 59
Top = 4800
Width = 1335
End
Begin VB.CommandButton BtnHold
Caption = "Hold"
Height = 345
Left = 240
TabIndex = 58
Top = 5640
Width = 1095
End
Begin VB.CommandButton BtnUnHold
Caption = "UnHold"
Height = 345
Left = 1560
TabIndex = 57
Top = 5640
Width = 1095
End
Begin VB.Frame Frame7
Caption = "Help"
Height = 1815
Left = 6000
TabIndex = 42
Top = 120
Width = 3135
Begin VB.CommandButton BtnHelpMore
Caption = "More"
Height = 345
Left = 2040
TabIndex = 76
Top = 1320
Width = 975
End
Begin VB.Label Label21
Caption = "- Click Online button."
Height = 255
Left = 120
TabIndex = 101
Top = 1440
Width = 1815
End
Begin VB.Label Label20
Caption = "provided."
Height = 255
Left = 240
TabIndex = 100
Top = 1080
Width = 855
End
Begin VB.Label Label19
Caption = "Display-Name blank if not"
Height = 255
Left = 240
TabIndex = 99
Top = 840
Width = 2655
End
Begin VB.Label Label12
Caption = "- Leave Outbound-Proxy and/or"
Height = 255
Left = 120
TabIndex = 98
Top = 600
Width = 2895
End
Begin VB.Label Label11
Caption = "- Enter SIP account settings."
Height = 255
Left = 120
TabIndex = 75
Top = 240
Width = 2535
End
End
Begin VB.Frame Frame6
Caption = " Supported Voice Codecs "
Height = 1215
Left = 6000
TabIndex = 41
Top = 5040
Width = 3135
Begin VB.CheckBox CheckG711U
Caption = "G711 U-LAW"
Height = 255
Left = 120
TabIndex = 50
Top = 720
Value = 1 'Checked
Width = 1455
End
Begin VB.CheckBox CheckG711A
Caption = "G711 A-LAW"
Height = 255
Left = 120
TabIndex = 49
Top = 480
Value = 1 'Checked
Width = 1455
End
Begin VB.CheckBox CheckiLBC
Caption = "iLBC"
Height = 255
Left = 1800
TabIndex = 48
Top = 240
Value = 1 'Checked
Width = 855
End
Begin VB.CheckBox CheckGSM610
Caption = "GSM 6.10"
Height = 255
Left = 120
TabIndex = 47
Top = 240
Value = 1 'Checked
Width = 1215
End
Begin VAXSIPUSERAGENTOCXLib.VaxSIPUserAgentOCX VaxSIPUserAgentOCX
Height = 495
Left = 1800
TabIndex = 84
Top = 600
Visible = 0 'False
Width = 1215
_Version = 65536
_ExtentX = 2143
_ExtentY = 873
_StockProps = 0
End
End
Begin VB.Frame Frame5
Caption = " Other Settings "
Height = 1335
Left = 6000
TabIndex = 40
Top = 3600
Width = 3135
Begin VB.Timer TimerTick
Enabled = 0 'False
Interval = 1000
Left = 2520
Top = 720
End
Begin VB.CheckBox CheckAGC
Caption = "AGC (Auto Gain Control)"
Height = 255
Left = 120
TabIndex = 77
Top = 480
Width = 2535
End
Begin VB.CheckBox CheckDisturb
Caption = "Don't disturb"
Height = 255
Left = 120
TabIndex = 53
Top = 960
Width = 1455
End
Begin VB.CheckBox CheckMicBoost
Caption = "Mic Boost"
Height = 255
Left = 120
TabIndex = 52
Top = 720
Width = 2415
End
Begin VB.CheckBox CheckEchoCancel
Caption = "Echo/Noise Cancellation"
Height = 255
Left = 120
TabIndex = 51
Top = 240
Value = 1 'Checked
Width = 2415
End
End
Begin VB.Frame Frame4
Caption = "Conversation Recording"
Height = 1935
Left = 120
TabIndex = 34
Top = 6240
Width = 2535
Begin VB.ComboBox ComboRecord
Height = 315
Left = 1200
Style = 2 'Dropdown List
TabIndex = 61
Top = 360
Width = 1215
End
Begin VB.CheckBox CheckStartRecording
Caption = "Start Record"
Height = 255
Left = 120
TabIndex = 38
Top = 720
Width = 1455
End
Begin VB.CommandButton BtnResetRecordingBuffer
Caption = "Reset"
Height = 375
Left = 1680
TabIndex = 37
Top = 960
Width = 735
End
Begin VB.TextBox EditSaveFileName
Height = 315
Left = 120
TabIndex = 36
Top = 1440
Width = 1455
End
Begin VB.CommandButton BtnSaveToWaveFile
Caption = "Save"
Height = 375
Left = 1680
TabIndex = 35
Top = 1440
Width = 735
End
Begin VB.Label Label7
Caption = "Select Line:"
Height = 255
Left = 120
TabIndex = 62
Top = 360
Width = 1095
End
Begin VB.Label Label17
Caption = "File (.wav)"
Height = 255
Left = 120
TabIndex = 39
Top = 1200
Width = 975
End
End
Begin VB.Frame Frame8
Caption = " Volume Settings "
Height = 1455
Left = 6000
TabIndex = 27
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?