第三章窗体()和简单的输入输出.ppt

第三章窗体 Form 和简单的输入输出 1 掌握窗体的属性 事件 和方法 2 数据的输入和输出 本章要求 3 1窗体的常用属性 方法和事件 窗体属性决定了窗体的外观与操作 窗体外观如下图 一 属性 一 基本属性1 Name名称属性 任何对象都具有的 创建的对象名称 有默认的名 在程序中 控件名是作为对象的标识而引用 不会显示在窗体上 2 Height width top和left属性单位为twip 1twip 1 20点 1 1440英寸 1 567cm 注意 这四个属性决定窗体 或控件 的大小 在容器中的位置 如右图 3 Caption标题属性 决定出现在窗体的标题栏上的文本内容 也是当窗体被最小化后出现在窗体图标下的文本 4字体Font属性组 FontName属性是字符型 决定对象上正文的字体 缺省为宋体 FontSize属性是整型 决定对象上正文的字体大小 FontBold属性是逻辑型 决定对象上正文是否是粗体 FontItalic属性是逻辑型 决定对象上正文是否是斜体 FontStrikeThru属性是逻辑型 决定对象上正文是否加一删除线 FontUnderLine属性是逻辑型 决定对象上正文是否带下划线 5 Enabled属性 逻辑值 决定控件是否可操作 True 允许用户进行操作 并对操作出响应 缺省值 False 呈暗淡色 禁止用户进行操作 6 Visible属性 逻辑值 决定控件是否可见True 运行时控件可见 缺省值 False 运行时控件隐藏 用户看不到 但控件本身是存在的 7 BackColor属性和ForeColor属性BackColor属性用于返回或设置对象的背景颜色 ForeColor属性用于返回或设置在对象里显示图片和文本的前景颜色 它们是十六进制长整型数据在程序代码中可用Windows运行环境的红 绿 蓝 RGB 颜色方案 使用调色板或在代码中使用RGB或QBColor函数指定标准RGB颜色 例如 将窗体Form1的背景色设置为红色 则可使用下面三种情况 Form1 BackColor RGB 255 0 0 Form1 BackColor HFF 低字节到高字节分别表示红 绿 蓝的值 Form1 BackColor vbRed 二 窗体的其它常用属性 1 MaxButton最大化按钮和MinButton最小化按钮 当值为Ture 有最大或最小化按钮 False则无 3 Icon控制图标属性 返回或设置窗体左上角显示或最小化时显示的图标 注意 此属性必须在ControlBox属性设置为Ture才有效 2 ControlBox控制菜单框属性 设置Ture为有 如设置为False则无控件菜单 同时窗体也无最大化按钮和最小化按钮 即使MaxButton属性和MinButton属性设置为Ture 4 Picture图片属性 设置窗体中要显示的图片 加载图片操作同Icon控制图标属性 5 BorderStyle 边框风格通过改变BorderStyle属性 可以控制窗体如何调整大小 0 None 无边框 1 FixedSingle 单线边框 不可以改变窗口大小 2 Sizable 双线边框 可以改变窗口大小 3 FixedDouble 双线框架 不可以改变窗口大小 4 FixedToolWindow 窗体外观与工具条相似 有关闭按钮 不可以改变窗口大小 5 SizableToolWindow 窗体外观与工具条相似 有关闭按钮 可以改变窗口大小 6 WindowsState属性0 Normal 正常窗口状态 有窗口边界 1 最小化状态 以图标方式运行 2 最大化状态 无边框 充满整个屏幕 7 AutoRedraw属性该属性决定窗体被隐藏或被另一窗口覆盖之后重新显示 是否重新还原该窗体被隐藏或覆盖以前的画面 即是否重画如Circle Line Pset和Print等方法的输出 当为True时 重新还原该窗体以前的画面 当为False时 则不重画AutoRedraw属性 二 事件最常用的事件1 Click DblClick 单击 双击窗体触发 2 Load 窗体被装入时触发的事件 该事件通常用来在启动应用程序时对属性和变量进行初始化 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 例在窗体Form1的单击事件中写入如下代码 PrivateSubForm Click a 10 b 3 14 c 100Print a a b bPrint a a b bPrint a a b bPrint 空一行Print a a b bPrint a a Tab 18 b bPrint a a Spc 18 b bPrintPrint a a b bPrintTab 18 a a b b 从第18列开始打印输出PrintSpc 18 a a b bEndSub 2 Cls方法形式 对象 Cls作用 清除运行时在窗体或图形框中显示的文本或图形 注意 不清除在设计时的文本和图形 清屏后坐标当前回到原点 对象的左上角0 0 3 Move方法形式 对象 Move左边距离 上边距离 宽度 高度 作用 移动窗体或控件 并可改变其大小 对象 可以是窗体及除时钟 菜单外的所有控件 省略代表窗体 左边距离 上边距离 宽度 高度 数值表达式 单位twip 如果是窗体对象 则 左边距 和 上边距 是以屏幕左边界和上边界为准 其它则是以窗体的左边和上边界为准 例使用Move方法移动一个窗体 双击窗体 窗体移动并定位在屏幕的左上角 同时窗体的长宽也缩小一倍 为了实现这一功能 可以在窗体Forml的 代码 窗口中输入下列代码 PrivateSubForm DblClick Form1 Move0 0 Form1 Width 2 Form1 Height 2EndSub 4 Show 显示 方法Show方法用于在屏幕上显示一个窗体 调用Show方法与设置窗体Visible属性为True具有相同的效果 其调用格式如下 窗体名 Show vbModal vbModeless 说明 1 它有两种可能值 vbModal 缺省 或vbModeless 参数表示从当前窗口或对话框切换到其他窗口或对话框之前用户必须采取的动作 当参数为vbModal时 要求用户必须对当前的窗口或对话框做出响应 才能切换到其他窗口 2 如果要显示的窗体事先未装入 该方法会自动装入该窗体再显示 试比较下面两个程序的结果 Form2显示出来 在其关闭之前 后面的提示信息不会显示出来 只有关闭了form2时才会现实提示信息 PrivateSubForm DblClick Form2 ShowvbModalMsgBox Test EndSub 5 Hide 隐藏 方法Hide方法用于使指定的窗体不显示 但不从内存中删除窗体 其调用格式为 窗体名 Hide Form2显示出来后 后面的提示信息马上就显示出来了 PrivateSubForm DblClick Form2 ShowvbModelessMsgBox Test EndSub 例实现将指定的窗体在屏幕上进行显示或隐藏的切换 为了实现这一功能 可以在窗体Forml的 代码 窗口中输入下列代码 PrivateSubForm Click Form1 Hide 隐藏窗体MsgBox 单击按钮 使窗体重现屏幕 显示信息Forml Show 重现窗体EndSub 说明 当一个窗体从屏幕上隐去时 其Visible属性被设置成False 并且该窗体上的控件也变得不可访问 但对运行程序间的数据引用无影响 若要隐去的窗体没有装入 则Hide方法会装入该窗体但不显示 3 2简单的输入输出1 InputBox函数变量名 InputBox 其中 提示提示信息 标题标题区显示 缺省输入区缺省值有 返回字符类型 否则为数值类型 例如 要在屏幕上显示如下的对话框 例如 有下列语句如下 DimstrNameAsString 40 strS1AsString 40strS1 请输入你的姓名 Chr 13 Chr 10 然后单击确定 strName InputBox strS1 输入框 100 100 当键盘输入 王晓明 后 变量strName获得键盘输入的值 2 MsgBox函数和MsgBox过程函数形式 变量 MsgBox 提示 按钮 图标 缺省按钮 模式 标题 过程形式 MsgBox提示 按钮 图标 缺省按钮 模式 标题 说明 标题 和 提示 与InputBox函数中对应的参数相同 按钮 图标 缺省按钮 模式 是整型表达式 决定信息框按钮数目 出现在信息框上的图标类型及操作模式 见表4 1 若程序中需要返回值 则使用函数 否则可调用过程 按钮及图标值如下 根据用户所选按钮 函数返回1 7的整数值 其含义如下表 表3 2 例3 1 在上述实例中 要求单击 发送 命令按钮后 显示如下对话框 提示您输入身份证号 并将输入内容保存在变量strIDcard中 增添的代码为 PrivateSubCommand1 Click DimstrIDcardAsString strTextAsStringstrText 请输入您的身份证号并单击 确定 Chr 13 Chr 10 重新填写请单击 取消 strIDcard InputBox strText 身份证号 100 100 Text1 SetFocusEndSub 如果单击 确定 按钮 则strIDcard的值为输入值 123456789 否则为空字符串 图4 5使用InputBox函数 单击 是 完成提交操作 显示如图4 7对话框 单击 确定 结束程序 单击 否 返回Command1 click事件 重新显示如图4 5所示输入对话框 单击 取消 没有提交操作 显示如图4 8对话框 单击 确定 结束程序 图4 6MsgBox对话框的应用 a 例3 2 在上例中 如果要求在单击InputBox对话框中的 确定 按钮后 弹出一个如图4 6所示的对话框 以便用户进行审查并作出如下选择 图4 7MsgBox对话框的应用图4 8MsgBox对话框的应用 修改的Command1 click事件代码为 PrivateSubCommand1 Click DimintMsginAsIntegerDimstrmsgAsStringstrText 请输入您的身份证号并单击 确定 Chr 13 Chr 10 重新填写请单击 取消 strIDcard InputBox strText 身份证号 100 100 strmsg 请确认您的身份证号码 Chr 13 Chr 10 strIDcard 图4 9对话框显示的内容IfstrIDcard ThenintMsgin MsgBox strmsg vbYesNoCancel vbQuestion vbDefaultButton2 确认身份证 EndIfSelectCaseintMsginCase6 提交意见单的代码略MsgBox 您的意见已经提交 谢谢 vbOKOnly vbInformation 已经提交 Case7Command1 Click 重新执行Command1 Click事件Case2MsgBox 您已经放弃提交意见 欢迎下次参加 vbOKOnly vbCritical 放弃提交 EndSelectEndEndSub 3Print方法 Print方法的语法格式为 object Print Spc n Tab n expressioncharpos 其中 object 窗体 图片框 打印机等对象 Expression 要打印的数值表达式或字符串表达式 Charpos 逗号或分号 指定下个字符的插入点 4 与Print方法有关的函数 与Print相配合的函数 1 Tab函数 与Print 语句或Print方法一起使用 对输出进行定位 格式 Tab n 当在一个Print方法中有多个Tab函数时 每个Tab函数对应一个输出项 各输入项之间用分号隔开 例题 PrivateSubForm Click Print 12345678901234567890 PrintTab 5 5 Tab 10 2 8 注意这里10 2 当前位置5 故同行显示 PrintTab 5 5 Tab 10 6 4 Tab 20 15 5 注意这里10 6当前位置4 故同行显示 EndSub程序执行结果见图4 1 程序中已经对程序显示特点做出解释 图4 1Print方法与Tab 函数结合 2 Spc函数 格式 Spc n 在显示或打印列表中的下一个表达式之前插入n个空白数 n为0 32767之间的整数 Spc函数与输出项之间用分号隔开 如果n小于输出行的宽度 则下一个打印位置将紧接在数个已打印的空白之后 如果n大于输出行的宽度 则Spc利用下列公式计算下一个打印位置 当前位置 nMod行宽 Spc函数与Tab函数的作用类似 可以互相代替 但应注意 Tab函数从对象的左端开始记数 而Spc函数只表示两个输出项之间的间隔 5 使用位置属性 位置属性CurrentX和CurrentY常用来把文本精确地输出到窗体 图片框或打印页上 这两个属性分别表示当前输出位置的横坐标与纵坐标 格式 对象名称 CurrentX x 对象名称 CurrentY y 例如 下面程序将图片框相对于窗体居中显示 图片框中的文字居中显示 PrivateSubForm Click Dimstr1AsStringstr1 图片框相对窗体 文字相对图片框居中显示 Picture1 FontName 宋体 图片框中文字的字体Picture1 FontSize 16 图片框中文字的字号Picture1 Left ScaleWidth Picture1 Width 2 图片框水平位置Picture1 Top ScaleHeight Picture1 Height 2 图片框垂直位置Picture1 CurrentX Picture1 ScaleLeft Picture1 Width 2 Picture1 TextWidth str1 2 输出水平位置Picture1 CurrentY Picture1 ScaleTop Picture1 Height 2 Picture1 TextHeight s