visual badic语言程序设计 第16章常用 Activex控件 令应用VB6.0专业版和企业版除了提供前面所介绍的常用控件之外,还提供 了许多 Active控件。这些控件都极大地增强了VB程序的功能,同时也简 化了复杂应用程序的开发难度 Activex控件既保留了普通控件中的一些基本属性、事件和方法,同时又 新增了自身所特有的一些属性和方法。 Activex控件是以文件形式存在的, 其扩展名为.ocx,一般保存在 Windows的 Sys tem目录或 System32目录中 Activex控件既可以在VB里得到,也可以从其他软件开发商处获得,同时 用户还可以自己利用VB去定义 Activex控件。 令 Activex控件的使用方法和VB的基本控件完全相同。在使用前,必须先将 他们添加到工具箱中,具体操作步骤如下:
Visual Basic 语 言 程 序 设 计 第16章 常用ActiveX控件 ❖ 应用VB6.0专业版和企业版除了提供前面所介绍的常用控件之外，还提供 了许多ActiveX控件。这些控件都极大地增强了VB程序的功能，同时也简 化了复杂应用程序的开发难度。 ❖ ActiveX控件既保留了普通控件中的一些基本属性、事件和方法，同时又 新增了自身所特有的一些属性和方法。ActiveX控件是以文件形式存在的， 其扩展名为.ocx，一般保存在Windows的System目录或System32目录中。 ActiveX控件既可以在VB里得到，也可以从其他软件开发商处获得，同时 用户还可以自己利用VB去定义ActiveX控件。 ❖ ActiveX控件的使用方法和VB的基本控件完全相同。在使用前，必须先将 他们添加到工具箱中，具体操作步骤如下：
visual badic语言程序设计 操作步骤 令(1)选择“工程”菜单下的“部件”子菜单,或在工具箱上单击鼠标右键, 屏幕出现快捷菜单,如图16.1所示 (2)选择“部件”命令,屏幕显示“部件”对话框,在“部件”对话框 中,单击“控件”选项卡,如图16.2所示,对话框中列出了VB所提供的 各种 activex控件。 令(3)用鼠标选中所需部件前方的复选框。例如,选中“ Microsoft data Datagrid Control6.0”。 令(4)单击“确定”按钮,关闭“部件”对话框。这时所选中的 Activex控 件图标,就会出现在工具箱中,则我们所选中的 Activex控件就可以在程 序中使用了。 令在前面的章节中,我们已介绍了一些 Activex控件:通用对话框、图像列 表框、工舆栏、状态栏、高级文本框控件、AD控件、表格控件等。本章 介绍一些常用 Activex控件,例如:滑块控件、日历控件、动画控件、进 程条控件、浏览器控件、会话控件等6种控件
Visual Basic 语 言 程 序 设 计 操作步骤: ❖ (1)选择“工程”菜单下的“部件”子菜单，或在工具箱上单击鼠标右键， 屏幕出现快捷菜单，如图16.1所示。 ❖ (2)选择“部件”命令，屏幕显示“部件”对话框，在“部件”对话框 中，单击“控件”选项卡，如图16.2所示，对话框中列出了VB所提供的 各种ActiveX控件。 ❖ (3)用鼠标选中所需部件前方的复选框。例如，选中“Microsoft Data DataGrid Control6.0”。 ❖ (4)单击“确定”按钮，关闭“部件”对话框。这时所选中的ActiveX控 件图标，就会出现在工具箱中，则我们所选中的ActiveX控件就可以在程 序中使用了。 ❖ 在前面的章节中，我们已介绍了一些ActiveX控件：通用对话框、图像列 表框、工具栏、状态栏、高级文本框控件、ADO控件、表格控件等。本章 介绍一些常用ActiveX控件，例如：滑块控件、日历控件、动画控件、进 程条控件、浏览器控件、会话控件等6种控件
visual badic语言程序设计 16.1滑块控件 令滑块控件( Slider)是由一个滑块和一个带有刻度的标尺组成 的,用户既可以用鼠标拖动滑块,也可以通过按“方向键” 或“ PageUp”和“ PageDown”键来移动滑块,此外单击滑块的 任意一侧也可以移动滑块。标尺上的刻度反映了滑块的可移 动范围和当前位置。当滑块移动时,系统会自动显示滑块的 当前值,滑块既可以水平设置,也可以垂直设置 令在“部件”对话框中,选择“ Microsoft windows common Contro16.0”选项,可以将滑块控件添加到工具箱中。其图 标如图16.3所示
Visual Basic 语 言 程 序 设 计 16.1 滑块控件 ❖ 滑块控件(Slider)是由一个滑块和一个带有刻度的标尺组成 的，用户既可以用鼠标拖动滑块，也可以通过按“方向键” 或“PageUp”和“PageDown”键来移动滑块，此外单击滑块的 任意一侧也可以移动滑块。标尺上的刻度反映了滑块的可移 动范围和当前位置。当滑块移动时，系统会自动显示滑块的 当前值，滑块既可以水平设置，也可以垂直设置。 ❖ 在“部件”对话框中，选择“Microsoft Windows Common Control6.0”选项，可以将滑块控件添加到工具箱中。其图 标如图16.3所示
visual badic语言程序设计 16.1.1滑块控件的常用属性 令(1) Borderstyle属性 s该属性设置或返回该控件的边界样式。0为无单线边框;1为有单线 边框。 令(2)Max属性和Min属性 s该属性设置或返回该控件的最大值和最小值 (3)0 rientation属性 s该属性决定了该控件是水平添加还是垂直添加,O为水平,1为垂直 (4) TickFrequency属性 6该属性返回或设置该控件刻度标记的频率,此频率与其范围有关 例如,如果范围为100,而 TickFrequency属性设置为2,则在范 围中每隔两个增量设置一个刻度
Visual Basic 语 言 程 序 设 计 16.1.1 滑块控件的常用属性 ❖ (1)BorderStyle属性 该属性设置或返回该控件的边界样式。0为无单线边框；1为有单线 边框。 ❖ (2)Max属性和Min属性 该属性设置或返回该控件的最大值和最小值。 ❖ (3)Orientation属性 该属性决定了该控件是水平添加还是垂直添加，0为水平，1为垂直。 ❖ (4)TickFrequency属性 该属性返回或设置该控件刻度标记的频率，此频率与其范围有关。 例如，如果范围为 100，而 TickFrequency 属性设置为 2，则在范 围中每隔两个增量设置一个刻度
visual badic语言程序设计 16.1.1滑块控件的常用属性 (5) TickStyle属性 s该属性返回或设置该控件上显示的刻度标记的样式 ÷(6) Small change和 argeChange属性 s该属性决定用户操作滑块控件时滑块移动的刻度数量 o6, Small change属性表示用户按下左、右光标键时滑块移动了多少个刻度,默 认为1。 LargeChange属性表示用户按下( PageUp)键 PageDown〉键,或用 鼠标单击滑块两侧时,滑块移动了多少个刻度,默认为5。 (⑦) Selectrange属性、 Selstart属性和 Sellength属性 o Select Range属性决定滑块能否有一个可选择的范围,默认为 False。 o6 Selstart属性决定选择范围的起始数值。 Sellength属性设定滑块选择范围的长度。 只有 Selectrange属性为True时,才可以通过 Selstart属性和 Sellength属性 在滑块中选择范围
Visual Basic 语 言 程 序 设 计 16.1.1 滑块控件的常用属性 ❖ (5)TickStyle属性 该属性返回或设置该控件上显示的刻度标记的样式。 ❖ (6)SmallChange和LargeChange属性 该属性决定用户操作滑块控件时滑块移动的刻度数量。 SmallChange属性表示用户按下左、右光标键时滑块移动了多少个刻度，默 认为1。LargeChange属性表示用户按下〈PageUp〉键〈PageDown〉键，或用 鼠标单击滑块两侧时，滑块移动了多少个刻度，默认为5。 ❖ (7)SelectRange属性、SelStart属性和SelLength属性 SelectRange属性决定滑块能否有一个可选择的范围，默认为False。 SelStart属性决定选择范围的起始数值。 SelLength属性设定滑块选择范围的长度。 只有SelectRange属性为True时，才可以通过SelStart属性和SelLength属性 在滑块中选择范围
visual badic语言程序设计 16.1.1滑块控件的常用属性 (8) Textposition属性 s该属性返回或设置一个值,用来确定显示文本相对于对 象的位置 s0表示在滑块的正上方或左边显示滑块当前值 s1表示在滑块的正下方或右边 (9) Value属性 ≤该属性设置或返回滑块的当前值。 (10) ToolTipText属性 ≤该属性设置和返回鼠标在控件上暂停时显示的提示文本
Visual Basic 语 言 程 序 设 计 16.1.1 滑块控件的常用属性 ❖ (8)TextPosition属性 该属性返回或设置一个值，用来确定显示文本相对于对 象的位置。 0表示在滑块的正上方或左边显示滑块当前值。 1表示在滑块的正下方或右边。 ❖ (9)Value属性 该属性设置或返回滑块的当前值。 ❖ (10)ToolTipText属性 该属性设置和返回鼠标在控件上暂停时显示的提示文本
visual badic语言程序设计 16.1.2滑块控件的常用事件 令滑块控件常用事件有 Click事件、 Change和 Scroll事件 onClick事件是鼠标单击事件 sCro11事件是在拖动滑块使其滚动时发生的,且 Scroll事件发生在Cick事件之前 o6 Chang事件是在滑块位置改变时触发的
Visual Basic 语 言 程 序 设 计 16.1.2 滑块控件的常用事件 ❖ 滑块控件常用事件有Click事件、Change和 Scroll事件。 Click事件是鼠标单击事件。 Scroll事件是在拖动滑块使其滚动时发生的，且 Scroll事件发生在 Click 事件之前。 Chang事件是在滑块位置改变时触发的
visual badic语言程序设计 16.1.3滑块控件的常用方法 令滑块控件常用方法有 Cleanse和 GetNumTicks s(1) Cleanse方法清除滑块控件的当前选择,此 方法将 Selstart属性设置为 Value属性值, 并将 Sellength属性设置为0 s(2) GetNumTicks方法设置 Slider控件的Min和Max 属性之间的刻度数目。 s【例16.1】编写一个利用滑块控件来调节图像大 小的程序
Visual Basic 语 言 程 序 设 计 16.1.3 滑块控件的常用方法 ❖ 滑块控件常用方法有ClearSel和GetNumTicks。 (1)ClearSel方法清除滑块控件的当前选择，此 方法将 SelStart 属性设置为 Value 属性值， 并将SelLength 属性设置为0。 (2)GetNumTicks方法设置Slider控件的Min和Max 属性之间的刻度数目。 【例16.1】编写一个利用滑块控件来调节图像大 小的程序
visual badic语言程序设计 16.2日历控件 日历控件( Calendar)用于显示万年历。 令16.2.1日历控件的常用属性(1)Day属性 s该属性返回或设置日期。 s(2) Month属性 s该属性返回或设置月份 s(3)Year属性 s该属性返回或设置年份
Visual Basic 语 言 程 序 设 计 16.2 日历控件 ❖ 日历控件(Calendar)用于显示万年历。 ❖ 16.2.1 日历控件的常用属性(1)Day属性 该属性返回或设置日期。 (2)Month属性 该属性返回或设置月份。 (3)Year属性 该属性返回或设置年份
visual badic语言程序设计 16.2.2日历控件的常用方法 (1) Previous month方法 s该方法设置日期为上一个月份。 (2) NextMonth方法 s该方法设置日期为下一个月份。 今(3) Previous year方法 该方法设置日期为上一年 (4) NextYear方法 s该方法设置日期为下一年。 (5) Today方法 s该方法设置日期为当日。 o6 Calendar控件是一个 Activex控件,在“部件”对话框中,选择“ Microsoft Calendar Control8.0”选项,即可将日历控件添加到工具箱中 【例16.2】用日历控件设计一个万年历程序
Visual Basic 语 言 程 序 设 计 16.2.2 日历控件的常用方法 ❖ (1)PreviousMonth方法 该方法设置日期为上一个月份。 ❖ (2)NextMonth方法 该方法设置日期为下一个月份。 ❖ (3)PreviousYear方法 该方法设置日期为上一年。 ❖ (4)NextYear方法 该方法设置日期为下一年。 ❖ (5)Today方法 该方法设置日期为当日。 Calendar控件是一个ActiveX控件，在“部件”对话框中，选择“Microsoft Calendar Control8.0”选项，即可将日历控件添加到工具箱中。 ❖ 【例16.2】用日历控件设计一个万年历程序