【VB开源代码栏目提醒】:网学会员--在 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桌面上即可。
开机后在桌面上双击该程序图标即可 ---- 大功告成你看用Visual Basic编程就是这么的简单Visual Basic作为一种面向对象的可视化编环境与以往面向过程的编程环境有很大的不同。
首先它是一个事件驱动程序。
简单地说鼠标点到那里程序就触发到那里或者说每发生一个事件就可能有一段相应的程序
代码被执行而以往的编程环境程序则是一行一行地被执行其次我们必须确立起面向对象的编程概念对窗体及各控件的相关属性及相关事件有充分的了解。
再也不能象以前那样一到编程就抱起一本厚厚的语法命令手册逐条
查询了其实有些
工作连一行程序
代码都不需要编写。
比如我们想把窗体向左边移一点只要在窗体的属性窗口中将LEFT属性的数值改小一点就可以了。
应该说Visual Basic作为一种全新的可视化编程环境极大地减轻了编程人员的工作量而且语法简洁、明了非常容易掌握。
用Visual Basic编程是什么样的概念呢打个比方如果我们要建一座大楼微软公司已经为我们准备好了各种各样的建筑装饰材料如果我们对我们想用的建筑装饰材料的性能有充分的了解短时间内一座美观、实用、内部装修豪华的大楼就能拔地而起 ---- 其实让我们仔细想一想。
以前有多少日常工作我们是用笔尺计算器纸来完成的呢应该说编程的素材是取之不尽的我们为什么不能试着用一下Visual Basic来解决这些
问题呢