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

　　 
　　用VB编写一个简单的电话号码查找程序
南京电视台
张阳

---- 本人供职于南京电视台播控中心。在日常播出过程中有时会遇到一些突发事件，需要及时向有关部门和有关领导请示，常为找不到电话号码而着急。为此，本人用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桌面上即可。开机后在桌面上双击该程序图标即可运行该程序。

---- 大功告成！你看，用Visual Basic编程就是这么的简单！Visual Basic作为一种面向对象的可视化编环境与以往面向过程的编程环境有很大的不同。首先，它是一个事件驱动程序。简单地说，鼠标点到那里，程序就触发到那里，或者说每发生一个事件就可能有一段相应的程序代码被执行，而以往的编程环境程序则是一行一行地被执行；其次，我们必须确立起面向对象的编程概念，对窗体及各控件的相关属性及相关事件有充分的了解。再也不能象以前那样一到编程就抱起一本厚厚的语法命令手册逐条查询了，其实有些工作连一行程序代码都不需要编写。比如我们想把窗体向左边移一点，只要在窗体的属性窗口中将LEFT属性的数值改小一点就可以了。应该说Visual Basic作为一种全新的可视化编程环境极大地减轻了编程人员的工作量，而且语法简洁、明了，非常容易掌握。用Visual Basic编程是什么样的概念呢？打个比方，如果我们要建一座大楼，微软公司已经为我们准备好了各种各样的建筑装饰材料，如果我们对我们想用的建筑装饰材料的性能有充分的了解，短时间内一座美观、实用、内部装修豪华的大楼就能拔地而起！

---- 其实，让我们仔细想一想。以前有多少日常工作我们是用笔+尺+计算器+纸来完成的呢？应该说编程的素材是取之不尽的，我们为什么不能试着用一下Visual Basic来解决这些问题呢？

原文转自：http://www.ltesting.net