《Visual Basic6.0程序设计 教学课件 ppt 作者 张险峰 第4章 Visual Basic窗体设计》由会员分享，可在线阅读，更多相关《Visual Basic6.0程序设计 教学课件 ppt 作者 张险峰 第4章 Visual Basic窗体设计（38页珍藏版）》请在金锄头文库上搜索。
1、第4章 Visual Basic窗体设计,本章要求：,1 掌握FORM窗体的概念与运用 2 了解多窗体的概念 掌握标签控件、文本框控件、命令按 钮控件的基本属性、事件、方法,4.1 FORM窗体,窗体属性决定了窗体的外观与操作。窗体外观 如下图,一. 属性 （一）基本属性 1. Name名称属性（任何对象都具有的） 创建的对象名称,有默认的名.在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。 2. Height、width、top和left属性 单位为twip： 1 twip=1/20点 =1/1440英寸 =1/567cm,4.1 FORM窗体,3Caption 标题属性： 决定出
2、现在窗体的标题栏上的文本内容。,4. 字体Font属性组,FontName属性是字符型，决定对象上正文的字体（缺省为宋体）。 FontSize属性是整型，决定对象上正文的字体大小。 FontBold属性是逻辑型，决定对象上正文是否是粗体。 FontItalic属性是逻辑型，决定对象上正文是否是斜体。 FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线。 FontUnderLine属性是逻辑型，决定对象上正文是否带下划线。,4.1 FORM窗体,5. Enabled属性（逻辑值） 决定控件是否可操作。 True ：允许用户进行操作，并对操作出响应（缺省值)。 False：呈暗
3、淡色，禁止用户进行操作。 6. Visible属性（逻辑值） 决定控件是否可见 True ：运行时控件可见（缺省值） 。 False：运行时控件隐藏，用户看不到，但控件本身是 存在的。,4.1 FORM窗体,7BackColor属性和ForeColor属性 BackColor属性用于返回或设置对象的背景颜色， ForeColor属性用于返回或设置在对象里显示图片和文本的前景颜色。,例如:将窗体Form1的背景色设置为红色，则可使用下面三种情况： Form1.BackColor = RGB(255, 0, 0) Form1.BackColor = &HFF& Form1.BackColor =
4、vbRed,4.1 FORM窗体,（二）窗体的其它常用属性,1MaxButton最大化按钮和MinButton最小化按钮：当值为 Ture，有最大或最小化按钮，False则无。,2Picture图片属性：设置窗体中要显示的图片。加载图片操作同Icon 控制图标属性。,4.1 FORM窗体,3. BorderStyle：边框风格, 通过改变 BorderStyle 属性，可以控制窗体如何调整大小。 0-None：无边框。 1-Fixed Single：单线边框，不可以改变窗口大小。 2-Sizable：双线边框，可以改变窗口大小。 3-Fixed Double：双线框架，不可以改变窗口大小。 4
5、-Fixed Tool Window:窗体外观与工具条相似。有关闭按钮 ，不可以改变窗口大小。 5-Sizable Tool Window：窗体外观与工具条相似。有关闭按钮 ，可以改变窗口大小。,4.1 FORM窗体,4. WindowsState属性 0-Normal：正常窗口状态，有窗口边界。 1：最小化状态，以图标方式运行。 2：最大化状态，无边框，充满整个屏幕。 5. AutoRedraw属性 该属性决定窗体被隐藏或被另一窗口覆盖之后重新显示，是否重新还原该窗体被隐藏或覆盖以前的画面。即是否重画如Circle、Line、Pset和Print等方法的输出。 当为True时，重新还原该窗体
6、以前的画面。 当为False时，则不重画AutoRedraw属性。,4.1 FORM窗体,二、事件 最常用的事件 1 Click/DblClick：单击/双击窗体触发。 2 Load： 窗体被装入时触发的事件。该事件通常用来在启动应用 程序时对属性和变量进行初始化。 3、Unload事件 卸载窗体时触发该事件。 4、Resize事件 无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个Resize事件。,4.1 FORM窗体,三、常用方法,窗体常用的方法有： 打印输出Print 移动Move 清除Cls 显示Show 隐藏Hide等方法。 方法的使用的形式: 对象.方法 参数,4.1
7、FORM窗体,例 利用属性窗口和程序代码设置Form的属性，要求将窗体 标题又“Form1”修改为“牛刀小试”，窗体是黑体白字“HOW ARE YOU”,具体步骤如下：, 进入VB6设计环境，在属性窗口中找到Caption（标题）。在Caption 属性值上单击鼠标左键，将原缺省值form1删除，再键入新的内容。,4.1 FORM窗体, 移动鼠标在BackColor属性值栏上单击鼠标左键，然后再单击下拉 箭头，调出调色板，选中黑色。,4.1 FORM窗体,移动鼠标在ForeColor属性值栏上单击鼠标左键，然后再单击下拉箭头， 调出调色板，选中白色。 在牛刀小试窗体上双击鼠标左键，调出代码窗口
8、，单击过程栏的下拉箭头，选择“click事件，在代码区输入Print “HOW ARE YOU?“。最后点击工具条中的“”图标则可进入运行阶段。,4.1 FORM窗体,例 编写一个随手画程序， 程序界面如图所示：,4.1 FORM窗体,程序代码如下:,Private Sub Form1_MouseMove (Button as Integer, Shift as Integer, x as Integer, y as Integer) Line-(x,y) End Sub,4.1 FORM窗体,4.2 标签 Label,用于显示文本(输出)信息，不能作为输入信息的界面。 1基本属性 Name、
9、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等与窗体的使用相同。 2常用属性 （1）Caption属性 Caption属性用来改变Label控件中显示的文本。Caption属性允许文本的长度最多为1024字节。缺省情况下，当文本超过控件宽度时，文本会自动换行，而当文本超过控件高度时，超出部分将被裁剪掉。,（2） Alignment属性 设置Caption属性中文本的对齐方式，共有三种可选值： 0 左对齐(Left Justify)； 1 右对齐(Right Justify)； 2 居中对齐(Center Justi
10、fy)。 （3）BackStyle属性 该属性用于确定标签的背景是否透明。有两种情况可选：值为0时，表示背景透明，标签后的背景和图形可见；值为1时，表示不透明，标签后的背景和图形不可见。,4.2 标签 Label,（4）AutoSize属性 AutoSize属性确定标签是否会随标题内容的多少自动变化。如果值为True，则随Caption内容的大小自动调整控件本身的大小，且不换行；如果值为False，表示标签的尺寸不能自动调整，超出尺寸范围的内容不予显示。,例1.5 利用Label1控件制作一个“仲夏夜演奏会”的宣传画，程 序界面如图所示。,4.2 标签 Label,具体步骤如下： 在工具箱中的
11、上单击鼠标左键，移动到窗体的适当位置，按住鼠标左键 拖曵，调出Label1。在属性窗口修改窗体Form1的Picture属性，加载合适 的图片。修改Label1的 Caption属性值，键入“仲夏之夜演奏会”。然后选 中Label1的Font属性，调出“字体”对话框选择字体为“华文中宋”，字型为 “粗体”，大小为“小四”，加下划线。再设Label1的BackColor为黄 色、ForeColor为红色。,4.2 标签 Label, 在窗体Form1上双击鼠标左键，调出代码窗口在 Form1_Click()事件代码 窗口中输入修改Label1控件属性的代码。如下图所示：, 最后点击工具条中的“”
12、图标，然后在窗体的任一位置单击鼠标左键。,4.2 标签 Label,4.3 文本框 TextBox,是一个文本编辑区域，在该区域输入，编辑和显示文本。 （一） 属性 1基本属性 Name、Height、Width、Top、Left、Enabled、Visible、 Font，ForeColor、BackColor等与标签控件相同。 2常用属性 （1）.Text文本属性 在文本框中显示的正文内容存放在Text属性中。当程序运行时，用户通过键盘输入正文内容，保存在Text属性中。 文本框没有Caption属性,（2）Maxlength： 设置正文的最多字符个数, 0任意长度值。 （3） Multi
13、Line： 是否为多行,默认一行. False （4）ScrollBars： 当MultiLine为True时,该属性才有效,滚动 条的形式。 0-None：无滚动条、 1-Horizontal：水平滚动条、 2-Vertical：垂直滚动条 3-Both：水平和垂直滚动条。,4.3 文本框 TextBox,（5）Locked： 是否可被编辑属性 False，表示为可编辑。 （6）PassWordChar属性 设置PasswordChar属性为了掩盖文本框中输入的字符。 该属性的设置只有在MultiLine设为 False才有效,4.3 文本框 TextBox,（7）SelStart、SelL
14、ength和SelText属性 这三个属性是文本框中对文本的编辑属性。 SelStart：确定在文本框选中文本的起始位置。第一字符 的位置为0。若没有选择文本，则用于返回或设置文本的插入点位置，如果SelStart的值大于文本的长度，则SelStart取当前文本的长度： SelLength：设置或返回文本框中选定的文本字符串长度（字符个数）。 SelText：设置或返回当前选定文本中的文本字符串。,4.3 文本框 TextBox,Change事件： 当改变文本框的Text属性时会引发该事件。当用输入一个字符，就会触发一次Change事件。 例：在文本框Text1的Change事件编写有如下程序
15、代码： Private Sub Text1_Change() Print Text1.tex End Sub 当程序运行后中输入ABCD，则在窗体上在输出结果是？,4.3 文本框 TextBox,KeyPress事件 当用户按下并释放键盘上一个ANSI键时，就会触发一次该事件，并返回一个KeyAscii参数（字符的Ascii值）到该事件过程中。 例如： Private Sub Text1_KeyPress(KeyAscii As Integer) Print KeyAscii, Chr(KeyAscii) End Sub 当程序运行后中输入ABCD，则在窗体上在输出结果是？ LostFocus
16、 ： 当控件失去焦点时发生。 GotFocus ： 当控件获得焦点时发生。,4.3 文本框 TextBox,（三） 常用方法 文本框最有用的方法是：SetFocus，使用形式： 对象.SetFocus 功能： 是把光标移到指定的文本框对象中。,例 利用Textbox控件制作一个密码框,4.3 文本框 TextBox,在 Command1 _Click()事件代码窗口中输入代码如下。 Private Sub Command1_Click() If Text1.Text = “1111“ Then Form1.Caption = “欢迎进入本系统“ Form1.BackColor = vbYellow Label1.Visible = True Command1.Visible = False Command2.Visible = False Text1.Visible = Fal
