第2章 窗体和基本控件,第2章 窗体和基本控件,2.1 窗体 2.2 命令按钮 2.3 标签 2.4 文本框 2.5 焦点 2.6 综合应用,2.1 窗体,窗体是应用程序界面的窗口。 窗体既是一个控件，又是其他控件的容器。 程序运行时，每个窗体对应一个窗口，用户使用窗口与应用程序进行交互。,2.1 窗体,2.1.1 窗体的基本属性 2.1.2 窗体的常用事件 2.1.3 窗体的常用方法 2.1.4 多窗体设计,2.1.1 窗体的基本属性,1Name（名称）属性 以字母或汉字开头，由字母、数字和下划线组成，长度不超过40个字符。 不允许使用VB的保留关键字和对象名。 默认名称为Form1 2Caption属性 设置窗体的标题。 例如： Form1.Caption=“第一个Visual Basic程序“,2.1.1 窗体的基本属性(1),3Height、Width属性 指定窗体的高度和宽度 单位是Twip（缇） 4Left、Top属性 设置窗体左边框距屏幕左边界的距离和窗体上边距屏幕顶端的距离。,2.1.1 窗体的基本属性(2),5Font属性 FontName：字体（默认为宋体） FontSize：字体的大小 FontBold：粗体 FontItalic：斜体 FontStrikeThru：删除线 FontUnderline：下划线,2.1.1 窗体的基本属性(3),6BackColor和ForeColor属性 BackColor：返回或设置对象的背景颜色 ForeColor：返回或设置在对象中显示图片和文本的前景颜色。 7ControlBox（控制菜单框）属性 设置窗口控制菜单框的状态。 设置为True，表示有控制菜单。 设置为False，表示无控制菜单 。,2.1.1 窗体的基本属性(4),8MaxButton和MinButton属性 设置窗体的标题栏是否具有最大化和最小化按钮。,2.1.1 窗体的基本属性(5),9BorderStyle（边框类型）属性,2.1.1 窗体的基本属性(6),10WindowState（窗口状态）属性 设置程序启动后窗体的初始状态 。,2.1.1 窗体的基本属性(7),11Enabled属性 设置窗体以及其内部的控件是否可以被操作。 12Movable属性 设置窗体是否可以移动。 13Visible属性 设置窗体是否可见。 14Icon（图标）属性 返回或设置窗体左上角显示或最小化显示时的图标。 在ControlBox属性设置为True时，Icon属性有效。,2.1.1 窗体的基本属性(8),15Picture（图片）属性 设置窗体的背景图片。 16AutoRedraw属性 决定窗体被隐藏或被另一窗口覆盖之后重新显示，是否重新还原该窗体被隐藏或覆盖以前的画面。,2.1.2 窗体的常用事件,1鼠标事件 Click事件：在程序运行过程中，单击窗体的空白区域，则会触发窗体的单击事件 。 DblClick事件：当在程序运行过程中，双击窗体的空白区域，则会产生窗体的双击事件。 例2.1 设计一个应用程序，当单击窗体时，窗体标题改变为“VB应用程序”，并在窗体上用Print方法输出“欢迎使用Visual Basic 6.0”。,2.1.2 窗体的常用事件(1),1鼠标事件(1) MouseDown事件：按下鼠标键时，触发该事件。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print “这就是MouseDown事件“ End Sub 参数说明： Button：被按下的鼠标键。 Shift：键盘上是否有转换键Alt、Shift、Ctrl键同时按下。 X，Y：鼠标光标当前的位置。,2.1.2 窗体的常用事件(2),1鼠标事件(2) MouseDown事件：按下鼠标键时，触发该事件。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print “这就是MouseDown事件“ End Sub 参数说明： Button：被按下的鼠标键。 Shift：键盘上是否有转换键Alt、Shift、Ctrl键同时按下。 X，Y：鼠标光标当前的位置。,2.1.2 窗体的常用事件(3),1鼠标事件(3) MouseMove事件：当鼠标指针在屏幕上移动时触发该事件。 MouseUp事件：当单击鼠标后，释放鼠标按钮时触发该事件。,2.1.2 窗体的常用事件(4),2键盘事件 KeyPress事件：当按下键盘上的与ASCII字符对应的键时触发该事件。 Private Sub Form_KeyPress(KeyAscii As Integer) Print “这就是KeyPress事件“ End Sub,2.1.2 窗体的常用事件(5),2键盘事件(1) KeyDown事件：用户按下键盘上某一个键时触发该事件。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print “这就是KeyDown事件“ End Sub,2.1.2 窗体的常用事件(6),2键盘事件(2) KeyUp事件：用户按下并释放键盘上某一个键时触发该事件。 Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Print “这就是KeyUp事件“ End Sub,2.1.2 窗体的常用事件(7),2键盘事件(3) 参数说明： KeyCode：按键的扫描码。对于字母键，它不区分大小写，其编码与大写字母的ASCII码相同。数字键有大键盘和小键盘两种输入方式，它们的KeyCode码不相同。 KeyAscii：返回所按键的ASCII码。将KeyAscii改变为0时可取消击键，则对象接收不到字符。 Shift：键盘上是否有转换键Alt、Shift、Ctrl键同时按下。,2.1.2 窗体的常用事件(8),2键盘事件(4) KeyUp事件：用户按下并释放键盘上某一个键时触发该事件。 Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Print “这就是KeyUp事件“ End Sub,2.1.2 窗体的常用事件(9),3其他事件 Load事件 ：窗体被装入内存工作区时触发的事件。 例2.2 利用代码设置窗体的属性。 创建一个窗体，双击窗体，打开代码窗口，输入如下语句。 Private Sub Form_Load() Me.Height=1800 me代表当前窗体 Me.Width=3000 Me.Top=3000 Me.Left=1500 Me.Caption=“窗体示例“ Me.BackColor=RGB(255, 255, 255) Me.AutoRedraw=True End Sub,2.1.2 窗体的常用事件(10),3其他事件(1) Unload事件 ：窗体被卸载时触发该事件。 Activate事件：当一个窗体变为活动窗体时，触发该事件。 Deactivate事件：当取消某个活动窗体，激活另一个窗体时，该窗体发生Deactivate事件。 Paint事件：窗体被移动或放大时，产生该事件。 Resize事件：调整窗体大小时，触发该事件。,2.1.2 窗体的常用事件(11),例2.3 设计一个应用程序，在窗体上显示制定的字符串，单击窗体结束程序的执行。 设计步骤如下： Load事件中设置窗体属性，输入代码。 Private Sub Form_Load() 窗体加载事件，窗体属性初始化 me.Caption=“VB应用程序示例“ 窗体标题 me.Top=1000 窗体左上角垂直坐标 me.Left=2000 窗体左上角水平坐标 me.Height=1500 窗体高度 me.Width=4000 窗体宽度 End Sub,2.1.2 窗体的常用事件(12),在窗体的Activate事件中输入如下代码 。 Private Sub Form_Activate() 窗体激活事件 me.BackColor=RGB(255,255,255) 窗体背景为白色 me.FontName=“黑体“ me.FontSize=12 字号12磅，1磅=1/72英寸 me.ForeColor=RGB(0,255,255) 窗体背景为青色 me.Print me.Print Spc(2); “窗体的属性、事件和方法举例“ 显示字符串 End Sub 在Click事件中输入如下代码。 Private Sub Form_Click() End 结束程序 End Sub,2.1.3 窗体的常用方法,1Print方法 在窗体上显示文本字符串和表达式的值。 还可以在其他图形对象或打印机上输出信息。 Print “12*2=“; 12*2 在当前窗体上输出12*2=24 Picture1.Print “Good“ 在图片框Picture1上输出Good Printer.Print “Morning“ 在打印机上输出Morning 注意： Print方法中表达式以“;”分隔，则输出内容紧跟在当前输出内容后面； 表达式以“,”分隔，则下一个输出的内容在当前输出内容的下一分区输出； 语句行末尾无分隔符，则输出完本语句内容后换行。,2.1.3 窗体的常用方法(1),例如： Print 1; 2; 3 Print 4, 5, Print 6 Print 7, 8 Print Print 9, 10,2.1.3 窗体的常用方法(2),2Cls方法 清除使用Print等方法输出到窗体或图片框中的内容。 例如 Form1.Cls 清除窗体Form1上的内容 Cls方法清除图形和打印语句在运行时所产生的文本和图形。 设计时在Form中使用 Picture 属性设置的背景位图和放置的控件不受 Cls 方法影响。,2.1.3 窗体的常用方法(3),3Hide方法 用于隐藏Form对象，但不能使其卸载。 例如 Form1.Hide 隐藏窗体Form1 窗体被隐藏时，其Visible属性为False。 调用Hide方法时窗体还没有加载，则Hide方法将加载该窗体但不显示它。,2.1.3 窗体的常用方法(4),4Show方法 用于显示一个窗体，并将该窗体设置为当前活动窗体 。 例如 Form1.Show 显示Form1窗体 调用Show方法时指定的窗体没有装载，VB将自动装载该窗体。,2.1.3 窗体的常用方法(5),5Move方法 移动窗体或控件，并可改变其大小。 例如 Form1.Move 0, 0 将窗体移动到屏幕的左上角 Form1.Move Form1.Left+500 将窗体在原来位置的基础上向右移动500缇 Form1.Move 2000, 4000 将窗体移动到新位置(2000, 4000)，大小没有改变调用Show方法时指定的窗体没有装载，VB将自动装载该窗体。,2.1.4 多窗体设计,1添加窗体 2保存窗体 3. 删除窗体 4. 设置启动窗体,2.2 命令按钮,2.2.1 常用属性 2.2.2 主要事件,2.2.1 命令按钮的常用属性,1Caption属性 设置命令按钮上显示的文本信息 。 2Cancel属性 设置窗体中命令