第八章 VB中ActiveX控件的使用.docx

第八章 VB中ActiveX控件的使用.docx

《第八章 VB中ActiveX控件的使用.docx》由会员分享，可在线阅读，更多相关《第八章 VB中ActiveX控件的使用.docx（12页珍藏版）》请在冰豆网上搜索。

第八章VB中ActiveX控件的使用

第八章         VB中ActiveX控件的使用

8．1 概述

    这里的ActiveX控件是指VB标准工具箱里没有的控件，用时需从“工程”菜单里选择“部件…”（或右键单击工具箱，从快捷菜单中选择“部件…”），从部件窗口里勾上需要的控件。

常用ActiveX控件

ActiveX控件

ActiveX部件

文件名

TabStrip     页框

Windows通用控件

Microsoft WindowsCommonControls6.0

 路径：

Windows\system\

Mscomctl.ocx

Toolbar      工具栏

StatusBar    状态栏

ProgressBar  进程条

TreeView   分层显示

ListView    排列显示

ImageList   图象列表

Slider       滑块

ImageCombo 图象组合框

CommonDialog通用对话框

Microsoft Common DialogControl6.0 

Comdlg32.ocx

MMControl1 多媒体

Microsoft MultimediaControl6.0

Mci32.ocx

MediaPlayer 媒体播放器

Microsoft MediaPlayer

Msdxm.ocx

8.1   多选项卡对话框——页框（TabStrip）

1. 设置页框的外观样式

（1）先在窗体上画出一个TabStrip对象；

（2）右击该对象，从快捷菜单中选择“属性”；

　（3）在TabStrip属性窗口里选择通用（General）标签，在样式（Style）列表框里选择样式；

　（4）在TabStrip属性窗口里选择选项卡（Tabs）标签，在标题（Caption）框里输入标题和关键字；

　（5）如果需要的话，在工具提示文本（ToolTipText）框里输入提示信息；

　（6）在TabStrip属性窗口里选择字体（Font）标签，设置标题的字体（可以直接采用默认值）。

2．增减标签总数

   　在TabStrip属性窗口里选择选项卡标签，单击插入选项卡按钮增加标签，单击删除选项卡按钮删除标签。

3．在TabStrip上显示图形

　　1）在窗体里拖入一个图象列表（ImageList）控件；

　　2）在此对象上右击，选择属性，打开属性页窗口；

　　3）选择图象标签，单击插入图片按钮，在选定图片对话框里选择想使用的位图或图标，然后单击打开按钮；为每个想添加图形的选项卡重复此步；

　　4）单击确定按钮，ImageList里就存储了需要的图片。

　　5）选择TabStrip，进入TabStrip属性窗口并选择通用标签，在图象列表框里选择ImageList1；

　　6）选择选项卡标签，单击紧挨索引框的向左或向右箭头以选择一个Tab序号。

在图象框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形，单击确定按钮完成。

4．在TabStrip上放置其它控件

  　在窗体上象添加普通控件一样，把每一页需要的控件添上，控件不止一个时，应该用Frame来分组，注意：

除了默认的第一页上的Frame控件外，其他所有Frame的Visible属性都应该设为假。

5．设计代码

   在用户选择了标签后，TabStrip要求编写代码来显示或隐藏控件。

可用类似下面的代码来识别用户在哪一个项目上单击。

　　PrivateSubTabStrip1_Click（）

　　　　SelectCaseTabStrip1.SelectedItem.key

　　　　　　　Case1

　　　　　　　　　　　<选第一项时需要执行的代码>

　　　　　　　Case2

　　　　　　　　　　　<选第一项时需要执行的代码>

　　　　　　　　　　　……

　　　　EndSelect

　EndSub

　　例：

PrivateSubTabStrip1_Click（）

　　　　　　　SelectCaseTabStrip1.SelectedItem.Key

　　　　　　　　　　　Case"statubar"

　　　　　　　　　　　　　　　　　　Frame2.Visible=False

　　　　　　　　　　　　　　　　　　Frame1.Visible=True

　　　　　　　　　　　Case"toolbar"

　　　　　　　　　　　　　　　　　　Frame1.Visible=False

　　　　　　　　　　　　　　　　　　Frame2.Visible=True

　　　　　　　EndSelect

　　　　EndSub

8.2   状态栏（StatusBar）和工具栏（ToolBar）

1．状态栏的作用与组成

　　StatusBar控件由Panel（窗格）对象组成，最多能被分成16个Panel对象，每一个Panel对象能包含文本和/或图片。

控制个别窗格的外观属性包括Width、Alignment（文本和图片的）和Bevel（斜面）。

此外，能使用Style属性七个值中的一个自动地显示公共数据，诸如日期、时间和键盘状态等。

2．创建状态栏

　　先在窗体上画出一个StatusBar对象，再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口，进行下面的设置：

（1）选择窗格形状

 　　在属性窗口里选择通用标签，在样式列表框里选择多窗格（缺省形式）或单窗格简单文本形式。

（2）添加或删除状态栏窗格

  　　在属性窗口里选择窗格标签，单击插入窗格按钮添加一个窗格，或单击删除窗格按钮删除一个窗格。

　（3）在单窗格里显示文本

   　　在属性窗口里选择通用标签，在简单文本框里输入想显示在状态栏窗格里的文本。

用代码显示的方式是：

 　　StatusBar1.SimpleText="要显示的内容"

　（4）在多窗格里显示文本或图形

　　　1）.在属性窗口里选择窗格标签，用索引旁的按钮选择窗格序号。

　　　2）.在文本框里输入想显示在状态栏窗格里的文本。

用代码显示的方式是：

StatusBar1.Panels（x）.Text="要显示的内容"

　　　3）.如果想加入图形，单击浏览按钮打开一个图形选择对话框，选择想加入的图形，然后单击打开按钮。

　（5） 编写代码

　　　如果是一个单窗格状态栏，当用户单击状态栏时，只需用下面的事件过程来响应：

　　　PrivateSubStatusBar1_Click（）

　　　　　　　<要执行的代码>

　　　EndSub

  　　如果是一个多窗格状态栏，就需要鉴别用户单击的是哪一个窗格，可用下面的事件过程来识别用户所单击的窗格：

　　　PrivateSubStatusBar1_PanelClick（ByValPanelAsPanel）

　　　　　SelectCasePanel.Index

　　　　　　　　　Case1

　　　　　　　　　　　　　　　<要执行的代码>

　　　　　　　　　Case2

　　　　　　　　　　　　　　　　<要执行的代码>

　　　　　　　　　　……

　　　　　EndSelect

　　　EndSub

3．创建工具栏

（1）.建立工具栏

　　　1）在工具箱里单击工具栏图标，拖到窗体的任何位置，VisualBasic自动将ToolBar移到顶部。

再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口；

　　　2）选择按钮标签，单击插入按钮，VisualBasic就会在工具栏上显示一个空按钮，重复此步插入多个按钮；

　　　3）单击确定按钮。

如果想把按钮分组，首先插入一个分隔的按钮，再在对话框里将这个按钮的样式属性改为3-Separator。

（2）为工具栏增加图画

　　　1）.在VisualBasic工具箱里单击ImageList图标，并将它拖到窗体的任何位置（位置不重要，因为它总是不可见的），再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口；

　　　2）.选择图象标签，单击插入图片，在选定图形对话框里选择想使用的位图或图标，然后单击打开按钮。

为每个想添加图形的工具栏按钮重复此步。

　　　3）.单击确定按钮。

　　　4）.进入ToolBar属性对话框，选择通用标签，在图象列表框里选择刚才添加的ImageList控件。

　　　5）.选择按钮标签，单击紧挨Index框的向左或向右箭头以选择一个按钮序号。

出现在工具栏最左边的按钮序号为1。

　　　6）.在Image框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形。

　　　7）.为每个按钮重复第6步，单击确定按钮，现在VisualBasic就会在工具栏上显示精美的图形了。

　（3）为工具栏添加文本信息

   　　在ToolBar属性对话框中选择按钮标签，在标题框里输入想显示在按钮上的文本。

　（4）添加ToolTips

   　　　ToolTips是一种当点到工具按钮时弹出的小标签。

ToolTips很方便，可以告诉那些新手每个按钮是干什么用的。

在ToolBar属性对话框中选择按钮标签，在工具提示文本框里输入想作为ToolTip的文本。

　（5）编写代码

   　　  双击工具栏，以下面的格式输入代码就可以了：

          PrivateSubToolbar1_ButtonClick（ByValButtonAsButton）

　　　　　　　SelectCaseButton.Index

　　　　　　　　　　　Case1

　　　　　　　　　　　　　　　　<要执行的代码>

　　　　　　　　　　　Case2

　　　　　　　　　　　　　　　　<要执行的代码>

　　　　　　　　　　　　　……

　　　　　　　EndSelect

　　　EndSub

8.3   进程条（ProgressBar）和滑块（Slider）

1.进程条

  作用：

进程条控件用于监视操作完成的进度。

  创建：

在窗体上画出进程条控件，右击，选择属性，然后进行所需的外观设置。

  主要属性：

ProgressBar控件有一个行程和一个当前位置。

行程代表该操作的整个持续时间。

当前位置则代表应用程序在完成该操作过程时的进度。

Max和Min属性设置了行程的界限。

Value属性则指明了在行程范围内的当前位置。

（1） Min属性代表进程条全空时的值，缺省时为0。

（2） Max属性代表进程条全空时的值，缺省时为100。

　　（3） Value属性代表进程条当前的值（但不出现在属性窗口中），它大于Min属性，小于Max属性。

改变Value属性的值将改变进程条的进度显示。

  　示例：

　　　　PrivateSubCommand1_Click（）

　　　　　　If ProgressBar1.Value

　　　　　　　　　ProgressBar1.Value=ProgressBar1.Value+5

　　　　　　Else

　　　　　　　　　ProgressBar1.Visible=False   ‘当进程条满了的时候让进程条消失

　　　　　　EndIf

　　　　EndSub

2．滑块

     Slider控件是包含滑块和可选择性刻度标记的窗口，在窗体上画出滑块控件，右击，选择属性，然后进行下列设置：

（1）选择滑块的外观

　　1）方向属性决定滑块的方位，可以是垂直的或水平的滑块。

　　2）滑块样式属性决定滑块标记的样子。

　　3）滑块频率属性规定了沿着滑块的标记的间隔大小，缺省的状态是1，表明每个可能值都出现标记，如果把值设置为3，则每三个可能值出现一个标记。

（2）滑块的主要属性及事件

  　1）Min，Max属性

   　　Min属性决定滑块最左端或最顶端所代表的值。

Max属性决定滑块最右端或最下端所代表的值。

　　2）LargeChange,SmallChange属性

  　　SmallChange决定在滑块两端的箭头钮上单击时改变的值。

LargeChange决定在滑块上方或下方区域单击时改变的值。

　　3）Value属性

 　　　Value属性代表当前滑块所处位置的值，这个值由滑块的相对位置决定。

　　4）Change事件

  　　　当滑块位置发生变化时就引发了Change事件。

8．4       排列显示（ListView）控件和分层显示（TreeView）控件

1．ListView控件

　　象“资源管理器”的右侧一样，可使用四种不同视图显示项目。

通过此控件，可将项目组成带有或不带有列标头的列，并显示伴随的图标和文本。

  　可使用ListView控件将称作ListItem对象的列表条目组织成下列四种不同的视图之一：

  　大（标准）图标  小图标  列表  报表

   　View属性决定在列表中控件使用何种视图显示项目。

还可用LabelWrap属性控制列表中与项目关联的标签是否可换行显示。

另外，还可管理列表中项目的排序方法和选定项目的外观。

　　　ListView控件包括ListItem和ColumnHeader对象。

ListItem对象定义ListView控件中项目的各种特性，如：

项目的简要描述、由ImageList控件提供的与项目一起出现的图标、附加的文本片段，称作子项目，它们与显示在报表视图中的ListItem对象关联。

   　可以使用HideColumnHeaders属性决定是否在ListView控件中显示列标头。

列标头可以在设计时添加，也可以在运行时添加。

设计时，使用ListView“控件属性”对话框的“列首”选项卡添加列标头。

运行时，使用Add方法添加ColumnHeader对象到ColumnHeaders集合中。

2．TreeView控件

   　该控件象“资源管理器”的左侧一样，用于显示结点（Node）对象的分层列表，每个Node对象均由一个标签和一个可选的位图组成。

TreeView一般用于显示文档标题、索引入口、磁盘上的文件和目录、或能被有效地分层显示的其它种类信息。

   　创建了TreeView控件之后，可以通过设置属性与调用方法对各Node对象进行操作，这些操作包括添加、删除、对齐和其它操作。

可以编程展开与折回Node对象来显示或隐藏所有子节点。

   　TreeView控件使用由ImageList属性指定的ImageList控件，来存储显示于Node对象的位图和图标。

任何时刻，TreeView控件只能使用一个ImageList。

这意味着，当TreeView控件的Style属性被设置成显示图像的样式时，TreeView控件中每一项的旁边都有一个同样大小的图像。

8．5       多媒体控件

1． 多媒体控件

   MultimediaMCI控件管理媒体控制接口（MCI）设备上的多媒体文件的记录与回放。

从概念上说，这种控件就是一组按钮，它被用来向诸如声卡、MIDI序列发生器、CD-ROM驱动器、视频CD播放器和视频磁带记录器及播放器等设备发出MCI命令。

MCI控件还支持Windows（*.avi）视频文件的回放。

      在允许用户从MultimediaMCI控件选取按钮之前，应用程序必须先将MCI设备打开，并在MultimediaMCI控件上启用适当的按钮。

在VisualBasic中，应将MCIOpen命令放到Form_Load事件中。

2．媒体播放器控件

　　可以播放各种多媒体文件，主要属性有：

（1）filename（待播放的文件名），可以在属性窗口中设置，也可以用代码实现。

（2）AutoStart（是否自动播放），默认是True。

　（3）AutoRewind（是否自动循环），默认是False。

　（4）PlayCount（文件播放遍数），默认是1。

8．6       图象列表（ImageList）和图象组合框（ImageCombo）

1．图象列表

   ImageList控件是包含ListImage对象的集合，该集合中的每个对象都可以通过其索引或关键字被引用。

ImageList控件不能独立使用，只是作为一个便于向其它控件提供图象的资料中心。

　　ImageList控件的作用象图像的储藏室，同时，它需要第二个控件显示所储存的图像。

第二个控件可以是任何能显示图像Picture对象的控件，也可以是特别设计的、用于绑定ImageList控件的Windows通用控件之一。

这些控件包括ListView、ToolBar、TabStrip、Header、ImageCombo、和TreeView控件。

为了与这些控件一同使用ImageList，必须通过一个适当的属性将特定的ImageList控件绑定到第二个控件。

对于ListView控件，必须设置其Icons和SmallIcons属性为ImageList控件。

对于TreeView、TabStrip、ImageCombo、和Toolbar控件，必须设置ImageList属性为ImageList控件。

　　一旦ImageList与某个Windows通用控件相关联，就可以在过程中用Index属性或Key属性的值来引用ListImage对象。

　　当与Windows通用控件一起使用ImageList控件时，在将它绑定到第二个控件之前，按照希望的顺序将全部需要的图像插入到ImageList。

一旦ImageList被绑定到第二个控件，就不能再删除图像了，并且也不能将图像插入到ListImages集合中间。

但是可以在集合的末尾添加图像。

2．图象组合框

     ImageCombo控件是标准Windows组合框的允许绘图版本。

控件列表部分中的每一项都可以有一幅指定的图片。

它可以显示一个包含图片的项目列表，每一项可以有自己的图片，也可以对多个列表项使用相同的图片。

   　除了支持图片之外，ImageCombo还提供了一个对象和基于集合的列表控件。

控件列表部分的每一项是一个不同的ComboItem对象，而且列表中的所有项组合起来构成ComboItems集合。

这就使它容易一项一项地指定诸如标记文本、ToolTip文本、关键字值以及缩进等级等属性。

8．7       通用对话框控件

   　Windows应用程序里的Open对话框，SaveAs对话框在各个应用程序里看起来都是一样的，通用对话框控件就可以提供这些对话框的标准功能。

1．Open对话框及SaveAs对话框

　　打开Open对话框使用ShowOpen方法，打开SaveAs对话框使用ShowSave方法。

　　PrivateSubmnuOpen_Click（）

　　　　　OnErrorGoToErrorHandler

　　　　　CommonDialog1.CancelError=True

　　　　　CommonDialog1.Filter="TextFiles（*.txt）|*.txt|BatchFiles（*.bat）|*.bat|AllFiles（*.*）|*.*"

　　　　　CommonDialog1.ShowOpen             '显示打开对话框

　　　　　CallOpenFile（CommonDialog1.FileName）

　　　　　ErrorHandler:

　　ExitSub

　　EndSub

     其中第三行决定了在文件格式类型栏里出现的文件类型。

第五行需要一个自己的打开文件的过程，这个过程需要的参数就是通用对话框返回的文件名。

通用对话框的CancelError属性设为True的话，用户单击Cancel按钮将产生一个错误信息程序，凭借这个信息程序可以检测到用户的放弃操作。

2．Color对话框

   下面的过程可用用户选择的颜色作为窗体的底色。

　　PrivateSubmnuColor_Click（）

　　　　　　OnErrorGoToCancelButton

　　　　　　　CommonDialog1.CancelError=True

　　　　　　　CommonDialog1.ShowColor

　　　　　　Form1.BackColor=CommonDialog1.Color

　　　　　　CancelButton:

　　　　ExitSub

　EndSub

3．Fonts对话框

  下面的过程可用字体对话框改变文本框的字体:

　　PrivateSubmnuFonts_Click（）

　　　　　OnErrorGoToCancelButton

　　　　　CommonDialog1.CancelError=True

　　　　　CommonDialog1.Flags=cdlCFBoth'FlagspropertymustbesettocdlCFBoth

　　　　　CommonDialog1.ShowFont'DisplayFontcommondialogbox.

　　　　　　　Text1.FontName=CommonDialog1.FontName

　　　　　　　Text1.FontSize=CommonDialog1.FontSize

　　　　　　　Text1.FontBold=CommonDialog1.FontBold

　　　　　　　Text1.FontItalic=CommonDialog1.FontItalic

　　　　　　　Text1.FontUnderline=CommonDialog1.FontUnderline

　　　　　　　Text1.FontStrikethru=CommonDialog1.FontStrikethru

　　　　　　　Text1.ForeColor=CommonDialog1.Color

　　　　　　　CancelButton:

　　　　　ExitSub

　　EndSub

  　代码的第三行出现了通用对话框的Flags属性决定了通用对话框的一些可选项，不过即使不赋值给Flags，代码也一样会按缺省的情况去执行的。