第1章VB程序设计初探.docVIP

第1章 VB程序设计初探 VB采用了面向对象的程序设计思想的基本思路是把复杂的程序设计问题分解为个能够完成独立功能的相对简单的对象集合所谓对象就是一个可操作的实体，如窗体、命令按钮、标签、文本框等。面向对象的编程就好像搭积木一样，程序员可根据要求，直接在屏幕上画出窗口、菜单等不同类型的对象，并为每个对象设置属性。在Windows环境下，程序是以事件驱动方式运行的每个对象都能响应多个不同的事件，每个事件都能驱动一段代码事件过程，决定对象的功能。事件可由用户的操作触发，也可以由系统或应用程序触发。单击一个命令按钮，就触发了按钮的Click单击事件，事件中的代码就会被执行若用户未进行任何操作未触发事件，则程序就处于等待状态。整个应用程序由彼此独立的事件过程构成。本节通过实例使读者理解面向对象程序设计的基础概念，通过常见的例子说明VB应用程序设计的一般过程，使读者对VB程序设计具有全面的理解。 实例001 制作欢迎界面 【实例介绍】制作一个简单的欢迎界面程序，当用户单击“欢迎”按钮时，显示欢迎词并提示输入用户名，当单击“结束”按钮时，结束程序。程序运行界面如图1-1所示。 【技术要点】 添加控件的方法有两种：先选中工具箱中要添加的控件，然后在窗体上按下鼠标左键并拖动到一定位置后松开通过直接双击工具箱中相应控件的图标来添加控件。设置控件属性的方法也有两种：在设计阶段通过对象的属性窗口来设置通过程序代码在程序运行时来设置。 （2）从工具箱中向Form1窗体添加2个Label1控件和1个文本框，添加2个命令按钮并修改其标题属性。 （3）主要程序代码如下： 01 Private Sub Command1_Click() 02 Form1.Caption = 欢迎界面 修改窗体标题栏 03 Label1.Caption = 欢迎使用本程序！ 在标签上显示欢迎字样 04 Label2.Caption = 请输入用户名： 05 Text1.Text = 文本框清空 06 End Sub 07 08 Private Sub Command2_Click() 09 End 结束程序 10 End Sub 【关键代码分析】 代码的第2到4行给不同控件的Caption属性赋值，窗体上设置Caption属性会在窗体的标题栏上显示，而标签设置Caption属性则会在窗体上显示相应文字，通过此方法制作一个欢迎界面，第9行用End语句退出程序。 【拓展应用】 此例在代码窗口对窗体上控件的一些属性进行了修改，在程序运行时会看到效果。 可以使用End语句结束一个程序。 实例002 字符转换程序 【实例介绍】编写一个对输入字符进行转换的程序。转换规则为：将其中的大写字母转换成小写字母，小写字母转换成大写字母，空格不转换，其他字符转换成“*”。要求在文本框中输入一个字符时对其进行判断和转换，程序运行界面如图1-2所示。 【技术要点】VB的基于对象事件驱动编程机制，简化了Windows应用程序的设计。在这种 机制下，设计VB应用程序主要遵循以下4个主要步骤。 （1）总体设计、建立界面； （2）设置属性； （3）编写代码； （4）保存、调试运行。 【开发过程】 （1）创建一个项目，将其命名为E002，默认窗体为Form1。 （2）从工具箱中向Form1窗体添加2个Label1控件，并修改二者的Caption属性；再添加2个文本框，并清空其原始默认值，同时向窗体添加2个命令按钮控件，将Command1的Caption属性设置为“清屏”，将Command2的Caption属性设置为“结束”。 （3）主要程序代码如下： 01 Private Sub Text1_KeyPress(KeyAscii As Integer) 02 Dim s As String * 1 03 Dim L As Integer L存放文本框中字符串的长度 04 L = Len(Text2.Text) 求Text2中字符串长度 05 s = Chr$(KeyAscii) 将ASCII码转换成字符 06 Select Case s 07 Case A To Z 大写转换成小写 08 s = Chr$(KeyAscii + 32) 09 Case a To z 小写转换成大写 10 s = Chr$(KeyAscii - 32) 11 Case Else 12 s = * 其他转换成* 13 End Select 14 Text2.Text = Text2.Text s 将转换文本框的内容与刚输入并转换的字