vb程序设计初探

《vb程序设计初探》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第1章VB程序设计初探第1章VB程序设计初探VB采用了面向对象的程序设计思想，面向对象的基本思路就是把复杂的程序设计问题分解，分解为若干个能够完成独立功能的、相对简单的对象集合。所谓“对象”就是一个可操作的实体，如窗体、命令按钮、标签、文本框等。面向对象的编程就好像搭积木一样，程序员可根据要求，直接在屏幕上“画”出窗口、菜单等不同类型的对象，并为每个对象设置属性，这些对象组合在一起就构成了整个程序。1.1基础设计实例在Windows环境下，程序一般都是以事件驱动方式运行的。所谓事件驱动就是指程序中的每个对象都能响应多个不同的事件，每个事件都能驱动一段代码。这段代码称为事件过程，并由

2、该代码决定对象的功能。事件可由用户的操作触发，也可以由系统或应用程序触发。假如单击一个命令按钮，就触发了该按钮的Click（单击）事件，事件中的代码就会被执行；若用户未进行任何操作（未触发事件），则程序就处于等待状态而不执行代码。整个应用程序完全由彼此独立的事件过程构成。本节通过实例使读者理解面向对象程序设计的基础概念，通过常见的例子说明VB应用程序设计的一般过程，使读者对VB程序设计具有全面的理解。实例001制作欢迎界面【实例介绍】制作一个简单的欢迎界面程序，当用户单击“欢迎”按钮时，显示欢迎词并提示输入用户名，当单击“结束”按钮时，结束程序。程序运行界面如图1-1所示。图1-1

3、欢迎界面【技术要点】添加控件的方法有两种：q先选中工具箱中要添加的控件，然后在窗体上按下鼠标左键并拖动到一定位置后松开。q通过直接双击工具箱中相应控件的图标来添加控件。设置控件属性的方法也有两种：q在设计阶段通过对象的属性窗口来设置。q通过程序代码在程序运行时来设置。·21·第1章VB程序设计初探%注意：双击某控件可以打开代码编辑窗口。【开发过程】（1）创建一个项目，将其命名为E001，默认窗体为Form1。（2）从工具箱中向Form1窗体添加2个Label1控件和1个文本框，添加2个命令按钮并修改其标题属性。（3）主要程序代码如下：01PrivateSubCommand1_Cli

4、ck()02Form1.Caption="欢迎界面"'修改窗体标题栏03Label1.Caption="欢迎使用本程序！"'在标签上显示欢迎字样04Label2.Caption="请输入用户名："05Text1.Text=""'文本框清空06EndSub0708PrivateSubCommand2_Click()09End'结束程序10EndSub【关键代码分析】代码的第2到4行给不同控件的Caption属性赋值，窗体上设置Caption属性会在窗体的标题栏上显示，而标签设置Caption属性则会在窗体上显示相应文字，通过此方法制作一个欢迎界面，第9行用End语句退出程序。【拓展应

5、用】q此例在代码窗口对窗体上控件的一些属性进行了修改，在程序运行时会看到效果。q可以使用End语句结束一个程序。实例002字符转换程序【实例介绍】编写一个对输入字符进行转换的程序。转换规则为：将其中的大写字母转换成小写字母，小写字母转换成大写字母，空格不转换，其他字符转换成“*”。要求在文本框中输入一个字符时对其进行判断和转换，程序运行界面如图1-2所示。图1-2字符转换【技术要点】VB的基于对象事件驱动编程机制，简化了Windows应用程序的设计。在这种机制下，设计VB应用程序主要遵循以下4个主要步骤。（1）总体设计、建立界面；（2）设置属性；（3）编写代码；（4）保存、调试运行

6、。【开发过程】（1）创建一个项目，将其命名为E002，默认窗体为Form1。·21·第1章VB程序设计初探（2）从工具箱中向Form1窗体添加2个Label1控件，并修改二者的Caption属性；再添加2个文本框，并清空其原始默认值，同时向窗体添加2个命令按钮控件，将Command1的Caption属性设置为“清屏”，将Command2的Caption属性设置为“结束”。（3）主要程序代码如下：01PrivateSubText1_KeyPress(KeyAsciiAsInteger)02DimsAsString*103DimLAsInteger'L存放文本框中字符串的长度04L=L

7、en(Text2.Text)'求Text2中字符串长度05s=Chr$(KeyAscii)'将ASCII码转换成字符06SelectCases07Case"A"To"Z"'大写转换成小写08s=Chr$(KeyAscii+32)09Case"a"To"z"'小写转换成大写10s=Chr$(KeyAscii-32)11CaseElse12s="*"'其他转换成*13EndSelect14Text2.Text=Text2.Text&s'将转换文本框的内容与刚输入并转换的字