vb中窗体和常用内部控件介绍PPT课件.ppt

1 第6章窗体和常用内部控件 6 1窗体6 2标准控件 通用属性 方法和事件 6 3标准控件的使用命令按钮 显示和输入文本的控件 提供选择的控件 图像框和图片框控件6 4其他控件计时和OLE控件 2 窗体 Form 是设计VB应用程序的基本平台窗体本身是一个对象 又是其他对象的载体或容器多数应用程序是从窗体开始执行的 一个程序可以有多个窗体窗体分为单文档窗体 SDI 和多文档窗体 MDI 6 1 1窗体的结构6 1 2添加和移出窗体 6 1窗体 3 6 1 3窗体的基本属性设置窗体的属性 可在程序设计时在属性窗口中手工设置 也可以在程序运行时由代码实现一些常用的窗体属性 Name属性 用于设置窗体的名称 通过该名称引用窗体对象及其属性 事件和方法 Caption属性 用于设置窗体标题栏上的标题内容 Appearance属性 用于设置窗体的外观是平面还是三维的BackColor和ForeColor属性 设置窗体的背景色和前景色BorderStyle属性 返回或设置对象的边框样式 4 ControlBox Maxbutton Minbutton属性 用于控制是否有控制菜单 最大化 最小化按钮 Enabled属性 用于确定窗体是否能够对用户产生的事件做出反应 Height和Width属性 确定窗体的初始高度和宽度 单位是缇 Left和Top属性 确定窗体的左上角在屏幕上的横 纵坐标 单位是缇 Picture属性 用于在窗体上设置要显示的图形 对象 Picture LoadPicture 文件名 Visible 可见性 设置对象的可见性 默认值为TrueWindowState属性 用于返回或设置窗体运行时的状态 5 6 1 4窗体的事件与窗体有关的常用事件有以下几种 1 鼠标事件 1 Click 单击 事件 包含3个事件 2 DblClick 双击 事件 包含6个事件 3 MouseMove 鼠标移动 事件 4 MouseDown 鼠标按下 事件 5 MouseUp 鼠标释放 事件 6 例6 2 编写程序在窗口标题栏中显示当前的坐标位置 PrivateSubForm MouseMove ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle Form1 Caption 鼠标事件演示水平坐标 X 垂直坐标 YEndSub 7 2 键盘事件 1 KeyDown 键按下 事件 2 KeyUp 键弹起 事件 3 KeyPress 按键 事件 当按下键盘上的某个健时 将触发KeyPress事件 其事件过程的格式为 PrivateSub对象 KeyPress KeyAsciiAsInteger EndSub参数KeyAscii返回所按键的ASCII码 8 例6 3 编写程序利用键盘 和 实现窗口的变小和变大 PrivateSubForm KeyPress KeyAsciiAsInteger SelectCaseKeyAsciiCaseAsc Me Width Me Width 0 9Me Height Me Height 0 9CaseAsc Me Width Me Width 1 1Me Height Me Height 1 1EndSelectEndSub 9 3 其他事件 1 Load 装载 事件 例6 4 设计程序 使窗体一打开就在屏幕的右上角PrivateSubForm Load Form1 Top 0Form1 Left Screen Width Form1 WidthEndSub 2 Unload 卸载 事件 3 Activate 活动 Deactivate 非活动 事件 4 Paint事件当移动窗体 改变窗体大小 最大化 最小化 窗体被其他窗体遮住后再次显示 等等时都会发生 10 1 Show方法 用于快速显示一个窗体 使该窗体变成活动窗体 2 Hide方法 用于隐藏form对象 将其Visible属性设置为False 3 Print方法 用于在窗体上输出表达式的值 4 Cls方法 用于清除运行时在窗体中显示的文本或图形 Picture属性和控件不受影响 激活前把AutoDraw属性设置为true 5 Move 移动 方法 用于移动并改变窗体或控件的位置和大小Form1 move top width height Form1 MoveForm1 Left 500 Form1 Top 500 Form1 Width 2 6 1 5窗体的方法 11 6 2标准控件 12 ActiveX控件 一般以很多 ocx文件独立存在 是对标准控件的扩充 不会自动显示在工具箱中 需用利用菜单对应的文件加载到工程中 工程 部件 13 6 2 1控件的通用属性 1 Name属性 1 运行时是只读的 2 缺省名称 3 以字母开始 最长40个字符 可包括字母 数字和下划线 不能包括标点符号或空格 允许汉字 4 所有控件都有此属性2 Caption属性 1 标题文本属性 2 Label控件标题大小没有限制 其他有标题的控件 标题大小限制为255个字符 3 注意与Name属性 Text属性的区别 14 3 Height Width Left Top属性用于设置对象的高度 宽度和控件距离容器的左边距和顶边距 4 BackColor ForeColor属性设置控件的背景色和前景色如设置窗体form1的背景色为红色 1 form1 backcolor vbred 2 form1 backcolor RGB 255 0 0 3 form1 backcolor HFF 15 5 Font属性格式 Font Name Size Bold Italic Underline Strikethrough例 Form1 Font Size 14Command1 FontItalic True6 Enabled属性决定控件是否能够对用户产生的事件作出响应7 Visible属性注意 如果在属性窗口中将控件的Visible属性设置为False 则控件在设计窗体上仍是可见的 仅在运行时才不可见 16 6 2 2控件的通用事件 1 Click事件和DblClick事件2 Change事件3 GotFocus和LostFocus事件 例6 9 焦点事件实例 当文本获得焦点时 文本背景为白色 处于激活状态 当失去焦点时 背景为浅灰色 PrivateSubText1 GotFocus Text1 BackColor HFFFFFFEndSubPrivateSubText1 LostFocus Text1 BackColor HC0C0C0EndSub 17 4 KeyPress事件5 KeyDown和KeyUp事件6 MouseMove事件7 MouseDown事件和MouseUp事件 18 6 2 3控件的通用方法 1 Move方法功能 用于移动控件 或改变控件大小语法 MoveLeft top Width Height 例6 10 当按钮Cmd1获得焦点时 按键盘上任意字符键后使文本框保持原位置不变且扩大1 5倍 PrivateSubcmd1 KeyPress KeyAsciiAsInteger Text1 Move4440 720 Text1 Width 1 5 Text1 Height 1 5EndSub 19 2 Refresh方法用于窗体和控件的刷新下列情况使用Refresh方法 1 在另一个窗体被加载时显示一个窗体的全部 2 更新诸如FilelistBox控件之类的文件列表框的内容 3 更新Data控件的数据结构 3 Setfocus方法 20 6 3标准控件的使用 6 3 1命令按钮控件属性 Default 属性为true时 则该按钮为默认按钮 回车相当于单击该按钮 在一个窗体中 只允许一个命令按钮的Default属性设置为true Cancel 属性为true时 则该按钮为默认的取消按钮 按ESC相当于单击该按钮 在一个窗体中 只允许一个命令按钮的Cancel属性设置为true 21 Style 用来设置命令按钮的显示类型 Standard GraphicalPicture 设置命令按钮中要显示的图形 但只有在Style属性设置为 时图形才能显示 DownPicture 返回 设置按钮按下时显示的图形 通过文件加载此图形 22 例6 12 两个命令按钮 按钮一初始状态为可用 按钮二初始状态为不可用 点击按钮一 按钮二变为可用 按钮一变为不可用 点击按钮二 按钮一变为可用 按钮二变为不可用 PrivateSubCommand1 Click Command1 Enabled FalseCommand2 Enabled TrueEndSubPrivateSubCommand2 Click Command2 Enabled FalseCommand1 Enabled TrueEndSub 23 例6 13 在窗体上添加一个按钮 通过点击按钮实现窗口的最大化和还原 PrivateSubCommand1 Click IfCommand1 Caption 最大化 L ThenMe WindowState 2Command1 Caption 还原 B ElseMe WindowState 0Command1 Caption 最大化 L EndIfEndSub 24 6 3 2显示和输入文本的控件 Label和TextBox 1 标签的属性 1 Caption 标签的标题 2 Alignment 确定标签标题的对齐方式 3 AutoSize 确定标签是否随标题自动调整大小 4 BorderStyle 确定标签的边框 0 无边框 1 有边框 5 BackStyle 指定背景是透明或不透明 1 不透明 0 透明 6 WordWrap 指示是否随标题沿垂直方向自动扩展 True 标签将随标题在垂直方向变化 此时AutoSize属性值应设置为True False 标签不能在垂直方向上扩展 25 例3 测试标签的边框样式和透明样式 在窗体上放置一标签 显示 VisualBasic程序设计教程 放置四个命令按钮 Command1放在Command2上 Command3放在Command4上 运行时 单击相应按钮 界面发生相应变化 26 PrivateSubCommand2 Click Label1 BorderStyle 0Command1 Visible TrueCommand2 Visible FalseEndSub PrivateSubCommand1 Click Label1 BorderStyle 1Command1 Visible FalseCommand2 Visible TrueEndSub 27 PrivateSubCommand3 Click Label1 BackStyle 1Command3 Visible FalseCommand4 Visible TrueEndSub PrivateSubCommand4 Click Label1 BackStyle 0Command3 Visible TrueCommand4 Visible FalseEndSub 28 2 文本框的属性 1 Text 返回或设置文本框显示的内容 例 Text1 Text 欢迎使用VisualBasic 2 MultiLine 决定是否可以显示多行文本 3 PasswordChar 常用于输入口令 在文本框中键入字符显示为该指定的字符 此时MultiLine属性值应为False 4 ScrollBars 用于确定文本框是否带滚动条以及滚动条的方向 仅当MultiLine属性值为True时才可以带滚动条 29 5 SelLength 在运行期返回或设置选择的字符数 例 Text1 SelLength Len Text1 Text 表示选中文本框Text1中所有字符 6 SelStart 在运行期返回或设置当前选择文本的起始位置 例 Text1 SelStart 0表示选择文本的起始位置从第一个字符开始 7 Locked 指定运行时文本框内容是否可以编辑 False 可以编辑True 不可编辑 只读 2 文本框的事件和方法事件 Change Click DblClick GotFocus LostFocus KeyPress等方法 SetFocus 30 例6 14 模拟会员信息登记 在窗口FormTxtBox中输入相关信息 并做简单的输入信息合法检查 在窗口FormBack中输出合法信息 31 32 PrivateSubCmdClear Click TextID Text TextPassWord Text TextName Text TextMail Text TextResume Text EndSub 33 PrivateSubCmdOK Click DimTextPassWordLengthAsIntegerDimflagAsIntegerTextPassWordLength Len TextPassWord Text If TextID Text OrTextPassWord Text OrTextName Text OrTextMail Text OrTextResume Text ThenMsgBox 信息输入不完整 TextID SetFocusflag 0Else 34 If TextPassWordLength 5Or TextPassWordLength 5 ThenMsgBox 密码不足6位 TextPassWord Text TextPassWord SetFocusflag 0Else flag 1EndIfEndIf 35 Ifflag 1ThenFormBack TextAll Text LblID Caption TextID Text vbNewLine LblPassWord Caption TextPassWord Text vbNewLine LblName Caption TextName Text vbNewLine LblMail Caption TextMail Text vbNewLine LblResume Caption TextResume TextLoadFormBackFormBack ShowFormTxtBox Visible FalseEndIfEndSub 36 6 3 3提供选择的控件一 框架 Frame 控件 1 作用 作为容器 对控件进行分组 2 如何将控件放在容器中 选中容器 在容器中直接画 选中容器 粘贴控件 3 如何检查控件是否在容器中拖动容器 控件随容器移动 4 删除容器时 其中的控件随之被删除 5 框架的常用属性Caption Font ForeColor Backcolor Enabled Visible 6 常用事件可以响应Click和DoubleClick事件 但一般不用 37 二单选按钮 OptionButton 1 作用 单选按钮 OptionButton 控件由一个圆圈 及紧挨它的文字组成 能提供 选中 和 未选中 两种可选项 成组形式出现 实现多选一 其缺省名称为OptionX2 属性 1 Caption 设置文本标题 2 Value 表示单选按钮是否被选中 True 选中False 未选中 如果设置一个选项的Value属性为True 则组内的所有其人也选项自动设置为False 3 Alignment属性 决定文本的对齐方式 4 Style 控制外观 0为标准样式 1为图形样式 38 例 设计如下图所示的界面 用选项按钮设置文本框的文字颜色和背景颜色 3 事件Click事件 使选项按钮从未选择变成选择状态时 单击鼠标改变 代码改变 2020 1 27 39 40 PrivateSubOption1 Click Text1 ForeColor vbBlackEndSubPrivateSubOption2 Click Text1 ForeColor vbYellowEndSubPrivateSubOption3 Click Text1 ForeColor vbRedEndSubPrivateSubOption4 Click Text1 BackColor vbWhiteEndSubPrivateSubOption5 Click Text1 BackColor vbGreenEndSubPrivateSubOption6 Click Text1 BackColor vbBlueEndSub 41 三复选框 CheckBox 1 作用复选框控件由一个四方形小框和紧挨它的文字组成 提供 选中 和 未选中 两种可选项 实现多选一或多选多 其缺省名称为CheckX2 属性 1 Caption 设置文本标题 2 Value表示复选框的状态0 未选中1 选中2 不可用 灰度显示 3 Alignment属性 决定文本的对齐方式 4 Style 控制外观3 事件Click事件 42 例6 16 用单选按钮和复选按钮设置在文本框中字体的样式 43 PrivateSubChkChu Click IfChkChu Value 1ThenText1 FontBold TrueElseText1 FontBold FalseEndIfEndSubPrivateSubChkXie Click IfChkXie Value 1ThenText1 FontItalic TrueElseText1 FontItalic FalseEndIfEndSub Text1 FontItalic ChkXie Value Text1 FontBold ChkChu Value 44 PrivateSubOptLi Click Text1 FontName 隶书 EndSubPrivateSubOptSong Click Text1 FontName 宋体 EndSub 45 四列表框 ListBox 1 作用 提供选项列表 用户可从中选择一个或多个项目 内容多时自动出现滚动条 其缺省名称为ListX2 属性Style 外形 常规形式 复选框形式 List 列表内容 设计时 用Ctrl 换行 代码中 List i 表示第i项 可以访问列表中的所有项目 List 0 表示第 项 ListIndex 返回列表框中当前选中项目的位置 如果未选定项目 则ListIndex值为 1 46 ListCount 返回列表框的项目总数 只在运行时可用Text 返回列表框中选定项目的值 与list Listindex 的值相同 运行时有效Columns 列表形式0 垂直单列 1 水平单列 1 水平多列MultiSelect 指示是否能多选 0 缺省 不允许重选1 简单复选 鼠标单击或按下空格键在列表框中选中或取消选中项2 扩展复选 按下Ctrl键或Shift键进行复选 47 Selected 运行期用 用于选择某项如List1 Selected 3 True选择第4项Sorted true 元素自动按字母顺序排序False 元素按加入的先后顺序排序3 事件 Click DblClick Change3 方法AddItem 向列表框中添加新的项目 AddItem 项目为字符串表达式 表示要加入的项目 索引为数值表达式 指新增项目的位置 若为0 则将新项目插入到第一个位置 若省略且Sorted属性为False 则插入到最后一个位置 若Sorted属性为True 则插入到合适的排序位置 48 RemoveItem 从列表框中移除项目 RemoveItem要删除列表框中所选的项目 程序段如下 i 0DoWhilei list1 listCount 1iflist1 Selected i truethenlist1 RemoveItemiendifi i 1Loop Clear方法 Clear如List1 Clear 删除列表框中所有的项目 49 例6 17 从一个列表框中选择城市名加入到另一个列表框中 50 PrivateSubForm Load List1 AddItem 昆明 List1 AddItem 北京 List1 AddItem 上海 List1 AddItem 济南 List1 AddItem 成都 List1 AddItem 长春 List1 AddItem 广州 List1 AddItem 珠海 List1 AddItem 郑州 List1 AddItem 香港 List1 AddItem 大连 List1 AddItem 贵阳 EndSub 51 PrivateSubList1 DblClick List2 AddItemList1 TextList1 RemoveItemList1 ListIndexEndSubPrivateSubCommand1 Click List2 AddItemList1 TextList1 RemoveItemList1 ListIndexEndSubPrivateSubCommand2 Click List1 AddItemList2 TextList2 RemoveItemList2 ListIndexEndSub 52 五组合框 ComboBox 1 作用 允许从已有的选项中进行选择 还允许输入列表中不包括的内容列表框和文本框的组合具有列表框和文本框的大部分属性和方法 不同的属性如下 2 属性Style 外形0 下拉组合框 折叠 1 简单组合框 不折叠 2 下拉列表框 不能修改Text属性 Text 返回组合框中选定项目的值 设计时可修改 53 3 事件组合框的事件与Style属性有关 Style为0时 响应Click Change DropDown事件Style为1时 响应Click DblClick Change事件Style为2时 响应Click DropDown事件4 方法AddItem 向组合框中添加新的项目 AddItem RemoveItem 从组合框中移除项目 RemoveItemClear 清除组合框中的所有项目 Clear 54 例6 19 组合框的应用 PrivateSubCombo1 Click Text1 Text Combo1 TextEndSubPrivateSubForm Load Combo1 AddItem 北京 Combo1 AddItem 上海 Combo1 AddItem 天津 Combo1 AddItem 广州 Combo1 AddItem 昆明 Combo1 AddItem 长沙 EndSub 55 例6 20 在窗体中输入个人信息 单击确定按钮后 将个人信息显示在信息框中 56 PrivateSubForm Load Combo1 AddItem 正高 Combo1 AddItem 副高 Combo1 AddItem 中级 Combo1 AddItem 初级 Combo1 AddItem 无职称 Combo1 Text Combo1 List 0 Combo2 AddItem 研究生 Combo2 AddItem 大学 Combo2 AddItem 大专 Combo2 AddItem 高中 Combo2 AddItem 初中 Combo2 Text Combo2 List 0 EndSub 57 PrivateSubCommand1 Click p1 Text1 Text p2 IIf Option1 Value 男 女 p3 Text2 Text 岁 p4 IIf Option3 Value 已婚 未婚 Chr 13 p5 职称 Combo1 Text p6 学历 Combo2 Textp p1 p2 p3 p4 p5 p6MsgBoxp vbOKOnly vbInformation Text1 Text 基本情况 EndSub 58 PrivateSubCommand2 Click UnloadMeEndSubPrivateSubForm Activate Text1 SetFocusEndSubPrivateSubText1 KeyPress KeyAsciiAsInteger IfKeyAscii 13ThenText2 SetFocusEndIfEndSub 59 六滚动条 HScroIIBar VScrollBar 1 作用常用于附在某个窗口上帮助观察数据或确定位置 也可以用来作为数据输入的工具 2 滚动条结构使用方法 1 拖动 用鼠标拖动滚动块 2 单击滚动框空白区域 可以 快速 滚动 3 单击滚动箭头 可以一步步地 慢速 滚动 60 3 属性Value 设置或返回滑块当前位置的值 介于 Min Max 之间 Max 滚动条的Value属性最大值 Min 滚动条的Value属性最小值 SmallChange 单击滚动箭头时 滚动条的Value值的改变量 LargeChange 单击滚动块和滚动箭头之间的空白区域时 滚动条Value值的改变量 4 事件Change 单击时 Value改变时 Scroll 拖动时 61 例6 21 利用滚动条来设置文本框中字体的颜色 PrivateSubhsColor Change IndexAsInteger txtColor Index Text hsColor Index ValueText1 ForeColor RGB hsColor 0 Value hsColor 1 Value hsColor 2 Value EndSub 62 6 3 4图片框和图像框控件一 图片框 PictureBox 1 作用 作为容器 对控件进行分组 显示图像2 属性Picture 在PictureBox框中显示的图像文件名可以在属性窗口中设置 也可以在代码中用LoadPicture函数设置 显示图像 对象名 Picture LoadPicture 图形文件名 删除图像 对象名 Picture LoadPicture 也清除文字 Appearance 设置图片框的绘图风格 0 平面绘图 1 三维风格AutoSize 设置图片框是否按装入图形的大小做自动调整 其值为true和False 63 Align 设置图片框的显示位置 其值为1 2 3 4时 图片分别放置在窗体的顶部 底部 左侧和右侧 BorderStyle 图片框的边框图风格 无边框 单线边框AutoRedraw 该属性设置为true时 可以将图形方法的输出显示在图片框上 并在调整图片框大小或移去遮挡图片框的对象时 自动重绘输出的图片Image 记录了图片框中的所有图形信息 包括用绘图方法所产生的图形图像和文字信息 CurrentX 在代码中设置或返回Print方法或绘图方法的水平起始位置CurrentY 在代码中设置或返回Print方法或绘图方法的垂直起始位置 64 图片框的常用方法 P255 Line 用来在窗体或图片框中画直线和矩形格式 Object Line step x1 y1 x2 y2 Color B F Pset 用来在窗体或图片框中画点格式 Object Pset step x y Color Circle 用于画圆 画弧 扇形 椭圆格式 Object Circle step x y Radius Color Start End Aspect Print 用于在图片框中输入文字 65 例 PrivateSubForm Load ShowPicture1 Print 在图片框内写字和画圆 Picture1 Circle 1200 1000 600 RGB 0 0 255 Picture1 PSet 1200 1000 RGB 255 0 0 EndSub 66 二图像框 Image 1 作用 显示图像2 属性 事件 方法 拥有图片框的一部分属性 事件和方法3 特点 可以自动调整控件大小以适应图像 设Stretch False延伸图形以适应控件的大小 设Stretch True4 与图片框的区别 1 图片框控件可以作为其他控件的容器 2 图片框可以通过print方法接收文本 而图像框不行 3 图像框比图片框占用的内存少 显示速度快 4 图像框可以通过Stretch属性延伸图形的大小以适应控件大小 67 例6 23 设计一个窗体 说明图像框Strech属性的作用 68 PrivateSubCommand1 Click Image1 Width 1000Image1 Height 1000Image1 Stretch FalseEndSubPrivateSubCommand2 Click Image1 Width 1000Image1 Height 1000Image1 Stretch TrueEndSubPrivateSubCommand3 Click Image1 Width 4000Image1 Height 4000Image1 Stret