📄 formdial.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "mscomm32.ocx"
Begin VB.Form formdial
BorderStyle = 1 'Fixed Single
Caption = "拨号"
ClientHeight = 7035
ClientLeft = 6600
ClientTop = 3315
ClientWidth = 3840
Icon = "formdial.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7035
ScaleWidth = 3840
Begin VB.TextBox Textpage
Alignment = 2 'Center
Height = 375
Left = 1680
TabIndex = 32
Top = 5040
Width = 495
End
Begin VB.CommandButton phonenumber
Height = 495
Index = 9
Left = 2520
TabIndex = 18
Top = 6360
Width = 1215
End
Begin VB.CommandButton phonenumber
Height = 495
Index = 8
Left = 2520
TabIndex = 17
Top = 5670
Width = 1215
End
Begin VB.CommandButton phonenumber
Height = 495
Index = 7
Left = 2520
TabIndex = 16
Top = 4980
Width = 1215
End
Begin VB.CommandButton phonenumber
Height = 495
Index = 6
Left = 2520
TabIndex = 15
Top = 4320
Width = 1215
End
Begin VB.CommandButton phonenumber
Height = 495
Index = 5
Left = 2520
TabIndex = 14
Top = 3600
Width = 1215
End
Begin VB.CommandButton phonenumber
Height = 495
Index = 4
Left = 240
TabIndex = 13
Top = 6360
Width = 1215
End
Begin VB.CommandButton phonenumber
Height = 495
Index = 3
Left = 240
TabIndex = 12
Top = 5670
Width = 1215
End
Begin VB.CommandButton phonenumber
Height = 495
Index = 2
Left = 240
TabIndex = 11
Top = 4980
Width = 1215
End
Begin VB.CommandButton phonenumber
Height = 495
Index = 1
Left = 240
TabIndex = 10
Top = 4290
Width = 1215
End
Begin VB.CommandButton phonenumber
Height = 495
Index = 0
Left = 240
TabIndex = 9
Top = 3600
Width = 1215
End
Begin VB.CommandButton changnumber
Caption = "更改号码"
Height = 495
Left = 3120
TabIndex = 8
Top = 1155
Width = 615
End
Begin VB.CommandButton hangup
Caption = "挂断"
Height = 495
Left = 3120
TabIndex = 7
Top = 360
Width = 615
End
Begin MSCommLib.MSComm MSComm1
Left = 0
Top = 6480
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
CommPort = 3
DTREnable = -1 'True
RTSEnable = -1 'True
InputMode = 1
End
Begin VB.CommandButton down
Caption = "下一页"
Height = 855
Left = 1800
TabIndex = 6
Top = 3600
Width = 375
End
Begin VB.ComboBox Combodial
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
IMEMode = 1 'ON
ItemData = "formdial.frx":030A
Left = 120
List = "formdial.frx":030C
Sorted = -1 'True
TabIndex = 1
Top = 240
Width = 2295
End
Begin VB.CommandButton speeddial
Caption = "快速拨号"
Height = 495
Index = 0
Left = 2520
TabIndex = 5
Top = 1965
Width = 1095
End
Begin VB.CommandButton clear
Caption = "清除号码"
Height = 495
Left = 2520
TabIndex = 3
Top = 1155
Width = 615
End
Begin VB.CommandButton dial
Caption = "拨号"
Height = 495
Left = 2520
TabIndex = 2
Top = 360
Width = 615
End
Begin VB.Frame framedial
Height = 2775
Left = 120
TabIndex = 0
Top = 600
Width = 2175
Begin VB.CommandButton number
Caption = "+"
Height = 255
Index = 13
Left = 1560
TabIndex = 33
Top = 2400
Width = 495
End
Begin VB.CommandButton number
Caption = "#"
Height = 255
Index = 12
Left = 1560
TabIndex = 31
Top = 2160
Width = 495
End
Begin VB.CommandButton number
Caption = "*"
Height = 495
Index = 11
Left = 120
TabIndex = 30
Top = 2160
Width = 495
End
Begin VB.CommandButton number
Caption = ","
Height = 225
Index = 10
Left = 840
TabIndex = 29
Top = 2400
Width = 495
End
Begin VB.CommandButton number
Caption = "9"
Height = 495
Index = 9
Left = 1560
TabIndex = 28
Top = 1515
Width = 495
End
Begin VB.CommandButton number
Caption = "8"
Height = 495
Index = 8
Left = 840
TabIndex = 27
Top = 1515
Width = 495
End
Begin VB.CommandButton number
Caption = "7"
Height = 495
Index = 7
Left = 120
TabIndex = 26
Top = 1515
Width = 495
End
Begin VB.CommandButton number
Caption = "6"
Height = 495
Index = 6
Left = 1560
TabIndex = 25
Top = 885
Width = 495
End
Begin VB.CommandButton number
Caption = "5"
Height = 495
Index = 5
Left = 840
TabIndex = 24
Top = 885
Width = 495
End
Begin VB.CommandButton number
Caption = "4"
Height = 495
Index = 4
Left = 120
TabIndex = 23
Top = 885
Width = 495
End
Begin VB.CommandButton number
Caption = "3"
Height = 495
Index = 3
Left = 1560
TabIndex = 22
Top = 240
Width = 495
End
Begin VB.CommandButton number
Caption = "2"
Height = 495
Index = 2
Left = 840
TabIndex = 21
Top = 240
Width = 495
End
Begin VB.CommandButton number
Caption = "1"
Height = 495
Index = 1
Left = 120
TabIndex = 20
Top = 240
Width = 495
End
Begin VB.CommandButton number
Caption = "0"
Height = 225
Index = 0
Left = 840
TabIndex = 19
Top = 2160
Width = 495
End
End
Begin VB.CommandButton setup
Caption = "设置"
Height = 495
Left = 2520
TabIndex = 4
Top = 2760
Width = 1095
End
End
Attribute VB_Name = "formdial"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public n, phonepages, phoneline, phonepage
Dim str(0 To 200), ming(0 To 200), phone(0 To 200), dialednumber1(200), dialednumber2(200)
Dim strnumber(0 To 12) As String, portnumber, settingstr, usingcardnumber As String, cardstate As Boolean
Private Sub loadnumber()
For i = 0 To 12
If i > 9 Then
If i = 10 Then
strnumber(i) = ","
ElseIf i = 11 Then
strnumber(i) = "*"
Else
strnumber(i) = "#"
End If
Else
strnumber(i) = i
End If
Next
End Sub
Private Sub loaddialed()
Dim s(0 To 200), i
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -