vb_06控件.ppt

VB程序设计教程 主讲老师 韩维良 2005 3 第六章 常用标准控件 第一节文本控件一 标签 Label 用于显示一段文本信息 一般用于标识没有Caption属性的控件 给它们加上一个标题 或显示一段正文 如安装信息 或其它一些不想让用户修改的信息 它的长度最长可设为1024字节 在工具箱中的标签控件是按钮 1 主要属性 名称属性 Name 前缀Lbl 标题属性 Caption 设置显示在标签上的文本 对齐属性 Alignment 用来设置标签上文本的对齐方式 有左对齐 右对齐和中对齐三种 系统默认使用左对齐方式 0 代表左对齐1 代表右对齐2 代表中对齐 自动缩放属性 Autosize 用于设置标签的大小是否随显示文本的多少自动进行调整 如果被设置为True 则自动进行调整 系统默认设置为False 边框属性 BorderStyle 设置标签的边框类型 0代表标签无边框 1代表有一条线的边框 配合Appearance 外观属性 平面 立体 的设置可以具有三维效果 如同一个文本框 文本卷绕属性 WordWrap 自动换行属性 用来决定AutoSize属性为True的Label控件超过宽度的文本的扩展方式 True 垂直扩展False 水平扩展设置此属性的语句是 LblText WordWrap True或False 2 常用的事件一般情况下 从标签扮演的角色来谈 不需要通过某种操作产生什么事件 不写事件代码 当然严格地讲 也可以有它的事件 鼠标单击事件 Click 鼠标双击 DblClick 鼠标移动事件 MouseMove 二 文本框用于显示和输入文本 1 常用属性 名称属性 Name 名称前缀为TXT 文本属性 Text 是显示在文本框中的文本内容 长度限制属性 MaxLength 用来设置用户在文本框中输入的字符串的最大长度 系统默认此设置为0 表示文本输入的最大长度在文本框所能容纳的字符数之内没有限制 在数据库程序中一般应设置为一个具体设置 如用户登陆输入框中的用户名总不能无限长 文本框所能容纳的字符数是32K 多行属性 MultiLine 用来设置文本框是否能显示或输入多行文本 密码字符属性 PassWordChar 用指定的字符代替输入到文本框中的文本 起到屏蔽输入回显的功能 一般用户输入的密码是不能显示的 滚动条属性 ScrollBar MultiLine为True的前提下 用来设置是否需要附带滚动条 0 不添加滚动条 默认 1 添加水平滚动条2 添加垂直滚动条3 同时添加水平和垂直滚动条当MultiLine设为True时 才能设置滚动条属性 当MultiLine设为False时 不论ScrollBar为何值 都不会出现滚动条 选择属性 SelText 用于返回或设置包含当前所选中文本的字符串 选中的目的 使用剪贴板的SetText方法将文本框中选中的文本复制到剪贴板 Clipboard SetTextText1 SelText通过重新设置文本框的SelText属性实现粘贴操作 Text1 SelText Clipboard GetText SelStart 返回被选文本第一个字符的位置 也可用于设置欲选文本第一个字符的位置 SelStart属性是一个数字 指示文本串内的插入点 其中0表示最左边的位置 往后依次为1 2 3 如为0 则从第一个字符开始被选中 SelLength 用于设置从SelStart开始的欲选文本的长度 或者返回被选文本的长度 只读属性 Locked 用于阻止用户改变文本框的内容 用户只可以看文本而不能改变它 为True 则不能修改 默认为False 2 主要事件支持鼠标单击 双击 按下 弹起等事件 除此以外 还有下列常用事件 文本改变事件 Change 是默认事件 当文本框中的文本被改变时 就会产生这个事件 获得焦点事件 GetFocus 当用户用Tab健或鼠标单击文本框使其获得焦点后 将会发生这个事件 失去焦点事件 LostFocus 当用户用Tab健或鼠标单击选择了其它的控件后 文本框将会失去焦点 发生这个事件 键盘事件主要有 keydown 按下事件 keyup 弹起事件和kepress 按键事件 事件过程的形式为 PrivateSubForm KeyDown KeyCodeAsInteger ShiftAsInteger EndSub 例如 如果希望将文本框中的所有字符都强制转换为大写字符 则可在输入时使用此事件转换大小写 PrivateSubText1 KeyPress KeyAsciiAsInteger KeyAscii Asc Ucase Chr KeyAscii EndSub 设置焦点的方法 setfocus格式 对象 setfocus功能 使指定对象获得焦点 对于文本框 使插入点出现在文本框中 让用户输入内容 如在用户登录框中 初始时刻 可让插入点出现在用户框中 例 用户登录框中 用户名要求是大写字母 口令要求是0 9的数字字符 PrivateSubTxtusername KeyPress KeyAsciiAsInteger KeyAscii Asc UCase Chr KeyAscii EndSubPrivateSubTxtpassword KeyPress KeyAsciiAsInteger IfKeyAsciiAsc 9 ThenKeyAscii 0BeepEndIfEndSub 课后作业 实现文本复制和粘贴的功能 第二节图形控件Windows应用程序中经常使用的几种图象文件格式 BMP ICO WMF JPEG GIF 一 图像框图象控件在工具箱是一个图片 1 主要属性 Name属性 名称 前缀为 IMG Picture属性 指定要显示的图片 三种方法可将图片加载到图像控件中 从属性窗口中选择Picture属性 在程序代码中使用LoadPicture语句 具体如下 Image1 Picture LoadPicture c windows clouds bmp 用剪贴板加载 将要加载的图象复制到剪贴板上 把焦点移到图象控件上 然后执行粘贴命令 Stretch属性 用于决定是否自动地放大或缩小图象 以适应图象框的大小 当Stretch True时 自动缩放图片以适应图片框的大小 当Stretch False时 自动缩放图片框以适应图片的大小 与PictureBox控件的AUTOSIZE为TRUE功能相同 BorderStyle属性 设置边框类型 0 无边框 1 有边框 让它的边框发生变化 具有命令按钮所具有的 按下 和 弹回 功能 又如 做出WORD格式工具栏上 B 或 U 按钮的弹起与按下的效果 2 常用事件单击 Click 事件 Image控件可以识别Click事件 因此可在需要用按钮的地方使用该控件 二 图片框控件 PictureBox 用来显示图形 作为其它控件的容器和显示Print方法输出的文本 它在工具箱中是一个图片 1 主要属性 Name属性 名称 前缀为 PIC 图片属性 Picture 指定要显示的图片 对齐属性 Align 确定图片框在窗体上的显示位置 0 图片框显示的位置由Height Width Left Right这四个属性决定 1 图片框与窗体一样宽 同时对齐窗体的上端 2 图片框与窗体一样宽 同时对齐窗体的下端 3 图片框与窗体一样高 同时对齐窗体的左端 4 图片框与窗体一样高 同时对齐窗体的右端 使用Align属性可以在窗体的顶部或底部创建工具栏或状态栏 自动放缩属性 AutoSize 决定图片框是否自动改变大小以显示其全部的图形内容 可以设置为True和False两个数值 当AutoSize False时 缺省值 保持图片和图片框的大小不变 当AutoSize True时 自动改变图片框的大小以显示图形的全部内容 2 主要事件单击 Click 事件 也可用MouseDown和MouseUp实现弹起与按下的功能 PictureBox可作为其它控件的容器 这些控件随PictureBox移动而移动 其Top和Left属性是相对PictureBox而言 而与窗体无关 PictureBox容器的一种普通用法是ToolBar或StatusBar 三 直线使用线段控件可以在窗体 框架和图片框上画直线 可以增加程序界面的可视性 它在工具箱中用一条线段表示 Name属性 名称 前缀为 LIN X1 Y1 X2 Y2 位置坐标 BorderStyle属性 设置线段的样式 共有七种样式可供选择 透明0实线1虚线2点线3点划线4双点划线5内实线6 BorderColor属性 用来设置线段的颜色 可以在属性窗口通过调色板来设置或者在运行时通过使用QBColor函数或R G B来设置 BorderWidth属性 用来设置线段的宽度 可设置值为1到1892之间的任一整数值 缺省值为1 2 主要事件不支持任何事件 四 形状控件 Shape 形状控件和线段控件一样都可以用来增强界面的可视性 它可以在窗体 框架或图片框中画矩形 正方形 椭圆形 圆形 圆角矩形 圆角正方形 它在工具箱用表示 1 主要属性 Name属性 名称 名称前缀为 SHP Shape属性 图形样式 形状控件可以画出六种二维图形 0矩形1正方形2椭圆形3圆形4圆角矩形5圆角正方形 Left Top Height Width和线段控件不同 形状控件使用Left Top Height Width这四个属性来设置图形相对窗体或其他容器控件的位置 BorderStyle和BorderWidth与直线控件相同 FillStyle和FillColor属性用FillStyle属性设置填充图形时的方式 有 种方式可供选择 如下表所示 实线 透明 缺省值 水平直线 垂直直线 上斜对角线 下斜对角线 十字线 交叉对角线 使用FillColor属性来设置填充闭合图形时使用的颜色 2 主要事件不支持任何事件 第三节按钮控件在VisualBasic中使用最多的一个控件是命令按钮 CommandButton 用鼠标单击它产生Click事件 进而发出一组指令用来启动 中断或者结束一个进程 它在工具箱中是一个矩形的按钮 一 常用属性 Caption 设置显示在按钮上面的文本 Caption属性还可以赋予按钮一个访问键 访问键的字符前加一个 符号如 确定 O 访问键 在caption属性中以 引导的字符就作为访问键字符 在程序运行时该字符就带有一个下划线 同时按下ALT键和带下划线的字符就相当于单击此按钮 确定 O Name 名称 CMD前缀 Default 默认属性 当一个按钮的Default属性被设置为True 则这个按钮称为确定按钮 按下Enter键与单击该按钮的作用相同 一个窗体中只有一个按钮的Default属性可以被设置为True 表现形式 内侧有一个虚线圈 Cancel 取消属性 当一个按钮的Cancel属性被设置为True 则这个按钮称为取消按钮 按下ESC键与单击该按钮的作用相同 窗体中只能有一个按钮的Cancel属性可以被设置为True 另外一个按钮的Default 默认属性 和Cancel 取消属性 这两个属性并不矛盾 对同一个按钮而言 这两个属性可以都为True Enable 禁用属性 用来确定按钮是否能够对用户产生的事件作出反应 如果被设置为False则在程序运行时按钮呈灰色显示 不能进行任何操作 Enable属性可以在创建界面时设置 也可以在程序代码中进行设置 动态改变的 反映程序执行过程中的因果关系 Visble 用来设置按钮是否可见 当Visble属性设置为True时按钮可见 如果设置为False即不可见 Visble属性也可以在程序运行时进行设置 Style 设置按钮的显示类型 有标准 Standard 和图形 Graphical 两种类型 Picture 当按钮的显示类型是图形类型时 用于设置显示在按钮表面上的图形 在属性窗口单击此属性将弹出一个文件选择对话框选择所需的图形文件 在程序代码中使用语句 Cmdopen Picture Loadpicture 图形文件的路径和文件名 进行设置 Tooltiptext属性显示当鼠标移动到按钮上暂停时 说明提示文本 当用按钮制做工具栏上的按钮时 这个提示非常有用 另外 Top Left属性 Height Width属性决定坐标及大小 二 常用事件按钮有许多事件 经常使用的有鼠标单击 Click 默认事件 鼠标移动 MouseMove 鼠标按下 MouseDown 和鼠标弹起 MouseUp 第四节选择控件 复选框和单选按钮一 单选按钮在程序中常常使用单选按钮 OptionButton 让用户对一组选项做出唯一的选择 它在工具箱中是一个中央为黑点的圆 1 主要属性 Name 名称 属性 前缀为OPT Caption属性 单选框右侧的标题说明文字 Style属性 单选按钮的类型 为0 默认型 则显示成圆中加点状 为1 则显示成命令按钮状 Enabled属性 设置单选按钮是否允许用户选择 如果为True则可以选择 如果为False则按钮暗淡 禁止用户选择 Value属性 表明了选项是否被选中 如果被选中则Value值为True 2 主要事件Click事件 选定单选按钮时将触发其Click事件 Click 事件意味着某一选项被用户选中 编程时要注意的问题 1 必须在程序初始化阶段 一般放在form load 事件中 指定每组选项的一个默认值 只要把其中一个选项的value属性设置成 True 即可 2 判断选项的value值来判断对应选项是否被中 代码形如 ifoption1 value Truethenmsgbox 该项选中 elsemsgbox 没选中 endif 二 复选框 CheckBox 复选框是一些开关选项 用于决定程序某个功能的有效与否 它在工具箱中是一个画有对号的矩形框 1 主要属性 Name属性 名称 前缀为 CHK Caption属性 显示在选项右侧的标题说明文字 Value属性 用Value属性获取复选框的状态 它有三个设置值 0 1 2 0 未被选中 vbUnchecked 1 被选中 vbChecked 2 不能被选择 vbGrayed 复选框变灰 选项不可用 禁止用户选择 Enabled属性 设置该选项能否被用户选择 如果为True则可以选择 为False则按钮暗淡 禁止用户选择 Visiable属性 设置是否显示该控件 True 显示对应的控件False 隐藏对应的控件2 主要事件复选框控件主要的事件是鼠标单击 Click 如同开关 每按一次 就变换一种状态 创建一个窗体 并在其上绘制一个文本框 二个框架 三个单选按钮和三个复选框 颜色代码 BBGGRR 对应六位十六进制数PrivateSubOption1 Click TextBox ForeColor HFF 十六进制常量 Hxx EndSubPrivateSubOption2 Click TextBox ForeColor HFF00 EndSubPrivateSubOption3 Click TextBox ForeColor HFF0000EndSub PrivateSubCheck1 Click IfCheck1 Value vbCheckedThenTextBox FontBold TrueElseTextBox FontBold FalseEndIfEndSub PrivateSubCheck2 Click IfCheck2 Value vbCheckedThenTextBox FontItalic TrueElseTextBox FontItalic FalseEndIfEndSub PrivateSubcmdQuit Click UnloadMeEndSub 第五节选择控件 列表框和组合框VisualBasic为用户提供了列表框控件 ListBox 和组合框控件 ComboBox 都用来向用户提供一个可供选择的列表 以便在程序窗口中实现从多个项目选择的功能 如果列表框中的项目总数超过了可显示的项目数 系统就自动在列表框控件上添加滚动条 列表框在工具箱中用表示 组合框在工具箱中用表示 一 常用属性 Name属性 名称 前缀分别为 LST COB 列属性 Columns 列表样式 决定列表框控件是水平还是垂直滚动 以及如何显示列中的项目 此属性取值如下 0垂直滚动的单列列表框1水平滚动的单列列表框 1水平滚动的多列列表框 列表属性 List 选项数组 用于设置或者引用列表选项 列表框和组合框中的所有项目被保存在一个Lsit 列表数组中 列表数组是一个字符串数组 数组的每一项都是一列表项目 A 列表框名称 List 下标 可以改变指定项目的值 格式为 列表框名称 List 下标 字符串 属性窗口中设置时 按下Ctrl Enter输入下一项 可以静态设置 也可以动态赋值 还可以用AddItem方法设置 数组元素List 0 保存列表框中的第一个项目 List ListCount 1 保存列表框中的最后一个项目 ListCount属性是用来返回列表框中的列表部分项目的个数 索引属性 ListIndex 用来返回或设置列表框中被选或欲选项目的索引号 第一个项目的索引号是0 第二项是1 依次类推 ListCount始终比最大的ListIndex 从0开始 值大1 返回选中的字符串则用 List 控件名 ListIndex TEXT属性 用于返回用户选定的选项内容 对组合框还可用于设置文本框中显示的内容 多重选择属性 Multiselect 设置是否能够在列表框控件中进行多重选择以及如何进行多重选择 只用于列表框 0 不允许同时选择多个列表项 一次只能选一项 系统默认值1 允许同时选择多个列表项 单击或按空格键选取或取消某项2 允许同时选择多个列表项 单击第一项 按Shift后单击最后一项 连续选择多个选项 或按Ctrl逐一单击 不连续选 被选中选项数属性 SelCount 返回在列表框控件中被选中项目的个数 如果没有项目被选中 那么SelCount属性将返回0值 选择属性 Selected 选择属性数组 用来返回或设置在列表框控件中的一个项目的选择状态 TRUE FALSE 只用于列表框 列表框名称 Selected 索引号 True或False 排列属性 Sorted 用来指定列表框的项目是否自动按字母表顺序排序 True 表示列表框中的项目按字母顺序排序 False 缺省值 表示列表框中的项目不按字母表顺序排序 样式属性 Style 用来指定控件的显示类型和行为 列表框的样式属性可以设置为两个数值 0 符号常量 vbListBoxStandard 缺省值 标准的 显示为文本项的列表 1 vbListBoxCheckbox 复选框形式 在ListBox控件中 每一个文本项的边上都有一个复选框 在ListBox中可以选择多项 组合框有三种样式 由其Style属性决定 下拉式组合框 缺省值 简单组合框 列表已显示 不可下拉 下拉式列表框 文本框中不允许输入 二 常用方法 AddItem方法 用于将项目添加到列表框或组合框控件中 控件名称 AddItem选项名 序号 RemoveItem方法 从指定的列表框或组合框中删除一个项目 控件名称 RemoveItem序号序号是必须的 它表示要删除的项目在对象中的位置 Clear方法 删除列表框或组合框中的所有项目 三 常用的事件列表框最经常使用的是 Click 鼠标单击 事件和DbClick 鼠标双击 事件 单击表示当前选中的项目 双击事件发生就可以读取列表框的Text属性了 例 组合框与MSGBOX的联合练习 PrivateSubForm Load Combo1 AddItem 确定 Combo1 AddItem 确定 取消 Combo1 AddItem 终止 重试e Combo1 AddItem 是 否 取消 Combo1 AddItem 是 否 Combo1 AddItem 重试 取消 Combo1 ListIndex 0 Combo2 AddItem 危险 Combo2 AddItem 询问 Combo2 AddItem 警告 Combo2 AddItem 信息 Combo2 ListIndex 0EndSubListIndex属性用来把第一个元素放在选择位置 PrivateSubCommand1 Click message MsgBox 显示 Combo1 List Combo1 ListIndex 和 Combo2 List Combo2 ListIndex Combo1 ListIndex Combo2 ListIndex 1 16 消息演示 SelectCasemessageCase1MsgBox 你按下了确定按钮 Case2MsgBox 你按下了取消按钮 Case3MsgBox 你按下了终止按钮 Case4MsgBox 你按下了重试按钮 Case5MsgBox 你按下了忽略按钮 Case6MsgBox 你按下了是按钮 Case7MsgBox 你按下了否按钮 EndSelectEndSub 第六节滚动条滚动条用于表示连续变化的数量 音量 速度 时间 进度等信息 滚动条有一个最大值和最小值 用户移动滑块可以在最大值和最小值之间指定一个数值 VisualBasic为用户提供了水平滚动条控件 HScrollBar 和垂直滚动条控件 VScrollBar 一 常用属性 Name属性 名称 水平滚动条控件的名称前缀Hsb 垂直滚动条控件前缀Vsb 上界属性 Max 和下界属性 Min Max属性用于返回或设置当滚动框处于底部或最右位置时 一个滚动条的最大设置值 Min属性用来返回或设置当滚动框处于顶部或最左位置时 一个滚动条的最小设置值 数值属性 Value Value属性用来返回或设置滚动块当前位置的数值 大改变属性 LargeChange 和小改变属性 SmallChange LargeChange属性用来设置用户单击滚动块和滚动箭头之间的区域时 滚动条控件的Value属性值的改变量 SmallChange属性用来设置用户单击滚动箭头时 滚动条控件的Value属性值的改变量 二 常用事件 Change事件在使用鼠标单击滚动条两头的滚动箭头时或拖动滑块后松开鼠标时发生的 还可以在程序中通过代码改变Value属性的设置时激活此事件 Scroll事件当滚动条控件上的滑块被鼠标拖动时发生Scroll事件 而在松开鼠标时激活Change事件 例 用滚动条改变颜色属性值 程序的运行时 移动红色 绿色 蓝色水平滚动条可以改变窗口上部图片框的颜色 所有的颜色都是由三种基本颜色 三原色 红色 绿色和蓝色按一定的比例合成的 WINDOWS中生成就利用这个特点生成各种颜色的 共有三种方法 语法 QBColor color QBColor函数返回一个Long 用来表示所对应颜色值的RGB颜色码 color参数是一个界于0到15的整型 color参数有以下对应关系 0黑色8灰色1兰色9亮兰色2绿色10亮绿色3青色11亮青色4红色12亮红色5洋红色13亮洋红色6黄色14亮黄色7白色15亮白色如 text1 forecolor QBCOLOR 4 常量法 符号常量法 颜色符号常量数值黑色VBBlack0或H0红色VBRed255或HFF绿色VBGreen65280或HFF00黄色VBYellow65535蓝色VBBlue16711680或HFF0000洋红VBMagenta16711935青色VBCyan16776960白色VBWhite16777215如 text1 forecolor VBred RGB合成法RGB合成法可以合成各种各种的颜色 使用语法 RGB red green blue red green和blue参数的数值范围是从0到255 各自表示颜色中的红色成份 绿色成分和蓝色成分 按要求绘出一个图片框 三个表示颜色的水平滚动条和一个表示图片大小的垂直滚动条 三个用于显示相应滚动条的数值的标签 它们的名称分别是 Lblred Lblgreen Lblblue PrivateSubForm Load lblred Caption Hsbred Valuelblgreen Caption Hsbgreen Valuelblblue Caption Hsbblue ValueEndSub PrivateSubHsbred change Picture1 BackColor RGB Hsbred Value Hsbgreen Value Hsbblue Value Lblred Caption Hsbred ValueEndSubPrivateSubHsbgreen change Picture1 BackColor RGB Hsbred Value Hsbgreen Value Hsbblue Value lblgreen Caption Hsbgreen ValueEndSub PrivateSubHsbblue change Picture1 BackColor RGB Hsbred Value Hsbgreen Value Hsbblue Value Lblblue Caption Hsbblue ValueEndSub 第七节计时器计时器控件是能有规律地以一定的时间间隔触发计时器事件而执行相应事件代码的控件 一 主要属性 Name 名称 属性 前缀TMR 激活属性 Enable 用于决定是否打开计时器控件 Enable可以设置为True和False 设置为True时相当于计时器控件打开 并时刻进行倒计时操作 设置为False时计时器控件关闭 间隔属性 Interval 用于返回或设置对计时器控件的倒计时的毫秒数 即 定时器触发的周期 或者步长 间隙 使用语法是 Timer Interval milliseconds将它设置为0 缺省值 则Timer控件无效 二 主要事件 Timer 事件当一个计时器控件经过预定的时间间隔