z3

如果单击“确定”按钮，则strIDcard的值为输入值 “123456789”，否则为空字符串。
使用InputBox 函数
例3-2：在上例中，如果要求在单击InputBox对话框中的“确 定”按钮后，弹出一个如下图所示的对话框，以便用户进行 审查并作出如下选择：
第三章 窗体(Form)和简单的输入输 出 本章要求： 1.掌握窗体的属性、事件、和方法；
2.数据的输入和输出；
3.1 窗体的常用属性、方法和事件
窗体属性决定了窗体的外观与操作。 窗体外观 如下图
一. 属性（1）
（一）基本属性 1. Name名称属性（任何对象都具有的） 创建的对象名称,有默认的名。在程序中，控件名是 作为对象的标识而引用，不会显示在窗体上。 2. Height、width、top和left属性 单位为twip：1 twip=1/20点=1/1440英寸=1/567cm
说明
（1）它有两种可能值：vbModal（缺省）或vbModeless， 参数表示从当前窗口切换到其他窗口之前用户必须采取的动 作。当参数为vbModal时，要求用户必须对当前的窗口必须 隐藏或卸载模式窗体，才能切换到其他窗口。
（2）如果要显示的窗体事先未装入，该方法会自动装入该 窗体再显示。 试比较下面两个程序的结果。
左边距离，上边距离，宽度，高度：数值表达式，单位twip。
如果是窗体对象，则“左边距”和“上边距”是以屏幕左 边界和上边界为准。其它则是以窗体的左边和上边界为准。
例 使用Move方法移动一个窗体。双击窗体，窗体移动并 定位在屏幕的左上角，同时窗体的长宽也缩小一倍。 为了实现这一功能，可以在窗体Forml的“代码”窗口中 输入下列代码：
2. Cls方法 形式 : [对象.]Cls
作用 : 清除运行时在窗体或图形框中显示的文本或图形。
注意 : 不清除在设计时的文本和图形。 清屏后坐标当前回到原点------对象的左上角0，0 。 3. Move方法 形式 : [对象.]Move 左边距离[，上边距离[，宽度[，高度]]] 作用 : 移动窗体或控件，并可改变其大小。 对象：可以是窗体及除时钟、菜单外的所有控件，省略代表 窗体。
‘ Form2显示出来；在其关闭之前，后面的提示信息不会显示出来。只 有关闭了form2时才会现实提示信息。 Private Sub Form_DblClick() Form2.Show vbModal MsgBox "Test" End Sub
'Form2显示出来后，后面的提示信息马上就显示出来了。
FontBold属性是逻辑型，决定对象上正文是否是粗体。 FontItalic属性是逻辑型，决定对象上正文是否是斜体。 FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线。 FontUnderLine属性是逻辑型，决定对象上正文是否带下划线。
一. 属性（3）
5. Enabled属性（逻辑值） 决定控件是否可操作。 True ：允许用户进行操作，并对操作出响应 （缺省值） 。 False：呈暗淡色，禁止用户进行操作。 6. Visible属性（逻辑值） 决定控件是否可见 True ：运行时控件可见（缺省值） 。 False：运行时控件隐藏，用户看不到，但控件本 身是存在的。
Private Sub Form_DblClick() Form2.Show vbModeless
MsgBox "Test"
End Sub
5．Hide(隐藏)方法 Hide方法用于使指定的窗体不显示，但不从内存中删除 窗体。其调用格式为： 窗体名.Hide
说明：
当一个窗体从屏幕上隐去时，其Visible属性被设置成 False，并且该窗体上的控件也变得不可访问，但对运行程
窗体的其它常用属性（1）
1．MaxButton最大化按钮和MinButton最小化按钮： 当值为 Ture，有最大或最小化按钮，False则无。 2．ControlBox控制菜单框属性： 设置Ture为有，如设置为False则无控件菜单，同时窗体也无 最大化按钮和最小化按钮，即使MaxButton属性和 MinButton属性设置为Ture。
缺省值
例如：有下列语句如下: Dim strName As String * 40， strS1 As String * 40 strS1 = “请输入你的姓名” + Chr(13) + Chr(10) + “然后单 击确定” strName= InputBox$(strS1， “输入框”， ， 100，100) 当键盘输入“王晓明” 后,变量strName获得键盘输入的值.
例 在窗体Form1的单击事件中写入如下代码： Private Sub Form_Click() a = 10: b = 3.14: c = 100 Print "a="; a, "b="; b Print "a="; a, "b="; b Print "a="; a, "b="; b Print '空一行 Print ; "a="; a, "b="; b Print "a="; a, Tab(18); "b="; b Print "a="; a, Spc(18); "b="; b Print Print "a="; a, "b="; b Print Tab(18); "a="; a, "b="; b ' 从第18列开始打印输出 Print Spc(18); "a="; a, "b="; b End Sub
按钮及图标值如下:
根据用户所选按钮，函数返 回1—7的整数值，其含义 如下表:（表3.2)
例3-1：在上述实例中，要求单击“发送”命令按钮后，显 示如下对话框，提示您输入身份证号，并将输入内容保存在变 量strIDcard中。 增添的代码为：
Private Sub Command1_Click() Dim strIDcard As String, strText As String strText = "请输入您的身份证号并单击“确定”" + Chr(13) + Chr(10) + "重新填写请单击“取消”" strIDcard = InputBox$(strText, "身份证号", , 100, 100) Text1.SetFocus End Sub
序间的数据引用无影响。若要隐去的窗体没有装入，则 Hide方法会装入该窗体但不显示。
例 实现将指定的窗体在屏幕上进行显示或隐藏的切换。 为了实现这一功能，可以在窗体Forml的“代码”窗口 中输入下列代码： Private Sub Form_Click() Form1.Hide ' 隐藏窗体 MsgBox "单击按钮，使窗体重现屏幕" ' 显示信息 Form1.Show ' 重现窗体 End Sub
3．Icon 控制图标属性：
返回或设置窗体左上角显示或最小化时显示的图标。 注意：此属性必须在ControlBox属性设置为Ture才有效
窗体的其它常用属性（2）
4．Picture图片属性：
设置窗体中要显示的图片。加载图片操作同Icon 控制 图标属性。 5. BorderStyle：边框风格 通过改变 BorderStyle 属性，可以控制窗体如何调整大小。
即是否重画如Circle、Line、Pset和Print等方法的输出。
当为True时，重新还原该窗体以前的画面。 当为False时，则不重画AutoRedraw属性。
二、事件
最常用的事件 1. Click / DblClick：单击 / 双击窗体触发。
2. Load：窗体被装入时触发的事件。该事件通常用来在 启动应用 程序时对属性和变量进行初始化。
注意：这四 个属性决定窗体 （或控件）的大 小，在容器中的 位置。如右图。
一. 属性（2）
3．Caption 标题属性： 决定出现在窗体的标题栏上的文本内容，也是当窗体 被最小化后出现在窗体图标下的文本。 4 字体Font属性组
FontName属性是字符型，决定对象上正文的字体（缺省为宋体）。
FontSize属性是整型，决定对象上正文的字体大小。
函数指定标准RGB颜色。
例如，将窗体Form1的背景色设置为红色，则可使用下 面三种情况： Form1.BackColor = RGB(255, 0, 0) Form1.BackColor = &HFF& ‘&H蓝蓝绿绿红红
(低字节到高字节分别表示红、绿、蓝的值)
Form1.BackColor = vbRed
3.2 简单的输入输出
1. InputBox函数
变量名=InputBox[$](<提示信息>[，<标题>][，<缺省>] [，<x坐标>][，<y坐标>] ) 其中:提示 提示信息,标题 标题区显示,缺省输入区缺省值 有$ 返回字符类型,否则为数值类型. 例如，要在屏幕上显示如下的对话框:
标题 提示
Private Sub Form_DblClick() Form1.Move 0,0,Form1.Width/2,Form1.Height/2
End Sub
4．Show(显示)方法 Show方法用于在屏幕上显示一个窗体，调用 Show 方法与 设置窗体 Visible 属性为 True 具有相同的效果。 其调用格式如下： 窗体名.Show [vbModal | vbModeless]，ownerform
可以改变窗口பைடு நூலகம்小。
窗体的其它常用属性（3）
6. WindowsState属性 0：Normal：正常窗口状态，有窗口边界；
1：最小化状态，以图标方式运行；
2：最大化状态，无边框，充满整个屏幕。
7. AutoRedraw属性
该属性决定窗体被隐藏或被另一窗口覆盖之后重新 显示，是否重新还原该窗体被隐藏或覆盖以前的画面。
3. Unload事件
卸载窗体时触发该事件。
4. Resize事件 无论是因为用户交互，还是通过代码调整窗体的大小， 都会触发一个Resize事件。
三、常用方法
窗体常用的方法有： 打印输出Print、移动Move、清除Cls、显示 Show 、隐藏Hide等方法。 方法是面向对象故使用的形式: 1.Print方法 形式: [对象.]Print [{Spc(n)|Tab(n)}][表达式列表][；|，] 作用: 在对象上输出信息 对象：窗体、图形框或打印机(Pinter) ,省略对象在窗体上输出。 Spc(n)函数：插入n个空格，允许重复使用。 Tab(n)函数：左端开始右移动n列，允许重复使用。 ；(分号)：光标定位上一个显示的字符后。 ，(逗号)：光标定位在下一个打印区的开始位置处。每个打印 区占14列。 无 ；，换行。 开始打印的位置是由对象的CurrentX和CurrentX属性决定， 缺省为打印对象的左上角0，0。 [对象.]方法
0-None：无边框；
1-Fixed Single：单线边框，不可以改变窗口大小； 2-Sizable：双线边框，可以改变窗口大小；
3-Fixed Double：双线框架，不可以改变窗口大小。
4-Fixed Tool Window:窗体外观与工具条相似。有关闭按钮 ，不 可以改变窗口大小。
5-Sizable Tool Window：窗体外观与工具条相似。有关闭按钮 ，
标题题
提示 缺省值
2. MsgBox函数和MsgBox过程
函数形式:变量[%] = MsgBox(提示[,按钮[＋图标]+ [缺省按钮]+[模式]][，标题]) 过程形式: MsgBox 提示[,按钮[＋图标] +[缺省按钮]+ [模式]][,标题] 提示信息 标题 命令按钮 图标
说明： １ “标题”和“提示”与InputBox函数中对应的参数 相同； ２ “按钮＋图标 +缺省按钮+模式”是整型表达式，决 定信息框按钮数目、出现在信息框上的图标类型及操作模 式(见表4.1) ３ 若程序中需要返回值，则使用函数，否则可调用过 程。
一. 属性（4）
7．BackColor属性和ForeColor属性
BackColor属性用于返回或设置对象的背景颜色，
ForeColor属性用于返回或设置在对象里显示图片和 文本的前景颜色。它们是十六进制长整型数据 在程序代码中可用Windows 运行环境的红-绿-蓝 (RGB) 颜色方案，使用调色板或在代码中使用 RGB 或 QBColor