VB控件1.docx

VB控件1.docx

《VB控件1.docx》由会员分享，可在线阅读，更多相关《VB控件1.docx（42页珍藏版）》请在冰豆网上搜索。

VB控件1

《VB6.0中通过MSChart控件调用数据库》

　　VB6.0中的MSChart控件是一个功能强大的高级图表工具，拥有丰富的图表绘制功能，可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。

近日我为了在双击图表的某个区域时将与该区域相对应的数据库的内容在DataGrid控件上显示出来，遇到了许多困难，最后用一个自定义的变量SelectSeries解决了问题，具体方法如下：

　　设数据库名称为“学生信息”，有一Access表“学生成绩”，其内容为一个班学生的考试成绩，包括学号、姓名、成绩3个字段，成绩字段格式是字符型，值为“优”、“良”、“中”、“差”中的一个。

　　窗体Form1包括一个MSChart控件McScore，类型为二维饼图，用于显示每种成绩的学生数；一个ADO控件AdScore用于连接数据库；一个DataGrid控件DgScore用于以表格形式显示数据库内容。

　　工作过程为：

双击饼图的某个区域，则DgScore显示相应成绩的学生名单。

　　代码如下：

　　OptionExplicit

　　DimSelectedSeriesasInteger′自定义变量

　　DimRs（）asString′提取记录集用的字符串数组

　　PrivateSubForm_Load（）

　　′设定DataGrid控件的数据源

　　DgScore.DataSource=″AdScore″

　　′设定ADO控件的连接字串和初始的记录源，即显示内容

　　AdScore.ConnectString=″Provider=Microsoft.OLEDB.3.51;Persist_SecurityInfo=False;DataSource=学生信息″

　　AdScore.RecordSource=″selet＊from学生成绩orderby成绩″

　　AdScore.Refresh

　　′预设好提取记录用的SQL语句

　　Rs

（1）=″select＊from学生成绩where成绩=″＋Chr（34）＋″优″＋_Chr（34）＋″orderby成绩″

Rs

（2）=″select＊from学生成绩where成绩=″＋Chr（34）＋″良″＋_Chr（34）＋″orderby成绩″

Rs（3）=″select＊from学生成绩where成绩=″＋Chr（34）＋″中″＋_Chr（34）＋″orderby成绩″

Rs（4）=″select＊from学生成绩where成绩=″＋Chr（34）＋″差″_Chr（34）＋″orderby成绩″

EndSub

　　PrivateSubMcScore_SeriesSelected（SeriesasInteger,MouseFlagsas_Integer,CancelasInteger）

SelectedSeries=Series

　　EndSub

　　PrivateSubMcScore_PointSelected（SeriesasInteger,DataPointas_Integer,MouseFlagsas

Integer,CancelasInteger）

　　SelectedSeries=Series

《用VB6实现动态增减控件》

用过InternetExplorer收藏夹的朋友都知道，利用鼠标单击时收藏夹会出现，再次单击则收藏夹消失。

从编程角度讲，这是个在程序运行阶段动态增减控件的问题。

以前，这仅仅是C＋＋之类编程语言的专利。

如今，微软在VisualBasic6.0中也新增了这个功能，下面就此举例进行介绍:

　　1.新建一个工程，窗体Form1为缺省窗体，Form1的属性项Caption=″动态增减控件的例子″。

　　2.加入两个命令按钮（CommandButton）,其中：

　　Command1的属性项Caption=″增加控件″;

　　Command2的属性项Caption=″删除控件″。

　　3.加入如下代码，运行该工程，单击″增加控件″则出现新增按钮。

若单击″新增按钮″时会出现对话框，表明你触发的是动态增加控件的单击事件。

　　OptionExplicit

　　′通过使用WithEvents关键字声明一个对象变量为新的命令按钮

　　PrivateWithEventsNewButtonAsCommandButton

　　′增加控件

　　PrivateSubCommand1_Click（）

　　IfNewButtonIsNothingThen

　　′增加新的按钮cmdNew

　　SetNewButton=Controls.Add（″VB.CommandButton″,″cmdNew″,Me）

　　′确定新增按钮cmdNew的位置

　　NewButton.MoveCommand1.Left＋Command1.Width＋240,Command1.Top

　　NewButton.Caption=″新增的按钮″

　　NewButton.Visible=True

　　EndIf

　　EndSub

　　′删除控件（注：

只能删除动态增加的控件）

　　PrivateSubCommand2_Click（）

　　IfNewButtonIsNothingThen

　　Else

　　Controls.RemoveNewButton

　　SetNewButton=Nothing

　　EndIf

　　EndSub

　　′新增控件的单击事件

　　PrivateSubNewButton_Click（）

　　MsgBox″您选中的是动态增加的按钮！

″

　　EndSub

　　注意：

如果你希望添加一个用户控件或任何ActiveX控件到您的窗体，必须把这个控件添加到“工具箱”，或者把控件的License关键字添加到Licenses集合中。

而且，你不能选定“工程属性”对话框的“生成”选项卡上的“删除有关未使用的ActiveX控件”选项，否则controls.Add方法将失败，因为必需的信息已经被丢失。

ActiveX控件的创建

1）概述

　　ActiveX是一个Microsoft的术语，它指的是一组包括控件，DLL和ActiveX文档的组件，它通常是以动态链接库的形式存在,因此必须在一个叫容器的独立执行软件中运行。

这样的容器包括Authorware、Delphi，VisualBasic，VisualC＋＋，InternetExplorer和Access等等。

　　ActiveX控件数据输入和函数功能执行都必须通过容器，因此ActiveX控件和容器都必须支持一些特定的接口协议。

根据Microsoft相应的规格标准，ActiveX控件应具备如下的性能机制。

属性和方法：

ActiveX控件必须提供属性的名称、方法的名称及参数,通过这项机制容器可以存取和改变ActiveX控件的属性参数。

事件：

ActiveX控件由这项机制通知容器在ActiveX控件中发生的事件，比如属性参数的改变，用户按下鼠标左键等。

存储：

容器由这项机制通知ActiveX控件存储和提取有关信息数据等。

　　ActiveX控件只要在Windows的Registry数据库中注册后，就可以像其他Windows应用程序一样发挥各自的功能。

　　ActiveX控件是一个模块化的灵活对象,如果某个应用程序或网页需要增加一项特殊的功能，无须重写整个程序，只要灵活地插入一个具有此项功能的ActiveX控件即可实现。

ActiveX的优势还在于它的动态可交互性，用户可以动态地在使用过程中，通过改变它的属性和参数，在应用程序中实现自己的特殊要求。

　　也许有的读者会问：

目前在市面上可以找到各种各样现成的ActiveX控件，还有没有必要自己创建ActiveX控件呢？

关于这个问题很容易解释，现有的控件种类是很多，功能也比较齐全，问题是有许多时候会遇到这种情况：

使用现成的控件虽能完成任务，但自己需要的一些特性（属性、事件或方法）该控件却没有提供，还需要自己手工写代码来实现，而这些特

性偏偏在自己的应用系统中又经常会用到，为了避免大量的重复劳动，一劳永逸的办法就是在创建自己的ActiveX控件。

　　目前可以使用VisualBasic或其它开发工具创建ActiveX控件。

无论按照哪种标准，VisualBasic都是计算机历史上最为成功的（同时也是最流行的）编程语言，其中最令人兴奋的特性就是可以创建用户自己的控件并可以像其他控件一样应用于支持ActiveX控件技术的应用程序中。

下面通过一个具体实例来阐述如何在VisualBasic6.0（中文企业版）下进行

ActiveX控件创建。

　2）创建ActiveX控件的步骤

　　使用VisualBasic编程语言编写过应用程序的用户，一定非常熟悉诸如TextBox、Label和Data等控件。

要利用这些控件，可以将它们绘制在窗体中，通过属性，方法和事件控制它们的行为。

当用户创建自己的ActiveX控件时，除了确定属性、方法和事件以外，用户是在创建一个相似的对象。

当创建了自己的ActiveX控件以后，就可以在其他VisualBasic工程中使

用它，就像使用TextBox控件一样。

可以在能使用ActiveX控件的任何应用程序或开发工具（包括其他VisualBasic工程、Authorware或者MicrosoftInternetExplorer）中使用自己的控件。

　　在VisualBasic中创建一个ActiveX控件不同于创建一个StandardEXE

应用程序。

因此当创建一个新控件时，一般应遵循的步骤是：

（1）确定控件将要提供的功能。

因为ActiveX控件类似于一个独立的对象，所以需要明确这个对象的目的，希望它在屏幕上有什么样的外观？

使用此控件时，需要什么属性、方法以及事件用于应用程序中？

（2）设计控件的外观。

（3）设计控件的接口，即属性、事件和方法。

（4）创建由控件工程和测试工程组成的工程组。

（5）通过把控件和或代码添加到UserControl对象中来实现控件的外观。

（6）实现控件的接口和功能。

（7）编译控件部件（.ocx文件）。

下面按照上述步骤建立一个可直接显示数据库内容的DataListView控件。

3）具体实现方法

（1）确定DataListView控件的功能

　　标准的ListView控件在显示数据库记录时还存在一些不足，如必须编写大量的代码等，DataListView通过在ListView的基础上添加部分功能而弥补了ListView的不足，因此它除了本身固有的属性、方法和事件外，添加了如下成员：

◆DataServerName属性--确定所操作的数据库服务器。

◆DataBaseName属性--确定所操作的数据库。

◆AdministratorName属性--确定操作数据库的管理员名称。

◆PasswordName属性--确定操作数据库的管理员口令。

◆ShowDataBase方法--显示Select命令所执行的数据库操作结果。

◆ErrorDataBase事件--当遇到错误的数据库操作时引发该事件。

（2）设计控件的外观

　　DataListView由于仅包含一个ListView控件，所以其外观没有太多需要考虑的问题。

如果要创建的控件是多个控件构成，或新控件不包括任何现存控件即完全从头开始创建一个全新的控件的话，则外观问题是一个很重要的问题。

（3）设计控件的接口，即属性、事件和方法

　　对ListView控件所作的改进是为了让ListView控件支持数据库的内容显示,以便在所有能支持ActiveX控件的应用程序中使用。

通过添加用户自己的属性DataServername、DataBaseName、AdministratorName、PasseordName和方法ShowDataBase等可以实现这项功能。

DataListView的其他属性、事件和方法都和标准ListView一样。

（4）创建由控件工程和测试工程组成的工程组

◆启动一个新的ActiveX控件工程。

◆按下CTRL+T组合键或者选择【工程】|【部件】菜单选项，显示【部件】对话框，在【控件】选择框中选择MicrosoftWindowsCommonControls6.0。

◆选择【工程】|【引用】菜单选项，显示【引用】对话框，在【可用的引用】选择框中选择MicrosoftActiveXDataObjects2.0Library。

◆在UserControl窗口中添加一ListView控件，ListView控件的左上角位置为0，0。

◆设置ActiveX工程和UserControl控件属性值，如下表所示。

　　条目　　　　　　　　　　　　　设置

　工程类型　　　　　　　　　　　ActiveX控件

　工程名称　　　　　　　　　　　DataLV

　工程描述　　　　　　　　　　　通过ADO，使得ListView控件能够直

　　　　　　　　　　　　　　　　接操作数据库

　UserControl的Name属性　　　　DataListView

　UserControl的Public属性　　　True

◆保存这个工程。

◆选择【文件】|【添加工程】菜单选项。

然后添加一个标准EXE工程。

建　　立该工程的目的是为了在创建ActiveX控件时不断地进行测试。

　　此时已建立了一个由控件工程和测试工程组成的工程组，下面就可以正式开始创建DataListView控件。

（5）实现控件的外观

　　确定控件外观的方式取决于当前控件的创建模型。

如果要创建一个用户绘制控件，那么必须自己在UserControl_Paint事件过程编写代码来完成所有的绘制工作，同时还需要确定何时绘制控件，以便在需要的时候调用UserControl的Refresh方法来产生Paint事件。

如果是改进一个现有控件，那么只需正确地将组成控件放置在UserControl上即可。

　　由于DataListView控件仅包含ListView一个组成控件，那么只需简单地在UserControl1上绘出一个标准ListView控件，控件名为缺省的ListView1，即可完成外观绘制工作。

　　为了在使用控件时，使ListView控件和自己绘制的空间相匹配，必须建立UserControl的Resize事件过程。

Resize事件过程的代码如下：

PrivateSubUserControl_Resize（）

　　ListView1.Left=0

　　ListView1.Top=0

　　ListView1.Width=UserControl.Width

　　ListView1.Height=UserControl.Height

EndSub

　　仅四行代码的Resize事件过程是简单控件的用户界面的所有必须的代码，其目的是使ListView控件和UserControl对象有相同的尺寸。

（6）实现控件的接口和功能

　　这是整个创建过程中最核心、最重要也是最复杂的步骤。

对于创建控件的每一属性、事件和方法均需逐一实现。

◆创建DataServerName属性

　　要创建DataServerName属性值，首先需要添加一个在内部存贮属性值的局部变量。

要做到这一点，在UserControl对象的GenaralDeclarations通用声明语句中创建此变量。

如下所示：

Dimm_DataServerNameAsString

　　接着需要创建称为DataServerName的新属性，可以通过手工输入Get和Let过程，或者选择【工具】|【添加过程】|【类型】创建这个新属性。

DataServerName属性的代码相当容易理解。

当置DataServerName属性的值时，PropertyGet过程仅将局部变量的存贮内容取出来。

当设置DataServerName属性值时，PropertyLet过程将为局部变量赋予一个有效值。

以下是两个Property过程的代码：

PublicPropertyGetDataServername（）AsString

　　DataServername=m_DataServerName

EndProperty

PublicPropertyLetDataServername（ByValNew_DataServerNameAs　String）

　　m_DataServerName=New_DataServerName

　　PropertyChanged"DataServerName"

EndProperty

　　需要注意的是在PropertyLet过程中，有一个PropertyChanged方法，它的功能是通知容器（可以理解为存放所有属性的单元）属性值已变更，需产生一个WriteProperties事件，来保存新属性值。

事实上不仅在PropertyLet过程需要调用PropertyChanged方法，在UserControl的代码模块中无论何时改变了ActiveX控件的某个属性值，均需调用该过程,以保存属性的变化。

　　注意PropertyDataServerName方法的用法，此方法与ReadProperties

和WriteProperties事件在一起使用。

　　此时需要使用用户控件的InitProperties事件指定此属性的初始值：

PrivateSubUserControl_InitProperties（）

　　m_DataServerName=m_def_DataServerName

EndSub

　　即使用户没有设置初始值，这些代码也会确保设置了一个初始值。

　　至于DataBaseName、AdministratorName、PasseordName属性的创建过程跟DataServername属性的创建过程完全一样，这里就不再重复叙述。

◆使用PropertyBag对象

　　用户还需要为WriteProperties和ReadProperties事件创建代码,从而保护DataServername、DataBaseName、AdministratorName、PasseordName属性在设计阶段的属性值。

这两个事件都使用PropertyBag对象保存和检索DataServername、DataBaseName、AdministratorName、PasseordName属性的值。

PropertyBag对象能够保持DataServername、DataBaseName、

AdministratorName、PasseordName的设计值。

具体实现代码如下：

PrivateSubUserControl_ReadProperties（PropBagAsPropertyBag）

　　m_DataServerName=PropBag.ReadProperty（"DataServerName",

　　　　　　　　　　　m_def_DataServerName）

　　m_DataBaseName=PropBag.ReadProperty（"DataBaseName",

　　　　　　　　　　　m_def_DataBaseName）

　　m_AdministratorName=PropBag.ReadProperty（"AdministratorName",m_def_AdministratorName）

　　m_PasswordName=PropBag.ReadProperty（"PasswordName",

　　　　　　　　　　　m_def_PasswordName）

EndSub

PrivateSubUserControl_WriteProperties（PropBagAsPropertyBag）

　　CallPropBag.WriteProperty（"DataServerName",m_DataServerName,

　　　　　　　　　　　　m_def_DataServerName）

　　CallPropBag.WriteProperty（"DataBaseName",m_DataBaseName,

　　　　　　　　　　　　m_def_DataBaseName）

　　CallPropBag.WriteProperty（"AdministratorName",

　　　　　　　　　m_AdministratorName,m_def_AdministratorName）

　　CallPropBag.WriteProperty（"PasswordName",m_PasswordName,

　　　　　　　　　m_def_PasswordName）

EndSub

　　由于这两个过程是针对"容器"对象的，因此所有属性值的保存和读取都通过这两个过程来实现，而不是每个属性都需要单独的两个过程。

其中，PropertyBag就是"容器对象"的名称。

　　WriteProperty方法有三个参数：

第一个字符串标识需要保存的属性，第二个参数是需要保存的值，最后的参数是属性的缺省值。

　　ReadProperty方法需要两个参数：

一个字符串用来保存属性的名称，另一个为缺省值。

　　在窗体上绘制ActiveX控件的那一刻，就会开始执行ActiveX控件的代码。

在控件设计过程中，将DataServername、DataBaseName、AdministratorName、PasseordName属性的默认值设置为：

Constm_def_DataServerName="lyc"

Constm_def_DataBaseName="pubs"

Constm_def_AdministratorName="sa"

Constm_def_PasswordName=""

　　当然，也可以在程序运行时多次修改它。

控件的正常行为是当程序终止时恢复其默认值，这样增加了保持属性的两种独立状态的要求。

　　简言之，如果在设计阶段改变了一个属性值，那么控件必须得到这个新值，而不是使用默认值。

相反，如果在程序运行时改变属性值，那么当返回设计状态时，控件必须检索此属性值。

　　PropertyBag对象允许ActiveX控件存贮有关它自己的属性值，使它能执行这个动作。

PropertyChanged方法会通知用户已经改变了一个属性。

通过了解程序的状态以及是否调用了PropertyChanged方法，VB就可以激发WriteProperties和ReadProperties事件。

◆为ShowDataBase方法编写代码

　ShowDataBase方法实现在ListView控件中显示Select命令所执行的数据库操作结果。

在其具体实现过程中采用了ADO（ActiveXDataObjects）的数据存取方法。

ADO的主要特点是使用更加容易，访问速度更快,而对磁盘和存储容量的要求更小,ADO支持建立各种客户/服务器模式与基于Web的应用程序，具有远程数据服务RDS（RemoteDataService）的特性，通过RDS能够在一次往返中将服务器端的数据传送到客户端的应用程序或Web页面中，并在客户端