VB第10章电子讲稿(其他常用控件及语句).ppt

第10章 其他常用的 语句及控件 本章主要内容其他一些常用语句框架 Frame 滚动条 ScrollBar 图形方法和图形控件 菜单设计 工具栏和状态栏 键盘与鼠标事件对话框 通用对话框 CommonDialog 文件系统控件 第10章其他常用的语句及控件 10 1 1强制显式声明变量语句 OptionExplicit 避免因为写错变量名而导致错误例如 交换变量a b的值Temp aa bb Tmp 把Temp写错成Tmp运行结果是使b的值为0 若改成 OptionExplicit 模块级声明DimaAsInteger bAsInteger TempAsInteger Temp aa bb Tmp运行时VB就会发出警告 Variablenotdefined 变量未定义 只有把Tmp改为Temp后才恢复正常 10 1其他常用语句 10 1 2自定义数据类型用户可以利用Type语句定义自己的数据类型 Private Public Type数据类型名元素名1As类型名1 元素名2As类型名2 EndType TypeRsk Rec编号AsString 3 用汉字表示字段名姓名AsString 8性别AsBoolean出生日期AsDate基本工资AsLongEndType 这里的Rsk Rec是一个用户定义的数据记录类型 它由5个元素 字段 组成 1 直接输出把信息直接送往打印机格式 Printer Print 表达式表 1 Page属性 设置当前页号格式 Printer Page 2 NewPage方法 实现换页操作格式 Printer NewPage 3 EndDoc方法 结束文件打印格式 Printer EndDoc 例10 3在打印机上打印文字 计算机程序设计 PrivateSubCommand1 Click Printer FontName 隶书 Printer FontSize 12Printer Print 计算机程序设计 将文本放到Printer对象中Printer EndDoc 打印结束EndSub 10 1 3打印机输出 2 窗体输出先把要输出的信息送到窗体上 再用PrintForm方法把窗体上的内容打印出来格式 窗体名 PrintForm功能 把窗体上的信息输出到打印机 1 框架的用途作为容器放置其他控件对象 将这些控件对象分成可标识的控件组 框架内的所有控件将随框架一起移动 显示和消失 2 常用属性Name属性和Caption属性3 事件可以响应Click和Dblclick事件 在应用程序中一般不需要编写有关框架的事件过程 10 2框架 Frame 例10 5控制文本的字体 字号及颜色 设计步骤如下 1 创建应用程序的用户界面和设置对象属性在窗体上设置3个框架Frame1 Frame2和Frame3 2 编写程序代码 功能要求 在三个框架中分别选择字体 字号和颜色 单击 确定 按钮后 文本框中的文本相应属性会发生变化PrivateSubForm Load Option1 Value TrueOption3 Value TrueOption5 Value TrueText1 FontName 宋体 Text1 FontSize 16Text1 ForeColor RGB 0 0 255 EndSub PrivateSubCommand1 Click IfOption1 ValueThenText1 FontName 宋体 ElseText1 FontName 幼圆 EndIfIfOption3 ValueThenText1 FontSize 16ElseText1 FontSize 20EndIfIfOption5 ValueThenText1 ForeColor RGB 0 0 255 ElseText1 ForeColor RGB 255 0 0 EndIfEndSub 10 3滚动条 1 滚动条的用途为不能自动支持滚动的应用程序和控件提供滚动功能 也可作为数据输入的工具 水平滚动条 HScrollBar 和垂直滚动条 VScrollBar 最小值 Min 最大值 Max 移动滚动块时 代表的值随之改变2 常用属性 1 Min Max属性 Min属性的默认值为0 Max属性的默认值为32767 2 Value属性 设置滚动块在滚动条中的位置值 3 SmallChange最小变动值属性 4 LargeChange最大变动值属性 3 事件滚动条控件可以识别10个事件 其中最常用的是Scroll和Change事件 1 Scroll事件 当用鼠标拖动滚动块时 即触发Scroll事件 2 Change事件 当改变Value属性值时 即触发Change事件当释放滚动块 单击滚动条内空白处或滚动箭头时 Change事件就会发生 例10 6设计一个调色板应用程序 建立三个水平滚动条作为红 绿 蓝三种基本颜色的输入工具 合成的颜色显示在右边的标签中 图10 17 用其背景颜色属性BackColor值的改变实现合成颜色的调色 说明 根据调色原理 基本颜色有红 绿 蓝三种 选择这三种颜色的不同比例 可以合成所需要的任意颜色 1 创建应用程序的用户界面和设置对象属性三个水平滚动条名称从上至下分别为HScroll1 HScroll2 HScroll3其Max属性均设置为255 Min属性均设置为0 SmallChange属性设置为1 LargeChange属性设置为10 Value设置为0 显示合成颜色的标签名为Label1 2 编写程序代码功能要求 通过操作 单击或拖动 滚动条 直接修改RGB设置 从而得到标签背景所需的颜色PrivateSubHScroll1 Change Label1 BackColor RGB HScroll1 Value HScroll2 Value HScroll3 Value EndSubPrivateSubHScroll2 Change Label1 BackColor RGB HScroll1 Value HScroll2 Value HScroll3 Value EndSubPrivateSubHScroll3 Change Label1 BackColor RGB HScroll1 Value HScroll2 Value HScroll3 Value EndSub 4种图形控件 PictureBox控件 Image控件 Shape控件和Line控件 图形方法10 4 1坐标系每个对象都定位于存放它的容器内每个容器都有一个坐标系 它包括坐标原点 x坐标轴和y坐标轴 默认的坐标原点 0 0 在容器对象的左上角默认单位为Twip 缇 还可以使用磅 像素 厘米等单位窗体的实际可用的高度和宽度由ScaleHeight和ScaleWidth属性确定CurrentX和CurrentY属性 10 4图形方法和图形控件 使用Pset 画点 Line 画线 Circle 画圆 等图形方法 可以方便地在窗体和图片框上绘制简单的图形1 Pset 画点 方法格式 对象名 Pset Step x y 颜色 功能 在对象的指定位置 x y 上按选定的颜色画点参数Step指定 x y 是相对于当前坐标点的坐标示例 下列语句能在坐标位置 500 900 处画一个红点 Pset 500 900 RGB 255 0 0 该语句等价于 CurrentX 100 CurrentY 100PsetStep 400 800 RGB 255 0 0 10 4 2图形方法 格式 对象名 Line x1 y1 x2 y2 颜色 功能 在两个坐标点之间画一条线段 例如 下列语句可在窗体上画一条斜线Line 600 600 2000 3000 2 Line 画线 方法 格式 对象名 Circle Step x y 半径 颜色 起点 终点 纵横比 功能 在对象上画圆 椭圆或圆弧说明 1 x y 是圆 椭圆或圆弧的中心坐标 半径 是圆 椭圆或圆弧的半径 2 起点 终点 以弧度为单位 指定弧或扇形的起点或终点位置 其范围从 2 到2 起点 和 终点 的默认值为0和2 正数画弧 负数画扇形 按逆时针方向画弧 3 纵横比为圆的纵轴和横轴的尺寸比 当纵横比大于1时 椭圆沿垂直方向拉长 当纵横比小于1时 椭圆沿水平方向拉长 纵横比的默认值为1 将产生一个标准圆 4 可以省略中间的某个参数 但不能省略分隔参数的逗号 3 Circle 画圆 方法 例10 7在窗体上画出一个扇形 圆 椭圆 PrivateSubForm Load ConstPI 3 14159ShowCircle 2500 1500 1200 vbBlue PI PI 2CircleStep 600 600 600CircleStep 0 0 600 5 25EndSub 1 用途图片框 PictureBox 和图像框 Image 都是用于显示图形 图片框可以作为其他控件的容器 还可以在图片框上面放置其他控件 这些控件随图片框的移动而移动2 常用属性Picture属性 用于设置在图片框中要显示的图像文件例如 Picture1 Picture LoadPicture 图形文件名 Picture1 Picture LoadPicture 清除图片Align属性 设置图片框在窗体中的显示方式AutoSize属性 确定图片框如何与图形相适应 10 4 3图片框 PictureBox 1 显示和消除图形 见Picture属性 2 用Print方法向图片框输出文本 3 用图形方法在图片框中画图形可以使用Circle 画圆 Line 画线 Pset 画点 等方法在图片框中画图形 3 图片框的使用 示例PrivateSubForm Load ShowPicture1 Print 在图片框内写字和画圆 Picture1 Circle 1200 1000 600 RGB 0 0 255 Picture1 PSet 1200 1000 RGB 255 0 0 EndSub 10 4 4图像框 Image 图像框 Image 控件的作用与图片框PictureBox控件相似 但它只能用于显示图形 不能作为其他控件的容器10 4 5Shape形状控件VB提供了画图形的基本工具 如Shape 形状控件 Line 线控件 Shape控件和Line控件只用于表面装饰 不支持任何事件 10 4 6Line直线控件Line直线控件可用来在窗体 框架和图片框中绘制简单的线段 10 5菜单设计 应用程序通过菜单为用户提供一组命令菜单一般分为两种 即下拉式菜单和弹出式菜单10 5 1下拉式菜单1 下拉式菜单的结构下拉式菜单基本结构包括 顶层菜单 菜单项和子菜单 10 5 2菜单编辑器 设计菜单的工具启动菜单编辑器的方法菜单编辑器分为上 下两部分 上半部分用来设置属性 下半部分是菜单显示区 用来显示用户输入的菜单内容 标题 Caption 输入框供输入标题 也会同时显示在菜单显示区 菜单项的访问键 用 字符 格式 名称 Name 输入框 索引 Index 输入框 快捷键 列表框 帮助上下文ID 输入框 协调位置 列表框 复选 框 有效 框 可见 框 显示窗口列表 框菜单显示区 内缩符号 4个点 编辑按钮共有7个按钮分隔线10 5 3菜单的Click事件除分隔线以外的所有菜单元素都能识别Click事件 例10 9编一程序 进行两个操作数的算术运算练习 设计步骤如下 1 创建应用程序的用户界面和设置对象属性菜单栏向用户提供功能选择 包括运算数的位数 运算符类型和退出程序菜单设计各个菜单项名称 2 编写程序代码功能要求OptionExplicit 显式声明变量Dimsel1AsInteger sel2AsStringDimr1AsLongPrivateSubForm Load sel1 0 位数标记sel2 运算标记RandomizeEndSubPrivateSubMnu11 Click sel1 1 设置位数标记EndSubPrivateSubMnu12 Click sel1 10EndSub PrivateSubMnu13 Click sel1 100EndSubPrivateSubMnu21 Click sel2 设置运算标记EndSubPrivateSubMnu22 Click sel2 EndSubPrivateSubMnu23 Click sel2 EndSub PrivateSubCommand1 Click 命题 按钮单击事件DimaAsLong bAsLongIfsel1 0Orsel2 ThenMsgBox 先选择运算数的位数和运算类型 ExitSubEndIfa sel1 Int 9 sel1 Rnd 随机生成指定位数的操作数b sel1 Int 9 sel1 Rnd Label1 Caption Str a sel2 Str b 组成算式SelectCasesel2 求运算结果r1Case r1 a bCase r1 a bCase r1 a bEndSelectText1 Text Text1 SetFocusEndSub PrivateSubCommand2 Click 答题 按钮单击事件Dimr2AsLongIfText1 Text ThenMsgBox 请输入答案 ExitSubEndIfr2 Val Text1 Text 读取用户的答案Ifr1 r2Then 判断答案Label3 Caption 正确 ElseLabel3 Caption 错误 EndIfEndSubPrivateSubMnu30 Click 退出 菜单命令EndEndSub 10 5 4运行时改变菜单属性 1 使菜单命令有效或无效所有的菜单项都具有Enabled属性 当该属性为True 默认值 时 有效 若为False时 菜单项会变暗 菜单命令无效 举例 Mnu30 Enabled False2 显示菜单项的复选标记使用菜单项的Checked属性 可以设置复选标记 举例 Mnu31 Checked True3 使菜单项不可见举例 Mnu30 Visible True 10 5 5弹出式菜单 弹出式菜单又称为快捷菜单 单击鼠标右键 可以根据右击鼠标时的位置弹出不同的菜单 使用VB提供的菜单编辑器 把某个菜单设置成隐藏 创建快捷菜单的步骤如下 1 使用菜单编辑器设计菜单 2 设置顶层菜单项为不可见 即不选中菜单编辑器里的 可见 选项或在属性窗口中设定Visible属性为False 3 编写与弹出式菜单相关联的MouseUp 释放鼠标 事件过程 格式为 对象 PopupMenu菜单名 位置常数 横坐标 纵坐标 例10 10在例10 9的基础上 把 位数 菜单改为快捷菜单 1 打开例10 9的应用程序 选定窗体 然后在菜单编辑器中将 位数 菜单标题的 可见 框中的 取消 即不选中 2 增加以下的MouseUp事件过程代码 PrivateSubForm MouseUp ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle IfButton 2Then 检查是否右击 击左键为1PopupMenumnu10EndIfEndSub程序运行时 右击窗体空白处 即会弹出快捷菜单 如图10 11所示 弹出式菜单 窗体和大多数控件都能响应键盘和鼠标事件10 7 1键盘事件有三种事件处理键盘操作 即KeyPress KeyDown和KeyUp事件1 KeyPress事件2 KeyDown事件 用户按下键盘上某个键时触发此事件PrivateSubForm KeyDown KeyCodeAsInteger ShiftAsInteger Print 按下键的代码是 KeyCodeEndSub参数KeyCode是一个按下键的代码 不区分大小写 10 7键盘与鼠标事件 3 KeyUp事件 用户按下键盘上某个键后释放时触发此事件 事件过程的语法格式类似于KeyDown事件KeyDown和KeyUp事件除了可以识别KeyPress事件能识别的键 还可识别键盘上的大多数键 如功能键 编辑键 定位键和数字小键盘上的键 包括 Click DblClick MouseMove MouseDown和MouseUp等事件1 鼠标事件过程格式后三种鼠标事件与Click DblClick事件不同的是可以区分鼠标的左 右 中键与Shift Ctrl Alt键 鼠标事件过程的语法格式为 PrivateSub对象名 鼠标事件 ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle 说明 1 Button参数表示哪个鼠标键被按下或释放 用0 1 2位分别表示鼠标的左 右 中键 用1或0表示被按下或释放 10 7 2鼠标事件 2 Shift参数表示当鼠标键被按下或释放时 Shift Ctrl Alt键的按下或释放状态 用0 1 2位表示Shift Ctrl Alt键 3 X Y表示鼠标指针的当前坐标位置2 鼠标事件 1 MouseDown和MouseUp事件当按下鼠标任意键时发生MouseDown事件 放开鼠标键时发生MouseUp事件PrivateSubForm MouseDown ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle Command1 MoveX YEndSub 2 MouseMove事件当移动鼠标时发生MouseMove事件 伴随鼠标指针在对象上移动 该事件会连续不断地产生 3 改变鼠标指针的形状通过MousePointer和MouseIcon属性来设置鼠标指针形状对象的MousePointer属性用于设置鼠标指针的形状示例 Text1 MousePointer 2 10 8对话框 对话框 DialogBox 是应用程序与用户进行交互的主要途径 三种对话框 1 预定义对话框使用函数InputBox和MsgBox来实现 2 通用对话框 3 用户自定义对话框 10 8 1通用对话框 通用对话框是一种ActiveX控件 利用它能够很容易地创建下列六种标准对话框 打开 Open 另存为 SaveAs 颜色 Color 字体 Font 打印机 Printer 和帮助 Help 对话框1 添加通用对话框控件在使用之前 应选择 工程 菜单中的 部件 命令 其位于Microsoftcommondialogcontrol6 0部件中 先将其添加到工具箱中当程序运行时 通用对话框是不可见的通用对话框不仅本身具有一组属性 而且由它产生的各种标准对话框也拥有许多特定属性 属性设置可以在属性窗口或程序代码中进行 也可以通过 属性页 对话框来设置2 属性页 3 通用对话框的基本属性和方法 1 Name属性 2 Action属性 该属性直接决定打开哪种对话框对话框类型Action属性值方法无对话框0打开 对话框1ShowOpen 另存为 对话框2ShowSave 颜色 对话框3ShowColor 字体 对话框4ShowFont 打印 对话框5ShowPrinter 帮助 对话框6ShowHelp例如 利用通用对话框CommonDialog1产生一个 打开 对话框 可以执行下列语句 CommonDialog1 Action 1或CommonDialog1 ShowOpen 3 DialogTitle属性 该属性用于设置对话框的标题 4 ConcelError属性 该属性表示用户在使用对话框进行对话时 单击 取消 按钮是否产生错误信息 5 通用对话框的方法4 打开 对话框在程序中将通用对话框的Action属性设置为1 或用ShowOpen方法打开 则弹出 打开文件 对话框 打开 对话框的属性 FileName FileTitle Filter FilterIndex IniDir 例10 16建立一个 打开文件 的对话框 在窗体上添加一个通用对话框和一个 打开 命令按钮 当单击 打开 按钮时 就会弹出一个 打开文件 的对话框 1 把CommonDialog控件添加到工具箱中 然后在窗体上添加CommonDialog控件 其默认名称为CommonDialog1 2 在窗体上添加一个命令按钮Command1 其Caption属性为 打开 3 打开 命令按钮Command1的Click事件过程代码 PrivateSubCommand1 Click CommonDialog1 DialogTitle 打开文件 设置文件过滤器CommonDialog1 Filter 全部文件 文本文件 txt CommonDialog1 InitDir C mydocuments 设置默认文件夹CommonDialog1 ShowOpen 显示 打开 对话框EndSub其中 设置文件过滤器 Filter 属性的参数格式如下 描述符1 过滤符1 描述符2 过滤符2程序运行后 单击 打开 按钮即弹出如图所示的对话框从控件的FileName属性中获取选定的路径及文件名 5 另存为 对话框6 颜色 对话框7 字体 对话框例10 17 字体 对话框应用示例在文本框中输入一段文字 单击命令按钮后 通过 字体 对话框来设置文本框中显示的字体 大小 字形 样式等 1 建立用户界面及设置对象属性 2 编写程序代码 设置字体 命令按钮的单击事件过程代码如下 PrivateSubCommand1 Click CommonDialog1 Flags CdlCFScreenFontsCommonDialog1 ShowFont 打开 字体 对话框Text1 FontName CommonDialog1 FontName 设置字体名称Text1 FontSize CommonDialog1 FontSize 设置字体大小Text1 FontBold CommonDialog1 FontBold 粗体Text1 FontItalic CommonDialog1 FontItalic 斜体EndSub8 打印 对话框9 帮助 对话框