第五章 常用控件.pptVIP

第五章 常用控件 单选按钮和复选框 框架 列表框和组合框 滚动条和Slider控件 时钟 图形控件 鼠标和键盘 介绍 VB6.0的控件分为三类 标准控件 VB工具箱中的控件都是标准控件，是基本配置。 ActiveX控件 使用ActiveX控件需要先加载他们。 方法：菜单【工程】－【部件】，然后选定复选框 可插入对象 Windows应用程序对象：Excel、Word等 5.1单选按钮和复选框 CheckBox 控件与 OptionButton 控件的相同之处在于，每个都是用来指示用户所作的选择。 不同之处在于，对于一组 OptionButton ，一次只能选定其中的一个，而对 CheckBox 控件，则可选定任意数目的复选框。 例5.1 文本框字体设置示例 常用事件Click事件 单选按钮和复选框都能接收Click事件，当用户单击单选按钮和复选框的时候，它们自动改变状态 5.2框架(Frame) Frame 控件为控件提供可标识的分组 框架（Frame）控件可以用来对其他控件进行分组，以便于用户识别.对于需要分组的单选按钮，框架特别有用。 为了将控件分组，首先需要先绘制 Frame 控件，然后绘制 Frame 里面的控件。这样就可以把框架和里面的控件同时移动。 5.3列表框和组合框 共有属性 List 为一数组，用于存放列表中的选项 ListIndex 指示被选中的选项的序号 值为-1表示没有选中某一项 ListCount 代表选项的数量 Sort 设置排序是否按字母 Text 返回选定项的文本内容 5.3－列表框 列表框特有属性 MultiSelect属性0-禁止多项选择 1-简单多项选择 2-扩展多项选择 Selected Selected(i)的值为True表示第i+1项被选中 Private Sub ComButDel_Click() Dim response As String With List1 If .ListIndex = -1 Then MsgBox 您没有选择一个选项 Else response = MsgBox(确定删除_选项： .Text, 4) If response = vbYes Then .RemoveItem (.ListIndex) End If End If End With End Sub 5.3－组合框 组合框特有属性 Style 0-组合框为下拉式组合框 用户可（象在文本框中一样）直接输入文本，也可单击组合框右侧的附带箭头打开选项列表。选定某个选项后，将此选项插入到组合框顶端的文本部分中。 1-组合框为简单组合框 列出所有的选项供用户选择，右边没有下拉箭头，可以在文本框中用键盘输入列表框中没有的选项。 2-组合框为下拉式列表框 与下拉式组合框相似，主要差别在于，用户不能在列表框中输入选项，而只能在列表中选择。 5.4滚动条和Slider控件 添加ActiveX控件-Slider Microsoft Windows Common Control 6.0 添加步骤： -〉菜单项”工程” -〉”部件” -〉选中复选框 滚动条和Slider控件 滚动条和Slider控件共有的属性 Max最大值属性 Min最小值属性 SmallChange滚动箭头最小变动值属性 LargeChange滚动箭头最大变动值属性 Value属性 表示滑块所处位置所代表的值 滚动条和Slider控件 Slider控件特有属性 TickStyle属性：设置 Slider 控件上显示的刻度标记的样式 TickFrequency属性：设置 Slider 控件刻度标记的频率，此频率与其范围有关 ，例如：如果范围为 100，而 TickFrequency 属性设置为 2，则在范围中每隔两个增量设置一个刻度 TextPosition属性：返回或设置一个值，确定显示文本相对于对象的位置 滚动条和Slider控件 滚动条事件 Scroll在滚动框移动后发生 Change该事件在进行滚动或通过代码改变 Value 属性的设置时发生。 示例程序5.4: 通过两个滚动条控件设置”标签:Label1”的位置. 同时通过Slider控件设置该标签控件中文字的大小 示例程序5.4代码 Private Sub Form_Load( ) HScroll1.Min = 0 HScroll1.Max = Form1.Width VScroll1.Min = 0 VScroll1.Max = Form1.Height HScroll1.Value = Label1.Left VScroll1.Value = Label1.Height End