人供职于南京电视台播控中心。在日常播出过程中有时会遇到一些突发事件,需要及时向有关部门和有关领导请示,常为找不到电话号码而着急。为此,本人用Visual Basic编写了一个简单的应用程序,运行该程序即可方便、快捷地查找到相关的电话号码。
---- 首先将该程序的运行界面介绍给读者(图略)。
---- 运行该程序时首先出现图一所示的界面。如果要查找有关单位的电话号码,我们只需在有关单位右边的组合框的向下箭头上用鼠标点一下,这时出现图二。用鼠标拖动滚动条找到相关单位的名称再点一下,这时出现图三。看!我们需要的电话号码这么简单就找到了!如果我们要查找有关领导的电话号码操作步骤同上,这时屏幕上还会显示其相应的寻呼及手机号码。
---- 下面向读者简单介绍一下该程序的Visual Basic代码。我们首先进行界面的设计。这一步工作主要是为了给读者一个良好的视觉效果,一个友好的程序运行界面,使读者操作起来感到方便、快捷。我们只要将窗体及各控作的相关属性做相应的调整就可以了。
---- 接下来编写程序代码。为简单起见,我们只介绍查找有关单位的程序代码,查找人名的程序代码类推。该程序运行时首先将有关单位的名称加载至内存,VB代码如下:
Private Sub Form_Load()
……….
………
………
Combo2.AddItem “省厅事业处”
Combo2.AddItem “省传输发射总台发射部”
………
………
………
End Sub
责任编辑:cyth