VB中ActiveX控件的使用
vb中adodc的用法
vb中adodc的用法ADODC（ActiveX Data Object Data Control）是Visual Basic中的一个组件，用于连接数据库并进行数据操作的控件。
它提供了一种方便的方式来执行数据库查询、插入、更新和删除操作。
以下是ADODC的一些常见用法：1. 连接数据库：ADODC控件可以连接多种类型的数据库，如Microsoft Access、SQL Server 等。
在控件的ConnectionString属性中设置数据库的连接字符串，然后通过Connect方法连接数据库。
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb"Adodc1.Connect2. 执行查询：使用ADODC控件可以执行数据库查询，将结果显示在控件绑定的数据表格或其他控件中。
Adodc1.RecordSource = "SELECT * FROM mytable" Adodc1.Refresh3. 插入数据：使用ADODC控件可以方便地向数据库中插入新的记录。
Adodc1.Recordset.AddNewAdodc1.Recordset("field1") = "value1"Adodc1.Recordset("field2") = "value2"Adodc1.Recordset.Update4. 更新数据：使用ADODC控件可以更新数据库中的记录。
Adodc1.Recordset.FindFirst "id = 1"Adodc1.Recordset("field1") = "new value"Adodc1.Recordset.Update5. 删除数据：使用ADODC控件可以删除数据库中的记录。
VB教程中的ActiveX控件
设置或返回对话框中选定的包括目录的文件名
FileTitle属性：
设置或返回对话框中选定的不包括目录的文件名
Filter属性：
设置或返回对话框中显示文件的过滤器，格式为： 类型描述|类型通配符 例：文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc
FilterIndex属性：
当用Filter设置多组过滤器时，指定第几组为默认过滤器
InitDir属性：
设置对话框中初始文件目录，默认为当前目录
Flags属性：
见P179表9-2
DefaultExt属性：
适合“另存为”对话框，没有指定扩展名时的默认扩展名
例：
Private Sub Command1_Click()
On Error Resume Next CommonDialog1.ShowOpen或 CommonDialog1.action=1 If Err.Number <> 32755 Then Image1.Picture = LoadPicture(CommonDialog1.FileName) Private Sub Command2_Click() Image1.Picture = Nothing End Sub Private Sub Command3_Click() Unload Me End Sub End If End Sub
9.3 多媒体控件
一、MMcontrol控件
“部件”对话框中选择“Microsoft MultiMedia Controls6.0"
Filename属性：播放文件名
Command属性：Open、Play、Stop等
二、Animation控件
vb开发ocx实例 -回复
vb开发ocx实例-回复VB开发OCX实例在这篇文章中，我将会讲解如何使用VB开发一个OCX控件的实例。
通过这个实例，您将会了解到如何创建一个OCX控件，并将其集成到现有的应用程序中。
让我们来逐步进行操作。
第一步：创建一个VB项目首先，在您的开发环境中创建一个新的VB项目。
打开VB开发工具，选择"新建项目"。
在弹出的对话框中，选择"Windows Forms 应用程序"，输入项目名称，并选择一个存储位置。
第二步：添加一个ActiveX控件在VB项目中，右键单击项目名称，选择"新增项"。
在弹出的对话框中，选择"ActiveX 控件"，并填写控件的名称。
接下来，单击"添加"按钮，将控件添加到您的项目中。
第三步：设置控件属性在VB项目中，打开您所创建的控件。
在解决方案资源管理器中，找到您的控件文件，右键单击并选择"属性"。
在属性窗口中，您可以设置控件的各种属性，如名称、版本、描述等。
根据您的项目要求进行相应的设置。
第四步：设计控件界面在VB项目中，打开您的控件文件。
在控件设计器中，您可以设计控件的用户界面。
您可以添加按钮、文本框、标签等控件，并设置它们的属性和事件处理程序。
这将为用户提供一个可交互的界面。
第五步：编写控件代码在VB项目中，打开您的控件文件。
在代码编辑器中，您可以编写控件的代码逻辑。
使用VB语言，您可以定义属性、方法和事件，以实现控件的功能。
您还可以调用其他库或组件，以增加控件的功能性。
第六步：编译控件在VB项目中，选择"生成"->"生成解决方案"，以编译您的控件项目。
如果编译成功，将会生成一个OCX文件，该文件包含了您所创建的控件。
第七步：在应用程序中使用控件现在，您已经成功地创建了一个OCX控件。
接下来，您可以将该控件集成到现有的应用程序中。
vb ScriptControl 使用方法
2、 脚本调用宿主：在初始化过程中调用AddObject接口，将宿主的一个或多个对象暴露给脚本，这时就可以在脚本中调用宿主对象的方法。在VC++中这个对象不是普通的C++类，它必须支持自动化，在脚本中也只能调用对象中自动化接口（在VB中这个个程相对比较简单）。
脚本调试
任何人写的代码都不可能一次就很完美，但是脚本由于执行的位置特殊，调试方法也不一样。首先下载一个脚本调试器（我用的是Microsoft Script Debugger, 在MS网站有下载，另据说其它的如VJ＋＋也可以），安装以后在菜单上没有启动菜单。
Error Error 错误对象，发生错误时，此属性返回一个错误对象
方法名称 参数 功能
AddCode Code As String 往脚本引擎中加入要执行的脚本
AddObject Name As String, Oan = False]
很显然要自己去实现一个脚本解释器是不现实的。好在已经有了可以复用的组件，那就是Microsoft ScriptControl。这是一个ActiveX控件，随Windows2000一起发布，如果要在2000以前的Windows中使用则需要安装该控件（可以到MS的网站上找到）。
ScriptControl接口
Language String 设置或获取脚本引擎解释的语言，例如：VBScript、JScript。
Name String 脚本引擎的名称。只读。
Procedures Procedures 返回模块中定义的过程的集合
SitehWnd HWND 在脚本中显示UI的父窗口句柄
属性名称 类型 备注
AllowUI BOOL 检测是否允许运行用户的接口元素。如果为False，则诸如消息框之类的界面元素不可见。
vb开发ocx实例
vb开发ocx实例【最新版】目录1.什么是 OCX？2.VB 开发 OCX 实例的过程3.OCX 控件的使用方法4.总结正文一、什么是 OCX？OCX（Object Control Extension）是一种可重用的软件组件，它是由 Microsoft 开发的一种 COM（Component Object Model）控件技术。
OCX 控件可以在不同的编程语言和平台之间进行互操作，这使得开发人员可以更轻松地创建具有丰富功能的应用程序。
二、VB 开发 OCX 实例的过程1.创建一个新的 ActiveX 控件库项目首先，在 Visual Basic 中创建一个新的 ActiveX 控件库项目。
这可以通过选择“新建”>“ActiveX 控件库”来实现。
2.设计 OCX 控件接下来，设计 OCX 控件。
这包括为控件添加属性、方法和事件。
例如，可以添加一个名为“HelloWorld”的按钮，当单击该按钮时，会触发一个名为“OnButtonClick”的事件，并显示一条消息框。
3.编译和测试 OCX 控件完成控件设计后，编译并测试 OCX 控件。
这可以通过选择“编译”来实现。
如果编译成功，将生成一个名为“YourControl.ocx”的文件。
4.在 VB 应用程序中使用 OCX 控件现在，可以将 OCX 控件添加到 VB 应用程序中。
首先，将生成的“YourControl.ocx”文件复制到应用程序项目的“Controls”文件夹中。
然后，在 Visual Basic 中引用该控件，并在窗体上添加一个实例。
三、OCX 控件的使用方法1.引用 OCX 控件在 VB 代码中引用 OCX 控件，需要使用“Imports”语句。
例如，要引用上面创建的“YourControl.ocx”控件，可以添加以下代码：```Imports YourControl```2.创建 OCX 控件实例在 VB 代码中创建 OCX 控件实例，需要使用“CreateObject”函数。
VB中常用高级控件
第三章VB中常用高级控件第三章VB中常用高级控件在本章中，读者将会接触到多种VB中的高级ActiveX控件，这些控件，是进行VB较高级编程的重要基础，本章将以简洁的说明和丰富的实例使读者很快的掌握这些控件的使用方法。
本章重点：z熟悉普通控件的使用z了解一些专用控件z熟悉INET控件的使用3.1 普通应用控件所谓的普通应用控件，不是这些控件很普通，而是这些控件可以在许多地方使用，并没有专门的用途，编程者可以根据需要随时使用它们。
3.1.1 ListView控件ListView控件控件与普通控件中的列表框控件很类似，但它提供更多的显示项目的视图。
通过此控件，可以轻松的将项目分成几列，并显示伴随的图标和文本。
基本属性：¾ColumnHeaders 属性该属性用于对 ColumnHeader 对象集合的引用。
ColumnHeader 对象是 ListView 控件中包含标头文字的项目。
ColumnHeader 对象的数目决定每个 ListItem 对象可包含的子项目数目。
删除 ColumnHeader 对象后所有与列关联的子项目也将被删除，并且每个 ListItem 对象的子项目数组将平移以更新 ColumnHeader 的索引，而这将导致剩余的列标头 SubItemIndex 属性的改变。
了解ColumnHeader 对象对学习ListView控件具有重要意义。
下面我们中断一下，先介绍这个对象。
我们将来还要遇到几种类似的情况，就是在一个控件使用过程中，最重要的并不是这个控件本身的属性和方法，而是它所包含对象的属性和方法，这时我们就会转而介绍对象的用法，然后再返回介绍控件本身。
z ColumnHeader对象的基本属性：ColumnHeader对象有count、icon、index、item、key、text等属性。
分别表示如下含义：count：返回集合中ColumnHeader对象的数目icon：返回或者设置被对象显示的图标。
利用VB开发具有与PLC通信功能的ActiveX控件
ｏ ｅ ｅ ｃａｇ ｒｔｎ ． ｏ ｔ ｌ ｎ ｉｅ ｒｃｉ ，９ ４ ２ ４ ： ４ ～６ ８ ｎ ｇ ｎ ｔ ｌ ｉｕ ｓ Ｃ ｎ ｇ Ｐ ａ ｔ ｅ １ ９ ， （ ） ６ １ ４ ｉ ｏｔ ｏ ｒ Ｅ ｎ ｃ
维普资讯
《 自动 化仪 表＞ ２ 第 ３卷 第 １ ０期
２０ ０ ２年 １ ０月
得 一 提 的 是 ， 用 遗 传 算 法 建 模 与 优 化 ＰＤ 参 数 需 要 使 Ｉ
一
Ｚ Ｎ：原 控 制 对 象 （ 际 系 统 ） Ｚ 法 设 计 的 Ｐ Ｄ 实 在 Ｎ Ｉ
／２ （ Ｓ＋
例 ２ 控制对象为 Ｇ（ ｎ Ｓ）＝ｅ ０ｓ／ Ｓ＋１ ！ 由 丁 －． （ ｓ ）， 环 境 的 变 化 ， 制 对 象 由 Ｇ （ 变 为 １ ４ 刈 ／ ３ 控 ｎ Ｓ） ．ｅ （ Ｓ＋
１ ： ）
ｇ ｎ ｏ ｔ ｌ Ａｒｉｇ ｏ ｒ ｉｉ ， ９ ８． ９ ｅ ｔＣ ｎ ｒ ｌ ｎ ｔｎ Ｖｉ ｎ ａ １ ８ ５ ７～６ ２ ｏ ｇ ０
４ Ｍ ａ ｌｖ Ｄ ａ ｒ ｙ Ｒ Ａｐ ｌｉ ｇ ｇ ｎ ｔ ｅ ｒ ｈ ｔ ｃｍ ｉｕ￣ ｔ ｒ ｅ ｔ ｉ ｃａ ｎｄ Ｄｏ ｅ ｐ ｙｎ ｅ ｅｉ ｓ ａ ｃ ｅ ｌ ｑ ｃ ｏ ｄ ｉ ｒ ｎ ｖ ａ
ｍｏ ｎ ｎ ｄｅ ｉ ｇ Ⅱ Ｅ Ｃ ｎｒ ｌＳ ｓ ｅ Ｍａ １ ９ ３： ０～５ 也 ｏ ｔ ｙ ｔｍ ｇ． ９ ３， ５ ｏ ５
４ 结 束 语
从 上面 列 举 的 仿 真 进 化 及 响 应 曲 线 可 以 看 出 ．
５ Ｐ ｒ ｒ Ｂ ａ ｄ Ｊ ｎ ｓ ＡＨ， Ｇ ｎ ｔ ｕ ｉ ｇ ｏ ｉｉ ｌ ＰＩ ｃ ｎ ｌｅ ｓ Ｅ ｅ ｏｔ ｎ ｏ ｅ ｅ ｅ ｅｉ ｔｎ ｎ ｆｄ ｇｔ Ｄ ｏ ｍ） ｒ ｌｖ— ｃ ａ ｌ
VB程序设计第10章 ActiveX控件简介
Logo
12．工具栏上的按钮如打开，保存和打印等，其相应的图 标在何处可以得到？ 答：可以在VB的Graphics\BITMAPS\TLBR_W95目录下找 到工具按钮位图。
13．如何知道点击TreeView的+号所选中的目录 答：这种情况应该在Expand事件中获得节点。在TreeView 控件中的Node对象扩展开时， 也就是它的子节点变成可 视时，这个事件便发生。Expand事件发生在Click和 DblClick事 件之后。语法是： Private Sub object_Expand(ByVal node As Node) 其中参数node是所需要要获得的节点。
Company Logo
Logo
7．如何在StatusBar控件中增加一个变量并将该 变量值显示在状态栏里？ 答：将StatusBar的Style属性为sbrSimple，即： StatusBar1.SimpleText =cy （其中cy为变量名）。 如果Style属性为sbrNormal，可以这样： Set pnlX = StatusBar1.Panels.Add pnlX.Text =cy „改变面板对象的文本
答：可以使用下面的语句加入一个按钮，叫bold： Set btnX = Toolbar1.Buttons.Add(, "bold", , tbrCheck, "bold") 然后检查Toolbar1.Buttons("bold").Value的值， 如果该值为tbrUnpressed，表示按钮 没 有被按下， 如果为tbrPressed表示被按下。检查工作通常是 在toolbar1_ButtonClick事件中完成的 。
VB怎样动态加载ActiveX控件
VB怎样动态加载ActiveX控件熟悉VB的朋友对使用ActiveX控件一定不会陌生，众多控件极大地方便了编程，但唯一的缺陷是不能动态加载控件，必须在设计时通过引用，将控件放置在窗体上。
VB6.0已能够解决该问题，只是帮助中没有明确说明，并且没有描述到一些关键功能，由于以前的版本中可以动态创建进程外服务：如果对象是外部可创建的，可在Set 语句中用New 关键字、CreateObject 或GetObject 从部件外面将对象引用赋予变量。
如果对象是从属对象，则需使用高层对象的方法，在Set 语句中指定一个对象引用：Dim xlApp1 As Excel.ApplicationSet xlApp1 = New Excel.Application或Dim xlApp As Object '定义存放引用对象的变量。
Set xlApp = CreateObject("excel.application")xlApp.Visible = True这些语法很容易造成误导，以为动态加载ActiveX控件也是此方法，可能有朋友也象我一样利用CreateObject尝试了无数次，却无功而返，不知微软公司是出于何种考虑，动态加载ActiveX控件是扩展控件集合的方式实现，通过实际摸索，终于就如何实现动态ActiveX控件找出了一条切实可行的方法，下面以一个具体的实例来详细说明。
一、ActiveX控件ActiveX 控件是Visual Basic 工具箱的扩充部分。
使用ActiveX 控件的方法与使用其它标准内装的控件，如CheckBox 控件，完全一样。
在程序中加入ActiveX 控件后，它将成为开发和运行环境的一部分，并为应用程序提供新的功能。
ActiveX 部件通过客户端/服务器关系与应用程序—及与部件相互之间—交互作用。
客户端是使用部件功能的应用程序代码或部件。
服务器是部件及其关联的对象。
vb6.0 ActiveX控件
ADO Data 控件ADO Data 控件与内部Data 控件以及Remote Data控件(RDC) 相似。
ADO Data 控件使您能使用Microsoft ActiveX Data Objects (ADO) 快速地创建一个到数据库的连接。
说明在设计时，您可以通过首先将ConnectionString 属性设置为一个有效的连接字符串，然后将RecordSource属性设置为一个适合于数据库管理者的语句来创建一个连接。
您也可以将ConnectionString属性设置为定义连接的文件名。
该文件是由“数据链接”对话框产生的，当您单击“属性”窗口中的ConnectionString，然后单击“生成”或“选择”时，该对话框出现。
您可以通过将DataSource 属性设置为ADO Data 控件，把ADO Data 控件连接到一个数据绑定的控件，例如DataGrid、DataCombo、或DataList 控件。
在运行时，您可以动态地设置ConnectionString和RecordSource 属性来更改数据库。
或者，您可以将Recordset 属性直接设置为一个原先已经打开的记录集。
Animation 控件Animation 控件允许创建按钮，当单击它时即显示动画，如 .avi 文件。
该控件只能播放无声的 AVI 文件。
此外，动画控件只能显示未压缩的或已用行程编码(RLE) 压缩的 .avi 文件。
说明如果尝试加载含有声音数据或格式不为控件所支持的 .avi 文件，则返回错误（错误 35752）。
在 Windows 95 中，文件复制进度栏就是使用Animation 控件的一个实例。
在执行复制操作时，纸页从一个文件夹“飞”到另一个文件夹。
CommonDialog 控件CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。
通过运行 Windows 帮助引擎控件还能显示帮助。
第9章 VB控件的使用
9.1 9.2 9.3 9.4 9.5 9.6 9.7
vb程序设计基础 程序设计基础
VB中的控件 VB中的控件 控件的常用属性及默认属性 焦点和Tab Tab键顺序 焦点和Tab键顺序 控件数组 常用控件的使用 使用ActiveX ActiveX控件 使用ActiveX控件 控件应用举例
vb程序设计基础 程序设计基础
本书目录
9.5 常用控件的使用
9.5.1 命令按钮
用于程序运行时执行相应的事件 1. 属性 (1)Caption (1)Caption 命令按钮上显示的文字 (2)Default 设定该命令按钮是否为默认按钮, (2)Default 设定该命令按钮是否为默认按钮 , 其值为 True时 Enter键相当于用鼠标点击了该按钮 键相当于用鼠标点击了该按钮。 True时，按Enter键相当于用鼠标点击了该按钮。 (3)Cancel (3)Cancel 设定该命令按钮是否为Cancel按钮，其值 设定该命令按钮是否为Cancel按钮， Cancel按钮 True时 ESC键相当于用鼠标点击了该按钮 键相当于用鼠标点击了该按钮。 为True时，按ESC键相当于用鼠标点击了该按钮。 注：在一个窗体上只能有一个命令按钮设为默认按钮和 Cancel按钮 按钮。 Cancel按钮。
vb程序设计基础 程序设计基础
本书目录
(5)Style 按钮样式 (5)Style Standard：默认， 0 —— Standard：默认，按钮上不能显示图形 Graphical： 1 —— Graphical：按钮上可以显示图形和文字 (6) Picture 在按钮装入图形 (7) ToolTipText 加以文字提示 命令按钮一般接收Click Click事件 2. 事件 命令按钮一般接收Click事件
用VB做ActiveX控件
用VB做ActiveX控件用VB做ActiveX控件我们都知道在使用Visual Basic的时候可以使用很多现有的控件，像VB中的基本控件。
然而，只有这些基本的控件在很多的时候都不能满足我们的实际需要，因此还需要更多的能够实现其他特有功能的控件。
我们可以看到，在VB的部件中包含了大量的控件。
这些控件包含在VB中自带的ActiveX控件库中。
这些控件大大补充了VB的功能，其实可以这么说，在VB中谁掌握了对控件的使用，谁将更成功的运用VB写出功能强大的程序。
在VB中不但可以使用现有的ActiveX控件，更叫人兴奋的是可以利用VB创建自己的ActiveX控件。
下面我们一起讨论一下关于VB中创建ActiveX控件的基本知识。
ActiveX是Microsoft的术语，他是一组包括控件、DLL和ActiveX文档的组件，他通常是以动态连接库形势存在，因此必须在一个叫容器的可独立执行的软件中运行，比如VisualBasic，VisualC++，Internet Explorer等。
因此ActiveX控件和容器必须都支持一些特定的接口协议。
ActiveX应包括属性，事件和方法这些特殊机制，他也是创建ActiveX控件的核心。
在这个制作步骤中我们看到要利用一个VB中的UserControl对象，他是创建ActiveX控件的基础。
我先简单介绍一下UserControl 对象的基本知识吧。
VB创建的ActiveX控件包括UserControl控件和构成ActiveX控件的基本控件，称为构成控件。
这些基本控件实际上就是像CommandButton和Label控件等。
UserControl对象的设计界面和标准工程的Form设计界面没有什么差别。
我们可以直接在UserControl对象上面设计控件的外观，将代码添加在Code页面中，一切都是那么的熟悉。
UserControl以普通的文本文件格式存储，该文件包含UserControl以及他的构成控件源代码和属性值。
用VB制作ActiveX控件
# 10 #
第 22 卷( 总第 95 期 ) 第 3 期 2001 年 6 月 按确定按钮进入代码窗口 : Public Sub change( c_st a As int eger) Select Case c_st a ∀ 参数正常时, 信号灯为绿色, X 不可见 Case 0 Shape1 F illColor = 32896 Line1 Visible = False Line2 Visible = False
1 新建一个 VB 工程
新建一个项目, 选择 Act ive X 控件 类型。 将属性窗口中的 名称 属性 UserControl1 改为 Flash 。
2 添加控件
用 Shape 控件来表示信号灯, 用两个交叉的 Line 控件表示闪烁的 X 。 在工具箱中选择 Shape 控件, 属性按以下赋 值: 名称 : Shape1, BackStyle: 0 ! ! ! T ransparent BorderStyle: 0 ! ! ! T ransparent F illStyle: 0 ! ! ! Solid Shape 属性改为 3 ! ! ! Circle 在工具箱中选择两个 Line 控件 , 属性按以下 赋值 : 名称 : L ine1, L ine2 此时 L ine 控件的位置并不重要, 在 UserCon t rol_Resize 过程中要调整控件的位置。
部件在控件窗口中出现myocx控件选中并按确定按钮工具箱上会出现用户控件的图标鼠标在上面移动会出现控件的名称flash将此控件放在窗体form1上再添加一个计时器控件interval属性值改为1000并添加以下代码
VB常用控件
3、 Gfotocus/LostFocus事件
对象的焦点只有一个，一个对象得到焦点也就意味着其他对象
要失去焦点。按Tab键或单击对象时，会引起焦点的移动。 对象得到焦点时将引发GotFocus事件，而对象失去焦点时将引发
LostFocus事件。
4、ValiDate 事件 几乎所有的控件都具有ValiDate事件，ValiDate事件是在控件 的焦点转移到其他控间之前发生，也即它是在控件失去焦点之前发 生的，而LostFocus事件是在控件失去焦点之后发生的。因此， ValiDate事件更适合数据输入验证。 ValiDate事件应与控件的CausesValidation属性联合使用才能发挥作 用。
图像框（ImageBox） 图像框只能用于显示图形，没有图片框所拥有的其他功能， 因此，图像框比图片框显示速度快，占用内存少。 属性 （1）Picture属性 和图像框的Picture属性相同 （2）Stretch属性 指定是否缩放图形来适应控件大小，属性值为True或False。 True：缩放图形来适应控件大小。此值可能会使显示的图 形变形 失真。 False：缩放控件来适应图形的大小，此值为缺省值。
4.4 列表框和组合框
列表框（ListBox）通过显示多个选项，供用户选择。其最主要的 特点是只能从其中选择，而不能直接修改其中的内容。 组合框（ComboBox）是组合了文本框和列表框的特性而形成的一 种控件。组合框在列表框中列出可供用户选择的选项，当用户选定某项 后，该项内容自动装入文本框中。当列表框中没有所需选项时，除了下 拉式列表框（Style属性为2）之外都允许在文本框中用键盘输入，但输 人的内容不能自动添加到列表框中。有三种不同风格的组合框：下拉式 组合框、简单组合框和下拉式列表框，它们的Style属性分别为0、1和2。 一、列表框和组合框共有的重要属性 1. List 属性 该属性是一个字符型数组，存放列表框或组合框的选项。List数组 的下标是从0开始的，即第一个项目的下标是0。List属性既可以在设计 状态设置，也可以在程序中设置或引用。
VB控件教程大全(详细)
第三章
VB 6.0的常用控件
当文本框失去了焦点（处于非活动状态）时就会产生LostFocus事件
3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选 框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件 （4）SetFocus方法 SetFocus方法可以用于将焦点移动到指定的对象,是文本框较常用的. 格式： [对象.]SetFocus 3.1.3 应用举例 例3.1： 利用LostFocus事件 改变文本框中的内容。 在 窗 体 form1上 建 立 两 个 文 本框分别是Text1、Text2， 下 面 在 form1 的 load 事 件 过 程中作如下设置： 该方法可以把光标移到指定的文本框中 Private Sub Form_Load() Form1.Text1.Text="" Form1.Text2.Text="" Form1.Text1.Font="宋体" Form1.Text2.Font="宋体" Form1.Text1.FontSize=14 Form1.Text2.FontSize=14 Form1.Text1.BackColor=vbBlack Form1.Text1.ForeColor=vbWhite Form1.Text2.ForeColor=vbBlue Form1.Text2.BackColor=vbRed Form1.Show Form1.Text1.SetFocus End Sub
3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选 框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件 标签所具有的其它属性：
VB第九章 ActiveX控件
第9章 ActiveX控件的应用
2 在ToolBar控件中添加按钮
ToolBar工具栏可以建立多个按钮。每个按钮的图 像来自ImageList对象中插入的图像。 1.为工具栏连接图像 在窗体上添加ToolBar控件后，选中该控件，右击， 拉出快捷菜单，选择“属性”，打开“属性页”对话框， 选择“通用”标签。 ２为工具栏增加按钮。 选择”按钮”标签，打开该选项卡界面见教材单击 “插入按钮”，可以在工具栏增加按钮。
第9章 ActiveX控件的应用
9.1 ActiveX控件概述
使用ActiveX控件，要先将ActiveX控件添 加到工具箱，其后与内部控件使用方法一样， 同样也是要设计控件的属性、事件和方法，但 是ActiveX控件除在“属性”窗口定义相关的 属性外，还要通过ActiveX控件“属性页”窗 口定义其特有的属性。
注：对话框是输入输出界面，不能实现打开文件、存储文件、
设置颜色、字体打印等操作。如果想要实现这些功能还得靠 编程实现。
第9章 ActiveX控件的应用
“工程/部件 ” 添加方式：
Or 鼠标右键工具箱“ 部件 ”
Microsoft Common dialog Control 6.0
第9章 ActiveX控件的应用
第9章 ActiveX控件的应用
9.3 TagStrip控件
例 9-2 创建一个窗体，设计一个“滚动字幕” ，
程序的运行结果如图所示。
演示 程序
第9章 ActiveX控件的应用
9.4 TabStrip控件
第9章 ActiveX控件的应用
例 9-3 使用TabStrip控件创建如下所示的窗体。
演示 程序
第9章 ActiveX控件的应用
VB6.0动态加载ActiveX控件
熟悉VB的朋友对使用ActiveX控件一定不会陌生，众多控件极大地方便了编程，但唯一的缺陷是不能动态加载控件，必须在设计时通过引用，将控件放置在窗体上。
VB6.0已能够解决该问题，只是帮助中没有明确说明，并且没有描述到一些关键功能，由于以前的版本中可以动态创建进程外服务：如果对象是外部可创建的，可在Set 语句中用New 关键字、CreateObject 或GetObject 从部件外面将对象引用赋予变量。
如果对象是从属对象，则需使用高层对象的方法，在Set 语句中指定一个对象引用：Dim xlApp1 As Excel.ApplicationSet xlApp1 = New Excel.Application或Dim xlApp As Object '定义存放引用对象的变量。
Set xlApp = CreateObject("excel.application")xlApp.Visible = True这些语法很容易造成误导，以为动态加载ActiveX控件也是此方法，可能有朋友也象我一样利用CreateObject尝试了无数次，却无功而返，不知微软公司是出于何种考虑，动态加载ActiveX控件是扩展控件集合的方式实现，通过实际摸索，终于就如何实现动态ActiveX控件找出了一条切实可行的方法，下面以一个具体的实例来详细说明。
一、ActiveX控件ActiveX 控件是Visual Basic 工具箱的扩充部分。
使用ActiveX 控件的方法与使用其它标准内装的控件，如CheckBox 控件，完全一样。
在程序中加入ActiveX 控件后，它将成为开发和运行环境的一部分，并为应用程序提供新的功能。
ActiveX 部件通过客户端/服务器关系与应用程序—及与部件相互之间—交互作用。
客户端是使用部件功能的应用程序代码或部件。
服务器是部件及其关联的对象。
例如，假设应用程序使用ActiveX 控件来提供一个标准的雇员窗体，供公司的多种应用程序使用。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第八章VB中ActiveX控件的使用8．1 概述这里的ActiveX控件是指VB标准工具箱里没有的控件，用时需从“工程”菜单里选择“部件…”（或右键单击工具箱，从快捷菜单中选择“部件…”），从部件窗口里勾上需要的控件。
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要求编写代码来显示或隐藏控件。
可用类似下面的代码来识别用户在哪一个项目上单击。
Private Sub TabStrip1_Click()Select Case TabStrip1.SelectedItem.keyCase 1<选第一项时需要执行的代码>Case 2<选第一项时需要执行的代码>……End SelectEnd Sub例：Private Sub TabStrip1_Click()Select Case TabStrip1.SelectedItem.KeyCase "statubar"Frame2.Visible = FalseFrame1.Visible = TrueCase "toolbar"Frame1.Visible = FalseFrame2.Visible = TrueEnd SelectEnd Sub8.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) 编写代码如果是一个单窗格状态栏，当用户单击状态栏时，只需用下面的事件过程来响应：Private Sub StatusBar1_Click()<要执行的代码>End Sub如果是一个多窗格状态栏，就需要鉴别用户单击的是哪一个窗格，可用下面的事件过程来识别用户所单击的窗格：Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)Select Case Panel.IndexCase 1<要执行的代码>Case 2<要执行的代码>……End SelectEnd Sub3．创建工具栏（1）.建立工具栏1）在工具箱里单击工具栏图标，拖到窗体的任何位置，Visual Basic自动将ToolBar 移到顶部。
再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口；2）选择按钮标签，单击插入按钮，Visual Basic就会在工具栏上显示一个空按钮，重复此步插入多个按钮；3）单击确定按钮。
如果想把按钮分组，首先插入一个分隔的按钮，再在对话框里将这个按钮的样式属性改为3-Separator。
（2）为工具栏增加图画1). 在Visual Basic工具箱里单击ImageList图标，并将它拖到窗体的任何位置（位置不重要，因为它总是不可见的），再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口；2). 选择图象标签，单击插入图片，在选定图形对话框里选择想使用的位图或图标，然后单击打开按钮。
为每个想添加图形的工具栏按钮重复此步。
3). 单击确定按钮。
4). 进入ToolBar属性对话框，选择通用标签，在图象列表框里选择刚才添加的ImageList控件。
5). 选择按钮标签，单击紧挨Index框的向左或向右箭头以选择一个按钮序号。
出现在工具栏最左边的按钮序号为1。
6). 在Image框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形。
7). 为每个按钮重复第6步，单击确定按钮，现在Visual Basic就会在工具栏上显示精美的图形了。
（3）为工具栏添加文本信息在ToolBar属性对话框中选择按钮标签，在标题框里输入想显示在按钮上的文本。
（4）添加ToolTipsToolTips是一种当点到工具按钮时弹出的小标签。
ToolTips很方便，可以告诉那些新手每个按钮是干什么用的。
在ToolBar属性对话框中选择按钮标签，在工具提示文本框里输入想作为ToolTip的文本。
（5）编写代码双击工具栏，以下面的格式输入代码就可以了：Private Sub Toolbar1_ButtonClick(ByVal Button As Button)Select Case Button.IndexCase 1<要执行的代码>Case 2<要执行的代码>……End SelectEnd Sub8.3 进程条（ProgressBar）和滑块（Slider）1. 进程条作用：进程条控件用于监视操作完成的进度。
创建：在窗体上画出进程条控件，右击，选择属性，然后进行所需的外观设置。
主要属性：ProgressBar 控件有一个行程和一个当前位置。
行程代表该操作的整个持续时间。
当前位置则代表应用程序在完成该操作过程时的进度。
Max 和Min 属性设置了行程的界限。
Value 属性则指明了在行程范围内的当前位置。
(1) Min属性代表进程条全空时的值，缺省时为0。
(2) Max属性代表进程条全空时的值，缺省时为100。
(3) Value属性代表进程条当前的值（但不出现在属性窗口中），它大于Min属性，小于Max属性。
改变Value属性的值将改变进程条的进度显示。
示例：Private Sub Command1_Click()If ProgressBar1.Value < ProgressBar1.Max ThenProgressBar1.Value = ProgressBar1.Value + 5ElseProgressBar1.Visible = False ‘当进程条满了的时候让进程条消失End IfEnd Sub2．滑块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 对象。