单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,Visual Basic,语,言,程,序,设,计,第,16,章,常用,ActiveX,控件,?,应用,VB6.0,专业版和企业版除了提供前面所介绍的常用控件之外，还提供,了许多,ActiveX,控件。这些控件都极大地增强了,VB,程序的功能，同时也简,化了复杂应用程序的开发难度。,?,ActiveX,控件既保留了普通控件中的一些基本属性、事件和方法，同时又,新增了自身所特有的一些属性和方法。,ActiveX,控件是以文件形式存在的，,其扩展名为,.ocx,，一般保存在,Windows,的,System,目录或,System32,目录中。,ActiveX,控件既可以在,VB,里得到，也可以从其他软件开发商处获得，同时,用户还可以自己利用,VB,去定义,ActiveX,控件。,?,ActiveX,控件的使用方法和,VB,的基本控件完全相同。在使用前，必须先将,他们添加到工具箱中，具体操作步骤如下：,Visual Basic 语 言 程 序 设 计,Visual Basic,语,言,程,序,设,计,操作步骤,:,?,(1),选择“工程”菜单下的“部件”子菜单，或在工具箱上单击鼠标右键，,屏幕出现快捷菜单，如图,16.1,所示。,?,(2),选择“部件”命令，屏幕显示“部件”对话框，在“部件”对话框,中，单击“控件”选项卡，如图,16.2,所示，对话框中列出了,VB,所提供的,各种,ActiveX,控件。,?,(3),用鼠标选中所需部件前方的复选框。例如，选中“,Microsoft Data,DataGrid Control6.0”。,?,(4),单击“确定”按钮，关闭“部件”对话框。这时所选中的,ActiveX,控,件图标，就会出现在工具箱中，则我们所选中的,ActiveX,控件就可以在程,序中使用了。,?,在前面的章节中，我们已介绍了一些,ActiveX,控件：通用对话框、图像列,表框、工具栏、状态栏、高级文本框控件、,ADO,控件、表格控件等。本章,介绍一些常用,ActiveX,控件，例如：滑块控件、日历控件、动画控件、进,程条控件、浏览器控件、会话控件等,6,种控件。,Visual Basic 语 言 程 序 设 计,Visual Basic,语,言,程,序,设,计,16.1,滑块控件,?,滑块控件,(Slider),是由一个滑块和一个带有刻度的标尺组成,的，用户既可以用鼠标拖动滑块，也可以通过按“方向键”,或“PageUp”和“PageDown”键来移动滑块，此外单击滑块,的任意一侧也可以移动滑块。标尺上的刻度反映了滑块的可,移动范围和当前位置。当滑块移动时，系统会自动显示滑块,的当前值，滑块既可以水平设置，也可以垂直设置。,?,在“部件”对话框中，选择“,Microsoft Windows Common,Control6.0”选项，可以将滑块控件添加到工具箱中。其图,标如图,16.3,所示。,Visual Basic 语 言 程 序 设 计,Visual Basic,语,言,程,序,设,计,16.1.1,滑块控件的常用属性,?,(1)BorderStyle,属性,?,该属性设置或返回该控件的边界样式。,0,为无单线边框；,1,为有单线,边框。,?,(2)Max,属性和,Min,属性,?,该属性设置或返回该控件的最大值和最小值。,?,(3)Orientation,属性,?,该属性决定了该控件是水平添加还是垂直添加，,0,为水平，,1,为垂直。,?,(4)TickFrequency,属性,?,该属性返回或设置该控件刻度标记的频率，此频率与其范围有关。,例如，如果范围为,100,，而,TickFrequency,属性设置为,2,，则在范,围中每隔两个增量设置一个刻度。,Visual Basic 语 言 程 序 设 计,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 Basic 语 言 程 序 设 计,Visual Basic,语,言,程,序,设,计,16.1.1,滑块控件的常用属性,?,(8)TextPosition,属性,?,该属性返回或设置一个值，用来确定显示文本相对于对,象的位置。,?,0,表示在滑块的正上方或左边显示滑块当前值。,?,1,表示在滑块的正下方或右边。,?,(9)Value,属性,?,该属性设置或返回滑块的当前值。,?,(10)ToolTipText,属性,?,该属性设置和返回鼠标在控件上暂停时显示的提示文本。,Visual Basic 语 言 程 序 设 计,Visual Basic,语,言,程,序,设,计,16.1.2,滑块控件的常用事件,?,滑块控件常用事件有,Click,事件、,Change,和,Scroll,事件。,?,Click,事件是鼠标单击事件。,?,Scroll,事件是在拖动滑块使其滚动时发生的，且,Scroll,事件发生在,Click,事件之前。,?,Chang,事件是在滑块位置改变时触发的。,Visual Basic 语 言 程 序 设 计,Visual Basic,语,言,程,序,设,计,16.1.3,滑块控件的常用方法,?,滑块控件常用方法有,ClearSel,和,GetNumTicks,。,?,(1)ClearSel,方法清除滑块控件的当前选择，此,方法将,SelStart,属性设置为,Value,属性值，,并将,SelLength,属性设置为,0,。,?,(2)GetNumTicks,方法设置,Slider,控件的,Min,和,Max,属性之间的刻度数目。,?,【例,16.1,】编写一个利用滑块控件来调节图像大,小的程序。,Visual Basic 语 言 程 序 设 计,Visual Basic,语,言,程,序,设,计,16.2,日历控件,?,日历控件,(Calendar),用于显示万年历。,?,16.2.1,日历控件的常用属性,(1)Day,属性,?,该属性返回或设置日期。,?,(2)Month,属性,?,该属性返回或设置月份。,?,(3)Year,属性,?,该属性返回或设置年份。,Visual Basic 语 言 程 序 设 计,Visual Basic,语,言,程,序,设,计,16.2.2,日历控件的常用方法,?,(1)PreviousMonth,方法,?,该方法设置日期为上一个月份。,?,(2)NextMonth,方法,?,该方法设置日期为下一个月份。,?,(3)PreviousYear,方法,?,该方法设置日期为上一年。,?,(4)NextYear,方法,?,该方法设置日期为下一年。,?,(5)Today,方法,?,该方法设置日期为当日。,?,Calendar,控件是一个,ActiveX,控件，在“部件”对话框中，选择“,Microsoft,Calendar Control8.0”选项，即可将日历控件添加到工具箱中。,?,【例,16.2,】用日历控件设计一个万年历程序。,Visual Basic 语 言 程 序 设 计,Visual Basic,语,言,程,序,设,计,16.3,动画控件,?,动画控件,(Animation),是用来显示动画效果的。该控件只能,播放无声的,.Avi,文件，且该控件只能显示未压缩的,.Avi,文,件。在,Windows98,中，文件复制进度栏就是使用动画控件,调用,.Avi,文件的一个实例。如图,16.8,所示，复制文件时我们,可以看到该控件的下述效果：即在两个文件夹之间有一张纸,(“文件”,),在“飘动”。,?,说明：在,VB 6.0,安装光盘的,Graphics,AVI,目录中我们,可以找到许多无声的,.Avi,文件。在“部件”对话框中，选,择的“,Microsoft Windows Common Controls,2 5.0”选项，,即可把动画控件添加到工具箱上。其图标如图,16.9,所示。,Visual Basic 语 言 程 序 设 计,Visual Basic,语,言,程,序,设,计,16.3.1,动画控件的常用属性,?,(1)AutoPlay,属性,?,在将,.Avi,文件加载到控件时，返回或设置一值，该值,确定动画控件是否开始播放,.Avi,文件。另外用,AutoPlay,属性播放的,.Avi,文件将不断重复，直到,AutoPlay,的设置为,False,时为止。,?,(2)BackStyle,属性,?,该属性返回或设置一个值，该值确定动画控件是在透,明的背景上还是在动画剪辑中所指定的背景颜色上绘,制动画。在运行时为只读。,?,0(,缺省,),表示透明的，控件的背景颜色是可见的。,?,1,表示不透明的，动画剪辑中指定的背景颜色将充满控件并覆,盖其背后的所有颜色。,Visual Basic 语 言 程 序 设 计,Visual Basic,语,言,程,序,设,计,16.3.1,动画控件的常用属性,?,(3)Center,属性,?,在动画控件内确定,.Avi,文件是否居中。当设置为,True(,缺省,),时，根据图象的大小，在,控件中心显示,.Avi,文件。当设置为,False,时，,.Avi,文件定位在控件内的,0,0,处。,?,(4)Visible,属性,?,返回或设置控件对象为可见或隐藏的值。,?,(5)ToolTipText,属性,?,返回或设置一个工具提示。,?,(6)Enabled,属性,?,返回或设置一个值，该值用来确定控件是否能够对用户产生的事件作出反应。,?,(7)BackColor,属性,?,该属性返回或设置对象的背景颜色。,?,(8)ForeColor,属性,?,该属性返回或设置在对象里显示图片和文本的前景颜色。,Visual Basic 语 言 程 序 设 计,Visual Basic,语,言,程,序,设,计,16.3.2,动画控件的常用方法,?,(1)Close,方法,?,该方法使动画控件关闭当前打开的,.Avi,文件。如果没有加载任何文件，则,Close,不执行任何操作，也不会产生任何错误。,?,(2)Open,方法,?,打开一个要播放的,.Avi,文件。如果,AutoPlay,属性设置为,True,，则只要加载该,文件，剪辑就开始播放它。在关闭,.Avi,文件或设置,AutoPlay,属性为,False,之,前，它将不断重复播放。,?,(3)Play,方法,?,该方法在动画控件中播放,.Avi,文件。,?,(4)Stop,方法,?,该方法在动画控件中终止播放,.Avi,文件。,Stop,方法仅终止那些用,Play,方法启动的动画。当设置,AutoPlay,属性为,True,时，任何使用,Stop,方法,的尝试都导致返回错误。,?,【例,16.3,】利用动画控件编写演示动画控件的程序。,