Visual Basic程序设计及应用 教学课件 作者 郑丽敏 VB第5章.ppt

5.2.7 滚动条控件 * 滚动条的常用事件 Change、Scroll、KeyDown、KeyUp、KeyPress、LostFocus、GetFocus等 Scroll：当拖动滚动条滑块时触发Scroll事件 Change：单击滚动条两端的箭头和滑块之间的区域时均触发Change事件 注意：拖动滑块时将触发Scroll事件，并不会触发Change事件，但拖动滑块结束释放鼠标时，触发Change事件。 5.2.7 滚动条控件 * 滚动条的常用事件 单击滚动箭头 单击滚动条空白处 拖动滚动滑块 触发Scroll事件 触发Change事件 获取新Value值 滚动条事件响应过程 5.2.7 滚动条控件 【例5-13】利用滚动条作为红绿蓝三基色值的输入控件，通过调节三基色来改变右侧标签的背影颜色 1 设计界面 * 5.2.7 滚动条控件 2 设置属性 * 对象 属性 属性值 窗体 Caption 调色板 标签框1 名称 LblRed 标签框2 名称 LblGreen 标签框3 名称 LblBlue 标签框4 名称 LblColor 滚动条1(滚动条2、滚动条3) 名称 HsbRed(HsbGreen、 HsbBlue) Max 255 SmallChange 8 LargeChange 32 5.2.7 滚动条控件 编程策略 RGB函数： 格式： RGB（红色值、绿色值、蓝色值） * 5.2.7 滚动条控件 4. 编写Click事件过程代码 * Private Sub Form_Load() LblRed.Caption = 红色分量值： HsbRed.Value LblGreen.Caption = 绿色分量值： HsbGreen.Value LblBlue.Caption = 蓝色分量值： HsbBlue.Value LblColor?.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value) End Sub 5.2.7 滚动条控件 4. 编写Click事件过程代码 * Private Sub HsbRed_Change() LblRed.Caption = 红色分量值： HsbRed.Value LblColor.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value) End Sub Private Sub HsbRed_Scroll() HsbRed_Change End Sub 5.2.7 滚动条控件 * 5.2.7 滚动条控件 * Private Sub Form_Load() HScroll1.Max = HScroll1.Width - Command1.Width VScroll1.Max = VScroll1.Height - Command1.Height End Sub Private Sub HScroll1_Change() Command1.Left = HScroll1.Value End Sub Private Sub VScroll1_Change() Command1.Top = VScroll1.Value End Sub Private Sub HScroll1_Scroll() HScroll1_Change End Sub Private Sub VScroll1_Scroll() VScroll1_Change End Sub 5.2.8 框架控件 * 作用 作为容器存放其它控件，并对控件分组 将控件放在框架中的方法： 选中框架，在其内拖出对象 选中框架，用剪贴板粘贴 检验对象是否在框架中的方法 拖动框架 5.2.8 框架控件 * 框 架 5.2.8 框架控件 框架中的所有控件全都不可见 框架中的所有控件全都被禁用 False 框架的常用属性 Caption Enabled Visible * 5.2.8 框架控件 【例5-14】利用框架、单选按钮和复选框控件在文本框中显示不同的字体格式 设计界面 设置属性 编程策略 单选按钮分组 增加命令按钮 代码编写 * 5.2.8 框架控件 Private Sub CmdOk_Click() If Op