用VB编写一个简单的电话号码查找程序

用VB编写一个简单的电话号码查找程序

用VB编写一个简单的电话号码查找程序
（加入日期:2002-7-15）
【收藏文章】【对此文发表评论】【保存文章至硬盘】【打印文章】【字体：大 中 小】

分享到：
-
南京电视台 张阳

---- 本人供职于南京电视台播控中心。在日常播出过程中有时会遇到一些突发事件，需要及时向有关部门和有关领导请示，常为找不到电话号码而着急。为此，本人用Visual Basic编写了一个简单的应用程序，运行该程序即可方便、快捷地查找到相关的电话号码。

---- 首先将该程序的运行界面介绍给读者(图略)。

---- 运行该程序时首先出现图一所示的界面。如果要查找有关单位的电话号码，我们只需在有关单位右边的组合框的向下箭头上用鼠标点一下，这时出现图二。用鼠标拖动滚动条找到相关单位的名称再点一下，这时出现图三。看！我们需要的电话号码这么简单就找到了！如果我们要查找有关领导的电话号码操作步骤同上，这时屏幕上还会显示其相应的寻呼及手机号码。

---- 下面向读者简单介绍一下该程序的Visual Basic代码。我们首先进行界面的设计。这一步工作主要是为了给读者一个良好的视觉效果，一个友好的程序运行界面，使读者操作起来感到方便、快捷。我们只要将窗体及各控作的相关属性做相应的调整就可以了。

---- 接下来编写程序代码。为简单起见，我们只介绍查找有关单位的程序代码，查找人名的程序代码类推。该程序运行时首先将有关单位的名称加载至内存，VB代码如下：

Private Sub Form_Load()
……….
………
………
Combo2.AddItem “省厅事业处”
Combo2.AddItem “省传输发射总台发射部”
………
………
………
End Sub

---- 然后我们要确定该程序的逻辑关系。很简单，如果单位名称是省厅事业处，那么电话号码是4452013；如果单位名称是省传输发射总台发射部，那么电话号码是3716125……。VB代码如下：
Private Sub combo2_Click()
If …… Then
………
………
………
ElseIf Combo2.Text = ”省厅事业处” Then
Text1.Text = “4452013”
Text2.Text = “”
Text3.Text = “”
Combo1.Text = “”
ElseIf Combo2.Text = ”省传输发射总台发射部” Then
Text1.Text = “3716125”
Text2.Text = “”
Text3.Text = “”
Combo1.Text = “”
………
………
………
End If
End Sub

---- 注意:我们只有用鼠标点
(Click)组合框上的某一单位名称时才会触发该段程序,因此该段程序是该组合框的Click事件代码。
---- 至此用Visual Basic编程工作已大体完成。我们只要再将其编译成可执行的应用程序（EXE文件）并将其拖至WINDOWS95桌面上即可。开机后在桌面上双击该程序图标即可