📄 frmmain.frm
字号:
Style = 4
EndProperty
BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Object.ToolTipText = "退出系统"
ImageIndex = 9
EndProperty
EndProperty
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "C:\Documents and Settings\Administrator\桌面\mySms\myTel97.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "phoneBook"
Top = 5520
Visible = 0 'False
Width = 2415
End
Begin MSComctlLib.TreeView TreeView1
Height = 6975
Left = 0
TabIndex = 3
Top = 840
Width = 2655
_ExtentX = 4683
_ExtentY = 12303
_Version = 393217
HideSelection = 0 'False
Indentation = 529
LabelEdit = 1
LineStyle = 1
Style = 5
Scroll = 0 'False
SingleSel = -1 'True
Appearance = 1
End
Begin MSComctlLib.ListView ListView1
Height = 6990
Left = 2760
TabIndex = 2
Top = 840
Width = 9135
_ExtentX = 16113
_ExtentY = 12330
View = 3
Arrange = 2
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = 0
BackColor = 16777215
BorderStyle = 1
Appearance = 1
NumItems = 5
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "时间"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = "发送者"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "手机号码"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "短信内容"
Object.Width = 17639
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "序号"
Object.Width = 1411
EndProperty
End
Begin VB.ComboBox cboClassify
Height = 300
ItemData = "frmMain.frx":B6D0
Left = 3600
List = "frmMain.frx":B6DD
TabIndex = 4
Text = "Combo1"
Top = 4800
Width = 1335
End
Begin VB.Menu System
Caption = "系统(&S)"
Begin VB.Menu Sys
Caption = "系统设置(&C)"
Index = 1
End
Begin VB.Menu Sys
Caption = "连接(&L)"
Index = 2
End
Begin VB.Menu Sys
Caption = "-"
Index = 3
End
Begin VB.Menu Sys
Caption = "系统管理(&A)"
Enabled = 0 'False
Index = 4
End
Begin VB.Menu Sys
Caption = "-"
Index = 5
End
Begin VB.Menu Sys
Caption = "退出(&E)"
Index = 6
End
End
Begin VB.Menu ATSMS
Caption = "短信(&M)"
Begin VB.Menu SMS
Caption = "新建短信(&C)"
Index = 1
Shortcut = ^S
End
Begin VB.Menu SMS
Caption = "常用短信(&O)"
Enabled = 0 'False
Index = 2
End
Begin VB.Menu SMS
Caption = "-"
Index = 3
End
Begin VB.Menu SMS
Caption = "未读短信(&U)"
Index = 4
End
Begin VB.Menu SMS
Caption = "已读短信(&R)"
Index = 5
End
Begin VB.Menu SMS
Caption = "已发短信(&S)"
Index = 6
End
Begin VB.Menu SMS
Caption = "未发短信(&N)"
Index = 7
End
Begin VB.Menu SMS
Caption = "-"
Index = 8
End
Begin VB.Menu SMS
Caption = "历史记录(&H)"
Index = 9
Begin VB.Menu SMS1
Caption = "接收短信(&R)"
Index = 10
End
Begin VB.Menu SMS1
Caption = "发送短信(&S)"
Index = 11
End
End
End
Begin VB.Menu Book
Caption = "通讯簿(&B)"
Begin VB.Menu pBookC
Caption = "通讯簿分类管理(&A)"
Index = 1
End
Begin VB.Menu pBookC
Caption = "-"
Index = 2
End
Begin VB.Menu pBookC
Caption = "手机通讯簿(&P)"
Index = 3
End
Begin VB.Menu pBookC
Caption = "-"
Index = 4
End
Begin VB.Menu pBookC
Caption = "数据库中通讯簿(&D)"
Index = 5
End
Begin VB.Menu pBookC
Caption = "-"
Index = 6
End
Begin VB.Menu pBookC
Caption = "OutLook中的通讯簿(&O)"
Enabled = 0 'False
Index = 7
End
End
Begin VB.Menu Help
Caption = "帮助(&H)"
Begin VB.Menu Hlp
Caption = "内容(&C)"
Index = 1
End
Begin VB.Menu Hlp
Caption = "-"
Index = 2
End
Begin VB.Menu Hlp
Caption = "日积月累"
Index = 3
End
Begin VB.Menu Hlp
Caption = "-"
Index = 4
End
Begin VB.Menu Hlp
Caption = "注册"
Enabled = 0 'False
Index = 5
End
Begin VB.Menu Hlp
Caption = "-"
Index = 6
End
Begin VB.Menu Hlp
Caption = "关于"
Index = 7
End
End
Begin VB.Menu Pm
Caption = "popupMenu"
Begin VB.Menu Pmenu
Caption = "回复短信"
Index = 1
End
Begin VB.Menu Pmenu
Caption = "短信全部内容"
Index = 2
End
Begin VB.Menu Pmenu
Caption = "删除短信"
Index = 3
End
Begin VB.Menu Pmenu
Caption = "-"
Index = 4
End
Begin VB.Menu Pmenu
Caption = "显示时间"
Index = 5
End
Begin VB.Menu Pmenu
Caption = "-"
Index = 6
End
Begin VB.Menu Pmenu
Caption = "保存号码至手机"
Index = 7
End
Begin VB.Menu Pmenu
Caption = "保存短信至数据库"
Index = 8
End
End
Begin VB.Menu phoneBookP
Caption = "phoneBookP"
Begin VB.Menu pBook
Caption = "选取发送短信"
Index = 1
End
Begin VB.Menu pBook
Caption = "-"
Index = 2
End
Begin VB.Menu pBook
Caption = "新建联系人"
Index = 3
End
Begin VB.Menu pBook
Caption = "更改联系人"
Index = 4
End
Begin VB.Menu pBook
Caption = "删除联系人"
Index = 5
End
Begin VB.Menu pBook
Caption = "-"
Index = 6
End
Begin VB.Menu pBook
Caption = "选取保存至数据库"
Index = 7
End
End
Begin VB.Menu phoneBookD
Caption = "phoneBookD"
Begin VB.Menu dBook
Caption = "选取发送短信"
Index = 1
End
Begin VB.Menu dBook
Caption = "-"
Index = 2
End
Begin VB.Menu dBook
Caption = "查找电话"
Index = 3
End
Begin VB.Menu dBook
Caption = "-"
Index = 4
End
Begin VB.Menu dBook
Caption = "选取拔打电话"
Enabled = 0 'False
Index = 5
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Mscomm1(0)为连接测试
'Mscomm1(1)为读所有短信
'Mscomm1(2)为读已读短信
'Mscomm1(3)为读未读短信
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -