visualbasic程序设计初步

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

1、第二章　VisualBasic程序设计初步本章主要内容●简单的应用程序实例●基本属性与常用方法●窗体的设计●基本控件的使用●工程管理●应用程序的运行和发布简单的应用程序实例传统程序设计的主要工作是编写代码，工作模式：编程－调试－改错－运行。创建VB应用程序的基本步骤：设计应用程序界面设置对象属性编写程序代码调试运行程序保存工程其中，最主要的是前面三个步骤。实例－设计应用程序界面设计VB应用程序的第一步。界面展示程序信息，也是用户与程序交互的地方。界面由对象即窗体和控件组成，控件放在窗体上，程序中的所有信息都通过窗体显示。窗体是应用程序的最终用户界面。窗体是应用程

2、序界面的基础，只能在窗体上设计构成界面的对象元素。可以用以下方法构造程序界面的对象元素：１.用工具箱绘制控件２.调整大小、移动和锁定控件实例－设计应用程序界面１.用工具箱绘制控件⑴单击要绘制的控件。⑵将鼠标指针移到窗体上，鼠标指针变成十字线。⑶将十字线指针放在控件的左上角。⑷拖动十字线，画出适合控件大小的方框。⑸释放鼠标按键，控件出现在窗体上。在窗体上添加控件的另一种方法：双击工具箱中的控件按钮，在窗体中央创建一个尺寸为缺省值的控件，然后将该控件移到窗体中所需的位置。实例－设计应用程序界面２.调整大小、移动和锁定控件⑴调整控件的尺寸⑵移动控件用鼠标移动控件在“属

3、性”窗口改变Top属性和Left属性值。⑶锁定所有控件位置选中控件，在菜单栏上选择“格式→锁定控件”选项。注意：本操作只锁住选定窗体上的全部控件，不影响其它窗体上的控件。实例－设置对象属性打开选中控件的属性窗口。在属性窗口中设置窗体对象的属性。设置窗体属性的方法：在属性列表中选定属性名在右列输入或选定新的属性设置值。说明：设计界面和设置属性可以同时进行实例－编写程序代码在代码编辑器窗口中进行。代码由语句、常数和声明部分组成。在代码编辑器窗口中可以快速查看和编辑应用程序代码的任何部分。１.打开代码窗口２.创建事件过程VB采用事件驱动程序设计的机制，大部分程序是针对

4、窗体中各控件支持的方法或事件编写的，这样的程序称为事件过程。事件过程包含事件发生时要执行的代码。实例－编写程序代码控件的事件过程由控件的实际名称（Name属性指定）、下划线(_)和事件名组成。例如，单击命令按钮Command1时，调用Command1_Click事件过程。创建事件过程的步骤：⑴在“对象”列表框中选定活动窗体中的一个对象名。⑵在“过程”列表框中选择指定对象的事件名。⑶在Sub…EndSub语句之间输入代码。３.查看代码在代码编辑器窗口左下角单击“全模块查看”按钮或“过程查看”按钮。实例－调试运行程序程序运行模式：编译运行模式和解释运行模式。1.编译

5、运行模式在菜单栏上选择“文件→生成…exe”选项系统将程序代码转换为机器代码，保存在扩展名为.exe的可执行文件中。2.解释运行模式在菜单栏上选择“运行→启动”选项（或按F5键，或工具栏上单击“启动”按钮）；系统将当前事件激发的事件过程代码转换为机器代码；执行该机器代码。转换的机器代码不保存，再次运行必须再解释一次。运行速度比编译运行模式慢。运行过程中出错，自动显示出错信息并进入“中断”模式，代码窗口提示修改代码，修改程序后再运行。实例－保存工程应用程序以工程文件形式保存在磁盘上。保存窗体文件保存工程文件应用程序开发举例以一个简单的应用程序说明程序设计过程。应用

6、程序组成：一个图像框控件，一个定时器控件，两个命令按钮。运行程序时，单击start按钮，地球滚动；单击end按钮，结束运行。图像框控件放置地球的图片，定时器控件控制地球的运动，命令按钮控制地球开始滚动和结束。１.创建一个新的窗体Form1,在窗体上创建四个控件：命令按钮Command1和Command2，图像框Image1、定时器”Timer1控件。２.设置对象的属性（表2-1）。应用程序开发举例３.编写代码DimX,Y,a,bAsSinglePrivateSubCommand1_Click()Timer1.Enabled=True‘单击start按钮，定时器开

7、始工作EndSubPrivateSubCommand2_Click()Timer1.Enabled=False‘单击end按钮，定时器停止工作EndEndSub应用程序开发举例PrivateSubForm_Load()Setball.Picture=LoadPicture(App.Path+"earth.ico")‘运行时将地球图标装入图片框中X=10Y=10a=50b=80EndSub应用程序开发举例PrivateSubTimer1_Timer()ball.MoveX,YX=X+aY=Y+bIfX>=Form1.Width-ball.WidthThena=-

8、20IfY>=Form1