《2019年北京电大VisualBasic程序设计第2章VB可视化编程初步ppt课件》由会员分享，可在线阅读，更多相关《2019年北京电大VisualBasic程序设计第2章VB可视化编程初步ppt课件（61页珍藏版）》请在金锄头文库上搜索。
1、2020/10/23,1,Visual Basic 程序设计,2020/10/23,2,第二讲VB可视化编程初步,2020/10/23,3,内容简介,本章以一个简单的时钟应用程序开发为主线： 详细介绍窗体、文本框、标签和命令按钮等常用控件 事件和事件过程以及事件驱动程序设计的基本原理 MsgBox函数、赋值语句的使用方法。 通过本章的学习，你将熟悉Visual Basic开发应用程序的全过程，领略到VB可视化编程的魅力，为进一步深入学习奠定基础。,2020/10/23,4,学习目标,掌握VB应用程序开发的一般步骤。 掌握命令按钮、文本框和标签的使用和MsgBox函数的用法。 理解赋值语句、变量
2、的概念，理解对象、属性、方法和事件的概念及其之间的区别和联系，理解事件驱动的原理。 了解时钟程序的工作原理。,2020/10/23,5,2.1“时钟程序”任务,在实际工作中，为了准确的控制时间，经常需 要用到计时器，现在我们就来创建一个倒计时 的简单应用程序。 该程序的功能是：当在文本框内输入倒计时的 分钟数后，单击“开始”按钮就开始倒计时，倒 计时结束时，弹出“时间到！”的信息框。,2020/10/23,6,任务描述界面设计代码设计保存和运行程序编译与打包安装运行VB应用程序开发的一般步骤,时钟程序任务,时钟程序任务 任务描述 程序运行：出现 输入分钟数 时间到: 出现,2020/10/23
3、,7,2.1.1任务描述,启动界面,2020/10/23,8,输入1分钟数字界面,2020/10/23,9,倒计时进行中界面,2020/10/23,10,倒计时结束界面,2020/10/23,11,212 界面的设计,1 新建工程并创建窗体 启动VB 在“新建工程“对话框中，选择“标准EXE ”单击“打开”。 2 向窗体中添加控件 调整窗体的大小为合适，向窗体中添加：一个标签、一个文本框、一个命令按钮和一个计时器控件。,2020/10/23,12,通过鼠标单击“工具箱”中的控件，在窗体上划出相应的控件。,2020/10/23,13,3 设置对象属性,（1）单击Form1窗体,选定它。在属性窗口
4、中选中Form1，将Caption 的属性改为“倒计时器” （2）单击窗体上的“Label1”控件，将Caption的属性改为清输入倒计时的分钟数，将Autosize属性改为true （3）将命令按钮command1的Caption属性改为“开始“。 （4）将text1 的Alignment属性改为“2-center”. （5）将计时器控件timer的Interval的属性值设为1000（1秒），Enabled属性设为False.,2020/10/23,14,2.1.3代码设计,（1）代码编辑器“通用”区代码 Dim m As Long 声明一个变量 （2）Command1控件代码 Priva
5、te Sub Command1_Click() 使计时器控件开始工作 Timer1.Enabled = True 将分钟数转换为秒数，并保存在m变量中 m = Val(Text1.Text) * 60 改变标签控件的标题 Label1.Caption = 现在开始倒计时 使用命令按钮不可见 Command1.Visible = False End Sub,2020/10/23,15,2.1.3代码设计,（3）Timer1控件代码 Private Sub Timer1_Timer() 当Timer1.Enabled=Ture是，本程序每秒自动执行一次 每运行一次，就将m变量的值减1秒 m = m
6、 1 If m 0 Then 如果倒计时结束（即m=0）则： Timer1.Enabled = False 关闭计时器 MsgBox 时间到！, 0, 倒计时 Label1.Caption = 请输入计时的分钟数 Text1.Text = 清空文本框 Command1.Visible = True 使命令按钮可见 Else 否则显示倒计时数 Text1.Text = m End If End Sub,2020/10/23,16,2.1.4保存和运行程序,1保存工程 单击“文件”菜单中的“保存工程” 2运行程序 单击工具栏中的启动按钮，或者按F5键开始运行该应用程序。,2020/10/23,17
7、,2.1.5编译与打包,1编译应用程序 单击“文件”菜单中的“生成Timer.exe”选项 2打包 创建一个安装程序来发布文件 Package运行后将窗体的颜色设置为黄色;单机窗体时窗体变宽;双击窗体时退出.,2020/10/23,41,2.3.3 命令按钮 其主要功能是通过命令按钮来调用Click 事件过程。控制开始、中断、结束一个进程。 1、常用属性 Enabled：允许程序在运行时使窗体和控件成为有效或无效 object.Enable =boolean Visible：允许在程序运行时隐藏一个对象 object.Visible =boolean Style：设置按钮外观。0为标准Wind
8、ows风格 ，1为允许带有自定义图片 Picture：Style为1时，指定粘贴到按钮上的图形文件 Default：属性为True时，指定为窗体缺省按钮 Cancel：属性为True时，指定为窗体缺省取消按钮,2020/10/23,42,例如： Option Explicit Private Sub Form_Load() Text1.Text = Command1.Caption = save End Sub Private Sub Text1_Change() If Text1.Text = Then Command1.Enabled = False Else Command1.Enabl
9、ed = True End If End Sub,2020/10/23,43,2、常用方法 SetFocus方法 3、常用事件 Click(单击) Click事件，以下情况可发生Clicl事件： (1) 在按钮上单击鼠标。 (2) 焦点在按钮上，按空格键或回车键。 (3) 在代码中将按钮Value属性设置为True (4) 对于取消按钮按Esc键 (5) 在Caption属性中用&符号链接一访问键，在运行时按Ali+访问键。,2020/10/23,44,234 标签,标签现实不能编辑的信息。 1 常用属性 （1）AutoSize 当值为true 时自动调节内容大小以适应其内容。当值为false
10、时，不能改变大小。 （2）Alignment 属性 标签内文本的对齐方式，标2. 7所示 (3) BordeStyle 属性 标签的边框,默认值为0 ,无边框。属性设为1 右边框。,2020/10/23,45,（4）Backstyle 属性 用来设置标签是否透明，0透明，1不透明，默认值为1。 （5）wordwrap属性 用来设置标签中的内容是否能够显示多行。缺省为false ，设为true 可显示多行。 2 常用方法 常用方法有move方法实现控件的移动。,2020/10/23,46,其他用法 用标签来显示时间 Label1.Caption = Time 在标签中同时显示两行以上的字符串 L
11、abel1.Caption = Time & Chr(13) & Chr(10) & Date,2020/10/23,47,2.3.5文本框（Textbox）,1常用属性 （1）Text属性 （2）MultiLine属性,2020/10/23,48,2.3.5文本框（Textbox）,1常用属性 （3）PassWordChar,2020/10/23,49,235 文本框,文本框控件一般用于接收用户输入信息，用户可以在文本框中编辑信息。 1 常用属性 （1）text 属性 用来设置文本框中的内容。 （2）MultiLine 属性 MultiLine 属性用来决定文本框是否可输入多行文本。默认为f
12、alse ，设为true 可输入多行。 （3）PasswordChar 属性 用于密码输入，设置为* ，显示为*。,2020/10/23,50,（4）ScrollBars 属性 用于设置文本框是否有滚动条 如表2。8 只有当MultiLine 属性为true 时滚动条才有效。 （5）locked 属性 用于设置文本框的内容是否可以编辑，默认值为false 表示可编辑，值为true 表示锁定。,2020/10/23,51,2 常用方法 常用的方法为Setfocus 设置焦点，将光标从其它位置移到文本框中。 3 常用事件 （1）Chang事件，改变文本框中内容改变时发生的事件 （2）KeyPres
13、s 事件，当用户按下并且释放键盘上的一个键时，发生KeyPress 事件。该事件将返回一个KeyAscii 参数值. (3) LostFocus 和GotFocus 事件：表示文本框控件shiqu和得到焦点是所发生的事件。,2020/10/23,52,24 事件驱动,241 事件驱动的程序设计 事件驱动的应用程序，程序的执行发生了根本的变化，代码不是按预定的路线执行，而是在响应不同的事件时执行不同的代码片断。每个对象都有一个相应的事件集每个事件的发生都要执行一段程序代码，时间可以由用户操作触发，也可以有操作系统或其他应用程序的消息触发，甚至可以由应用程序本身的消息触发。,2020/10/23,
14、53,242 VB的对象如何识别事件,代码部分与每个事件相对应,如果让控件对象响应事件,就把代码写入这个事件的事件过程中.,2. 4. 3 事件驱动的工作过程,事件驱动的工作过程 (1) 启动应用程序,装载和显示函数。 (2) 窗体和窗体上的控件等待时间的发生。事件可以由用户引发，可由系统引发，也可由代码间接引发。 (3) 当某个事件发生后，执行其对应的事件过程代码。 (4) 重复执行第2和第3步，直到结束。,2020/10/23,54,五、计时器控件的一般用法,如果想通过事件来控制某些操作或用于计时，就可以用计时器（Timer）控件来实现。计时器控件在设计时可见，而在运行时则隐藏起来，但在后
15、台每隔一定的时间间隔就执行一次Timer事件。,（一）常用属性 1、Interval属性 返回或设置对Timer控件的计时事件各调用间的毫秒数 语法：object.Interval=milliseconds milliseconds:0使Timer控件无效；165535可设置的时间间隔范围 2、 Enable属性：用来决定计时器控件是否能够响应计时事件。相当于启动或关闭计时器的开关。,2020/10/23,55,（二）Timer事件 Timer事件 是计时器的唯一事件。在一个Timer预定时间间隔过去之后发生，用以告诉VB在每个Interval到时该做什么。 语法： Private Sub o
16、bject_Timer(index As Integer) 程序代码 End Sub,2020/10/23,56,本章习题,一、单项选择题 1.在 Visual Basic的集成开发环境中创建Visual Basic应用程 序时，除了工具箱窗口、窗体设计窗口、属性窗口外，必 不可少的窗口是（ ）。 A窗体布局窗口 B立即窗口 C代码窗口 D监视窗口 2应用程序打包后，其包文件的后缀为（ ）。 A.exe B.cab C.txt D.ocx 3当运行程序时，系统自动执行启动窗体的（ ）事件过程。 ALoad BClick CUnload DGotFocus,2020/10/23,57,4.下列赋值语句正确的是（ ） AA=B+C BB+C =A C-B=A D2=A+B 5时钟控件响应的事件是（ ） ATimer
