visual basic6.0学习-vb6.0控件参考

bo控 InternetTransfer控件 ListView控件 s控 Multimedia 控 Masked 编辑）控 PDF文件使用"pdfFactoryPro"试用版本创建 SSTab控 PictureClip控 RichTextBox控 StatusBar控 SysInfo控 TabStrip控件 TreeView控 Winsock控 附录 PDF文件使用"pdfFactoryPro"试用版本创建 bobo控件是标准Windows组合框的允许绘图版本。控件列表部分中的每一项都可以有一幅指定给它。除了支持之外，bo还提供了一个对象和基于集合的列表控件。控件列表部分的每一项是一个不同的ComboItem对象，而且列表中的所有项组合起来构成ComboItems集合。这就使它容易一项一项地指定诸如标记文本、ToolTip文本、关键字值以及缩进等级等属性。语说 bo控件可以显示一个包 自己 bo控件包括一个ComboItem对象的集合。一个ComboItem对PDF文件使用"pdfFactoryPro"试用版本创建 除了用列表项目来显示 外， o控件还使用合和对象这它容使相的象集概对表输入如，eoe和Cer及orEh和t...dth。 bo控件是一组ActiveX控件的一部分，这组ActiveX控件能够在 CTl.ocx文件中找到。要在您的应用程序中使用bo控件，必须先将 CTl.ocx文件添加到工程中。当发布您的应用程序时，要把CTl.ocx文件安装到用户的WindowsSystem或System32中。有关如何向一个工程中添加ActiveX控件的信息，请参阅《程序员指南》中的“添加控件到工程属Identation属性，SelectedItem属性（ActiveX控件），CaseSensitive属性，UsePathSep属性，Locked属性，ComboItems属性，DataFormat属性，Left,Top属性，TabIndex属性，Tag属性，DragIcon属性，DragMode属性，TabStop属性，HelpContextID属性，Index属性（控件矩阵），Name属性，Parent属性，ContainerObjectToolTipTextWhatsThisHelpID属性，OLEDragMode属性（ActiveX控件），OLEDropMode属性（ActiveX控件），SelLength,SelStart,SelText属性（ActiveX控件），Text属性（ActiveX控件），PDF文件使用"pdfFactoryPro"试用版本创建 HeightWidth属性（ActiveX控件），Visible属性（ActiveX控件），BackColor,EnabledFonthWndMouseIconousePoter属性（ActiveX控件），ImageList属性（ActiveX控件）。方方法（ActiveX控件）。事DropDown事件（ bo控件），DragDrop事件，Dra er事件，GotFocus事件，LostFocus事件，Validate事件， pleteDrag事件（ActiveX控件），OLEDragDrop事件（ActiveX控件），OLEDra er事件（ActiveX控件），OLEGiveFeedBack事件（ActiveX控件），OLESetData事件（ActiveX控件），OLEStartDrag事件（ActiveX控件），Change事件（ActiveX控件），Click事件（ActiveX控件），DblClick事件（ActiveX控件），KeyDown,KeyUp事件（ActiveX控件），KeyPress事件（ActiveX控件）。PDF文件使用"pdfFactoryPro"试用版本创建 请参ComboItem集合，ImageList控件，Image属性（ActiveX控件），使 bo控件Add方法（ComboItems集合向集合中添加一个ComboItem对象，并返回对新创建对象的一 应用语object.Add(IndexAsVariant,KeyAsVariant,TextAsVariant,ImageAsSelImageOverLayImageAsVariant,IndentationAsVariant)AsAddPDF文件使用"pdfFactoryPro"试用版本创建 部 描说

指定对可选的。该项的文本，同将在组合框的列表和文本部分中出可选的。一个ImageList控件的索引或关键字，标识与列表项同时使用可选的。一个ImageList控件的索引或关键字，标识当列表可选的。一个ImageList控件的索引或关键字，标识列表项所使用的覆可选的。将应用于项的缩进等级。应用于每一个缩进等级的空格数由Indentation属性决定新创建ComboItem对象的一 ，作为此函数成功完的一个结果返AddIndentation0PDF文件使用"pdfFactoryPro"试用版本创建 Add方法返回一个对新创建ComboItem对象的 象变量赋予新的ComboItem值，然后就可以 示该实例表明了如何使用Add方法添加一个ComboItem，以及如何利用返 DimciAsSetci boItems.Add(1,"Signal1","Signal","RedLight","GreenLight",0,ci.ToolTipText="Trafficci.Indentation= bo列表中进行搜索时字符串是否区分大小写PDF文件使用"pdfFactoryPro"试用版本创建 应用bo语法部 描

一个布尔表达式，指明搜索字符串的大小写是否影响设boolean设 描

（缺省值）列表框中的项不按大小写排序，搜索时也不PDF文件使用"pdfFactoryPro"试用版本创建 说Ste属性决定了在搜索 o的列表框时如何处理其中项。列表中所搜索内容就是用户在控件的文本框中输入的文本。例如，假设列表中有两项，一个“”项和一个“Aaa”项。用户在组合框的编辑框中输果aSete为rue果aeSestve为，就选“”。ComboItemComboItem对象是 bo控件列表部分中的一项。ComboItem对 语ComboItemPDF文件使用"pdfFactoryPro"试用版本创建 部 描 一个对象表达式，其值是一 bo控说ComboItem对象及其相应的ComboItems集合包括出现在 因为列表中的项都是一个集合中的对象，所以标准组合框（例 ListIndexItemData）的某些属性将不再需要。使用ComboItem对象可以：通过指定一个ImageList控件的索引来指定一 为某项指定一个唯一的Key值，可以用该值代替集合中的索引来

bo控件最初并不包括任何ComboItem对象。必须使用AddPDF文件使用"pdfFactoryPro"试用版本创建 属Key属性（ActiveX控件），Index属性（ActiveX控件），SelItems请参ComboItems bo控件中所有的ComboItem对象语ComboItemsPDF文件使用"pdfFactoryPro"试用版本创建 部 描

bo控一个整数或字符串，用来唯一标识一个对象集合中的一个成员。整数是Index属性的值；字符串是Key属性的值说ComboItems1ComboItemComboItemComboItemsComboItemIndex属Count属性（ActiveX控件），Item属性（ActiveX控件）方Clear方法（ActiveX控件），Remove方法（ActiveX控件），Add（ComboItems集合）PDF文件使用"pdfFactoryPro"试用版本创建 请参ComboItem对象，ComboItemsComboItems返回一个对ComboItem对象ComboItems集合 应用bo语ComboItems部 描

PDF文件使用"pdfFactoryPro"试用版本创建 请参ComboItem对象，ComboItemsDropDown事件 bo控件 bo控件的列表部分即将被下拉时发生应用bo语PrivateSubobject_DropDown(DropDown部 描 PDF文件使用"pdfFactoryPro"试用版本创建 说在用户作出选择之前，使用一个Dropown事件过程对 o控件列表进行后更新。样做能使您在表中添加或删一些项，变列表项显示的图像，或者对列表、列表或其属性一些其它修。示下面的代码检查一个菜单项的值来看这些项的状态是否应被显示。如果状属性。如果状态显示未被激活，则此项的OverlayImage0,从而删除IfmnuShowStatus.Checked=TrueForEachCboItem SelectCaseCaseCboItem.OverlayImage="Padlock"Case"Deleted"CboItem.OverlayImage="X-CasePDF文件使用"pdfFactoryPro"试用版本创建 CboItem.OverlayImage=CaseCboItem.OverlayImage=0EndSelectNextForEachCboItemin CboItem.OverLayImage=0NextEndIfEndSub些值指示在ImageList控件中 bo相关联的特定图像Locked返回或设置一个值 PDF文件使用"pdfFactoryPro"试用版本创建 应用bo语object.Locked[=Locked部 描

一个布尔表达式 该控件能否被编辑，如“设置”所描述设boolean常 描

（缺省值）用户不能编辑控件或其PDF文件使用"pdfFactoryPro"试用版本创建 SelImageImageList应用ComboItem语object.SelImage[=SelImage部 描

一个对象表达式，其值是“应用于”列表中的一个ImageList控件中一幅图像的索引或说SelImage属性指定从列表中选定一项时应显示 文本框部分中下一项出现哪一 。如果未给 属性指定一个值PDF文件使用"pdfFactoryPro"试用版本创建 该项 SetFirstVisible设置控 区域中第一个可视项应用bo语 boItemas部 描

对象表达式，其值是“应用于”列表中的对象应设置为可见的ComboItem对象的PDF文件使用"pdfFactoryPro"试用版本创建 应用bo语法object.UsePathSep[=boolean部 描

一个布尔表达式，指明路径分隔符是否解释为单词分隔符，如“设PDF文件使用"pdfFactoryPro"试用版本创建 设boolean设 描

（缺省值）说符，用户在按下CTRL键并同时按下左方向键或右方向键时，就可以在文本字UsePathSepTrue，则路径分隔符（“/”,“\”“.”）也被当作单InternetURLPDF文件使用"pdfFactoryPro"试用版本创建 InternetTransferInternetTransfer控件支持超文本传输协议(HTTP)和文件传输协(FTP)，它们是Internet网上使用最广泛的两种协HTTP协议，可以连接全球信息网（WorldWideWeb）服务器，以检索HTML文档。使用FTP协议可以在FTP服务器上登录，以和加载文件。UserName和Password属性可在要求验证的私有的服务器上进行登录。另外，也可以连接公用的FTP服务器，并文件。Execute方法支持普通的FTP命令，如CD和GET。属属性（ActiveX控件），Tag属性（ActiveX控件），Object属性（ActiveX控件），AccessType属性， 属性，hInternet属性，Password属性（InternetProtocolProxyqustTou属性，ResponseCode属性，ResponseInfo属性，StillExecuting属性，URL属性，UserName属性，Name属性，Parent属性。PDF文件使用"pdfFactoryPro"试用版本创建 方GetHeader方法，OpenURL方法。事StateChanged请参AccessType设置或返回一个值，决定该控件用来与Internet网进行通讯的 PDF文件使用"pdfFactoryPro"试用版本创建 应用语object.AccessType=AccessType部 描

整数（枚举型）。数值表达式，决定所使用 类型，设typePDF文件使用"pdfFactoryPro"试用版本创建 常 描 缺省。使用缺省值。控件使用 表中找到的省设置值 Internet 请参Proxy属性Cancel

直接连到InternetInternet命 。指示控件使用Proxy属性中指定的代应用PDF文件使用"pdfFactoryPro"试用版本创建 语object返回属Execute方法一起使用的文件或文档。如果未指定该属性，应用PDF文件使用"pdfFactoryPro"试用版本创建 语 =部 描

与Execute方法一起使用的文件或文档的名请参ExecuteExecute执行 应用PDF文件使用"pdfFactoryPro"试用版本创建 语object.Executeurl,operation,data,Execute部 描设

可选的。字符串，指定控件将要连接的URL。如果这里未指URL，将使用URLURL可选的。字符串，指定将要执行的操作类型。所支持的操可选的。字符，指定用于操作的数据，参见下面的“设置”可选的。字符，指定由 服务器传来的附加的标头。它们的格式为：headername:headervalue注意：operationPDF文件使用"pdfFactoryPro"试用版本创建 支持HTTPoperation运 描

URLURL中的数据data参数中。这是的替代方法，附加的指令在data参数中指Put操作。被替代的页面名在data支持FTP重点：FTP和。各参数间由空格分隔。在下面的描述中，“file1”、“file2”FTPoperationNamefile1例如，为获得一个文件，下面的代码调用ExecutePDF文件使用"pdfFactoryPro"试用版本创建 (“GET”)Inet1.Execute"FTP:/ ",_"GETDi er.txtC:\Temp\Di 注意：operationFTP运 描CDfile1DELETEDIRGETfile1LS

改 。改变到file1中指定 关闭当前的FTP连接删除file1。搜索file1中指定的（允许用通配符，但要使用主机的语法）。如果没有指定file1，将返回当前使用GetChunk方法返 数检索file1中指定 文件，并创建file2中指定列表。搜索file1中指定的 主机的语法）。使用GetChunk PDF文件使用"pdfFactoryPro"试用版本创建 描MKDIRfile1 。创建file1中指定的 。创建是否成功取 PUTfile1RECVfile1file2RENAMEfile1file2RMDIRfile1SENDfile1SIZE返回类

file1指定的本地文件到file2指定 主机上印工作 。返回当前 名。使用GetChunk方检索file1中指定 文件，并创建file2中指定本地新文件。等效于将file1中命名的 文件重命名为file2中指定的新名称。成功与否取决于用户在 删 。删除file1中指定 。成功与否决于用户 file1指定的本地文件到file2指定的 主机上。等效于PUT返回file1指定 的大PDF文件使用"pdfFactoryPro"试用版本创建 说 的FTP站点不允许任何人删除文件或 请参属性，Protocol属性（InternetTransfer控件），URL属性示该示例列举了一系列使用Execute方法的FTP操作。该示例假定窗体中有三个TextBox控件。第一个控件txtURL包含FTP服务器的URL。第二个控件txtRemotePath包含特殊命令所需的附加信息。第三个控件txtResponsePrivateSubcmdChangeDirectory_Click() 改变到txtRemotePath。Inet1.ExecutetxtURL.Text,"CD"&_EndPrivateSubPDF文件使用"pdfFactoryPro"试用版本创建 '删除txtRemotePath中的 Inet1.ExecutetxtURL.Text,"DELETE"&_EndPrivateSubInet1.ExecutetxtURL.Text,"DIRFindThis.txt"EndSubPrivateSubInet1.ExecutetxtURL.Text,"GETGetThis.txt EndPrivateSubInet1.ExecutetxtURL.Text,"SEND EndPrivateSubInet1_StateChanged(ByValStateAsInteger)'State=12时，用GetChunk方法检索服务器的响应。DimvtDataAsVariant'Datavariable.SelectCaseStatePDF文件使用"pdfFactoryPro"试用版本创建 '...没有列CaseicError'出现错误时，返回ResponseCode和ResponseInfo。vtData=Inet1.ResponseCode&":"&_ pleted'DimvtDataAsVariantDimstrDataAsStringDimbDoneAsBoolean:bDone='vtData=Inet1.GetChunk(1024,DoWhileNotstrData=strData&'取得下一个块vtData=Inet1.GetChunk(1024,icString)IfLen(vtData)=0bDone=EndPDF文件使用"pdfFactoryPro"试用版本创建 txtData.Text=strDataEndSelectEndGetChunk方法（InternetTransfer控件StateChangedExecuteGET操作来调用应用语object.GetChunk(size[,datatypeGetPDF文件使用"pdfFactoryPro"试用版本创建 部 描

设datatype常 描

把数据作为字节数组来返回类说在StateChanged事件中使用GetChunkState为pleted(12)GetChunkPDF文件使用"pdfFactoryPro"试用版本创建 请参Execute方法，StateChanged示StateChanged事件中用GetChunk方法来检索一块数据。该示例使用SelectCase语句来决定如何处理每种可能的状态。该示例假定窗体中有一个名为txtData的TextBox控件。PrivateSubInet1_StateChanged(ByValStateAs'State=12时，使用GetChunk'该示例假定数据为文本类SelectCaseCaseicResponseReceivedDimvtDataAsVariant'数据变量。DimstrDataAsString:strData=""DimbDoneAsBoolean:bDone=False'取得第vtData=Inet1.GetChunk(1024,PDF文件使用"pdfFactoryPro"试用版本创建 DoWhileNotstrData=strData&'vtData=Inet1.GetChunk(1024,IfLen(vtData)=0bDone=EndIftxtData.Text=EndSelectEndSubGetHeaderGetHeaderHTTPPDF文件使用"pdfFactoryPro"试用版本创建 应用语object.GetHeaderGetHeader部 描

可选的。字符串，指定将被检索返回类说PDF文件使用"pdfFactoryPro"试用版本创建 描 返回文档传输的日期和时间。返回的数据格式为：Wednesday,27-April-9619:34:15hInternet

返回MIME返回数据的MIME的当前：Wednesday,27-April-9619:34:15Wininet.dllAPIInternet句柄。可直接使用该句柄来调该API。从Visual 应用InternetTransferPDF文件使用"pdfFactoryPro"试用版本创建 语object数据类OpenURL种属性（以及该URL的一些部分，如协议）将被更新，以符合当前的URL。应用PDF文件使用"pdfFactoryPro"试用版本创建 语object.OpenUrlurlOpenURL 描

对象表达式，其值是“应用于”列表中的对象必需的。被检索文档的URL设datatype值01返回类PDF文件使用"pdfFactoryPro"试用版本创建 说OpenURLURLURL的目标是某个FTP服务器的，将返回该。另一方面，如果目标是一个文件，OpenURL方法等效于：调用带GET操作的Execute方法，然后在StateChanged事件中调用GetChunk方法。但是，OpenURL方导致从站Dimb()AsDimstrURLAs'设置strURLstrURL= b()=Inet1.OpenURL(strURL,Open"C:\Temp\China.exe"ForBinaryAccess_WriteAs#1Put#1,,b()Close#1PDF文件使用"pdfFactoryPro"试用版本创建 注意：当使用OpenURL方法时，在设置Password和UserName属请参Protocol属性（InternetTransfer控件）示OpenURLFTP服务器的。要运行该示例，在窗体中放置一个InternetTransfer控件和一个RichTextBox控件。然后，把这段代码粘贴到部分。按F5键运行此例，并双击此窗体。PrivateSubForm_DblClick()Inet1.AccessType=icUseDefaultRichTextBox1.Text=Inet1.OpenURL_(InputBox("URL",, EndInternetTransfer控件，并把这段代码粘贴到 部分。再按F5键，并双击此PDF文件使用"pdfFactoryPro"试用版本创建 PrivateSubForm_DblClick()Inet1.AccessType=icUseDefaultDimb()AsByteDimstrURLAs'假定这仍然是一个有效的URL。strURL="ftp:/ /"&_b()=Inet1.OpenURL(strURL,Open"C:\Temp\Autorun.zip"ForBinaryAccess_WriteAs#1Put#1,,b()Close#1MsgBox"Done"EndPDF文件使用"pdfFactoryPro"试用版本创建 Password属性（InternetTransfer控件设置或返回一 ， 计算机 应用InternetTransfer语object.Password=部 描

对象表达式，其值是“应用于”列表中的对象 计算机时，要发送的说如下面的表格中所示，控件发送的缺 PDF文件使用"pdfFactoryPro"试用版本创建 UserName属 Password属 发送到FTP服务器发送到FTP服务器 的 NullNullNullUserName非空字符非空字符UserNamePassword请参Protocol属性（InternetTransfer控件Execute应用PDF文件使用"pdfFactoryPro"试用版本创建 语object.Protocol=部 描

整数。数值表达式，决定所用的协议，如“设置”中设Protocol值012FTP3为将来预4HTTP。超文本传输协5安全PDF文件使用"pdfFactoryPro"试用版本创建 说指定该属性后，URL属性被更新以显示新值。另外，如果此URL的协议部分被更新，Protocol属性也将被更新以体现新值。OpenURL和Execute方直到调用下一个Execute或OpenURL方法时，该属性值的改变才会有请参Execute方法，OpenURLProxy设置或返回用以和Internet网进行通讯 服务器的名称。只有当AccessTypeicNamedProxy3)时，才使用该属性PDF文件使用"pdfFactoryPro"试用版本创建 应用语object.Proxy=部 描

所用 服务器的名数据类说直到调用下一个Execute或OpenURL方法时，该属性值的改变才会有PDF文件使用"pdfFactoryPro"试用版本创建 ，且使用了端口123，则您可以将其设置为:Inet1.Proxy=您可以指定多个网关，用空格将其相互分开。例如，如果您的CorpHTTP131，则为两个协议做如下设置Inet1.Proxy=“ftp=CorpFTP:123 例如，即使协议是http，也使用以下的 Inet1.Proxy=请参RequestTimeout的时间内还没有响应，并且该请求使用OpenURL方法（同步地）PDF文件使用"pdfFactoryPro"试用版本创建 错误；如果请求使用Execute方法，将 带错误码的StateChanged事件。把该属性设置为0，则意味着不限定等待时间。应用语object.RequestTimeout=RequestTimeout部 描

对象表达式，其值是“应用于”列表中的对象数据类PDF文件使用"pdfFactoryPro"试用版本创建 ResponseCodeStateChangedicError(11)ResponseInfo应用InternetTransfer语object.ResponseCode=ResponseCode部 描

数据类PDF文件使用"pdfFactoryPro"试用版本创建 说如下所示，可使用StateChanged事件来接收关于错 PrivateSubInet1_StateChanged(ByValStateAsDimstrMessAsString'消息变量。SelectCaseState'...OthercasesnotCase 'strMess="ErrorCode:"&Inet1.ResponseCode&_":"&Inet1.ResponseInfoEndDebug.PrintstrMessEndSub请参ReponseInfo属性，StateChangedPDF文件使用"pdfFactoryPro"试用版本创建 ResponseInfoResponseCode应用语ResponseInfo部 描

对象表达式，其值是“应用于”列表中的对象返回类PDF文件使用"pdfFactoryPro"试用版本创建 说如下所示，使用StateChanged事件来接收错 PrivateSubInet1_StateChanged(ByValStateAsDimstrMessAsString'消息变量。SelectCaseStateCase ''strMess="ErrorCode:"&Inet1.ResponseCode&_":"&Inet1.ResponseInfoEndDebug.PrintstrMessEndSub请参ResponseCode属性，StateChangedPDF文件使用"pdfFactoryPro"试用版本创建 StateChanged连接中状态发生改变，就 应用语object_StateChanged(ByValStateAsStateChanged部 描

对象表达式，其值是“应用于”列表中的对象整数。如下面的“设置”所示，指定状态设StatePDF文件使用"pdfFactoryPro"试用版本创建 值01IP2IP3456该控件发送请求已成789该控件已成功地与主机解除了与主机通讯时出现说StateChanged事件决定何时使用GetChunk方法来检索数据。要这样做，须使用SelectCase语句，并测试icResponseReceived(8)pleted(12)据，此时icResponseReceived状态也可能出现。例如，当与某个FTPPDF文件使用"pdfFactoryPro"试用版本创建 行连接时，该控件将与此FTP站点“握手”，但没有在缓冲区中产生任何数据，此时会出现icResponseReceived状态。 pleted状态。例如，如果正在使用Execute方法和GET操作来检索某个文件，在此文件被完 pleted事件，且仅出现一次。实际上，使用icResponseReceived状态可以对数据做语法分析，直到检索到所需信息为止（例如，检索HTML文件时，只对标头进行检索）。获得该信息后，就可以取消这次检索。另一方面，如果想检索整个文件，pleted请参Execute方法，GetChunk方法（InternetTransfer控件），GetHeaderOpenURL方法，ReponseCode属性，ResponseInfoStillExecuting返回一个值，指明此 Transfer控件是否处于忙状态。如果该控InternetTruePDF文件使用"pdfFactoryPro"试用版本创建 应用语object.StillExecuting=StillExecuting部 描

对象表达式，其值是“应用于”列表中的对数据类设booleanPDF文件使用"pdfFactoryPro"试用版本创建 值-0值7“类型不匹配Internet“不能打开“URL“该方法不支持的协议PDF文件使用"pdfFactoryPro"试用版本创建 值“不能检索“FTP“该调用对一个FTP“超时未知的时间PDF文件使用"pdfFactoryPro"试用版本创建 值无效操未找到错误参IcIncorrect无回PDF文件使用"pdfFactoryPro"试用版本创建 值无效请将阻HTTPS直接到复合安全HTTPS直接到需要客户验无效的客PDF文件使用"pdfFactoryPro"试用版本创建 常 描 FTP:传输进行中 Gopher:协议错误 Gopher:不是一个文件 Gopher: Gopher:数据结束 Gopher:无效的 Gopher:错误的 Gopher:不是Gopherplus Gopher:属性未找到 Gopher:未知的 HTTP:头部未找到 HTTP:低级服务器 HTTP:无效的服务器响应 HTTP:无效头部 HTTP:无效查询请求 PDF文件使用"pdfFactoryPro"试用版本创建 描

URLExecuteOpenURLURL应用语object.URL[=URL部 描

对象表达式，其值是“应用于”列表中的对字符串，指定Execute方法中使用的PDF文件使用"pdfFactoryPro"试用版本创建 数据类说调用OpenURL或Execute OpenURLExecute方法时，对该属性所做的改变才有URL属性至少必须包含一个协议和一 URL属性可以 或文件。例如，下面这两个URLs都是有效的'设置该URL，仅返回文 Inet1.URL= '然而，该URLInet1.URL= 请参ExecutePDF文件使用"pdfFactoryPro"试用版本创 UserName设置或返回与请求一起发送 应用InternetTransfer语UserName部 描

对象表达式，其值是“应用于”列表中的对象字符串，指定Execute方法使用的UserName数据类PDF文件使用"pdfFactoryPro"试用版本创建 说调用OpenURL或Execute OpenURLExecute请参PDF文件使用"pdfFactoryPro"试用版本创建 ListViewListView语说ListViewListItem对象的列表条目组织成下列四种不PDF文件使用"pdfFactoryPro"试用版本创建 性控制列表中与项目关联的是否可换行显示。另外，还可管理列表中项目ListView控件包括ListItem和ColumnHeader对象。ListItemListViewImageList附加的文本片段，称作子项目，它们与显示在报表视图中的ListItem对可以使用HideColumnHeaders属性决定是否在ListView控件中显示列标属性”框的“列首”选项卡添加列标头。运行时，使用Add方法添加ColumnHeader对象到ColumnHeaders集合中。发布须知：ListView控件是 CTL.OCX文件中一组ActiveX控件的一部分。若要在应用程序中使用ListView控件，则必须将CTL.OCX文件添加到工程中。当发布应用程序时，请将 WindowsSystem或System32下。关于如何将ActiveX控件添加到VisualBasic工程的详细信息，请参阅《 VisualBasic程序员指南6.0》。PDF文件使用"pdfFactoryPro"试用版本创建 属控件）HoverSelectionPictureAlignmentHotTracking属性，TextBackground属性，Arrange属性（ListView控件），ColumnHeaders属性LabelWrapMultSelect属性（ListView,TabStrip控件），SorKey属性（ListView控件），SortOrder属性（ListView控件），View属性（ListView控件），Sorted属性（ListView控属性，HelpContextID属性，Name属性，Parent属性，Font属性，Container属性，ToolTipText属性，WhatsThisHelpID属性，OLEDragMode属性（ActiveX控件），OLEDropMode属性（ActiveX控件），Picture属性（ActiveX控件），Height,Width属性（ActiveX控件），Index属性（ActiveX控件），Left,Top属PDF文件使用"pdfFactoryPro"试用版本创建 方HitTest方法（ListView,TreeView控件），StartLabelEdit方法，FindItem方法（ListView控件），GetFirstVisible方法，SetFocus方法，Drag方法，Move方法（ActiveX控件）。请参Add方法（ColumnHeaders集合），ListItem对象，ListItems集合，ListView控ImageListListView控件。Add方法（ColumnHeaders集合ColumnHeaderListViewColumnHeaders应用PDF文件使用"pdfFactoryPro"试用版本创建 语object.Add(index,key,text,width,alignment,Add部 描说

必需的。对象表达式，其值是ColumnHeaders可选的。唯一标识对可选的。唯一的字符串表达式，可以用来 集合的成员可选的。出现在ColumnHeader对象中的字符串象的宽可选的。决定ColumnHeader对象中文本对齐方式的整数。关于设置信息，请参阅“请参阅”列表中Alignment属可选的。Smallicons图像列表中图像的关键字Add方法返回 的ColumnHeader对象 使用index参数在ColumnHeaders集合的特定位 列标头PDF文件使用"pdfFactoryPro"试用版本创建 ColumnHeaders集合成员可能动态变更时，应使用Key属性它们，因为任何ColumnHeader对象的Index属性都可以改变。请参控件），Alignment属性（ColumnHeader对象），SubItemIndex属性，SubItems属性（ListView控件）。Add方法（ListItems集合添加ListItem对象到ListView控件的ListItems集合中并返回新创建对象的。应用ListItem对象，ListItems语object.Add(index,key,text,icon,PDF文件使用"pdfFactoryPro"试用版本创建 Add部 描说

必需的。对象表达式，其值是ListItems可选的。指定在何 ListItem的整数。若未指定索引则将ListItemListItems 可选的。与ListItem对象控件关联的字符串可选的。当ListView控件设为图标整数设置从ImageList可选的。当ListView控件设为小图标时，此整数设置从ImageListIconsSmallIcons属性之前必须先初始化它们。有两种初始化方法在设计时，使用ListView控件属性框的“通用”选项卡指定ImageList对ListView1.Icons=ImageList1 '假设Imagelist为ImageList1。ListView1.SmallIcons=ImageList2如果列表尚未排序，则可使用index参数将ListItem对象到任意位indexListItem对象插PDF文件使用"pdfFactoryPro"试用版本创建 若未提供index，则ListItemListItem1当希望对象的 对象时，使用Key属 ListItems集合的成员请参Key属性（ActiveX控件），Index属性（ActiveX控件），ListView控件，Ghosted属性，IconsSmallIcons属性，SubItems属性（ListView控件），Sorted属性（ListView控件），Selected属性（ActiveX控件）。示下面的示例使用Biblio.mdb数据库作为资源，通过ListItem对象移居ListView控件。要试用此例，请将一个ListView控件放置在窗体上，并将代码粘贴到窗体的部分。还必须确保已将Biblio.mdb安装在机器上。在以下代码中检查OpenDatabase函数中的路径，并改变它，使之反映Biblio.mdb在机器上的实PDF文件使用"pdfFactoryPro"试用版本创建 DAO3.5对象库的“ DAO3.5PrivateSub'添加ColumnHeaders。列宽度等于控件宽度'除以ColumnHeader对象的数目。ListView1.ColumnHeaders._Add,,"Author",ListView1.Width/ListView1.ColumnHeaders.Add,,"AuthorID",ListView1.Width/3,_ListView1.ColumnHeaders._Add,,"Birthdate",ListView1.Width/'SetViewpropertytoListView1.View='为数 对 DimmyDbAsDatabase,myRsAs'设置Database为BIBLIO.MDB数据库'IMPORTANT:theBiblio.mdbmustbeonyour'machine,andyoumustsetthecorrectpathtoPDF文件使用"pdfFactoryPro"试用版本创建 'thefileintheOpenDatabasefunctionSetmyDb DBEngine.Workspaces(0).OpenDatabase("c:\ProgramFiles\VB\BIBLIO.MDB")'设置recordset为"Authors"表。SetmyRs=myDb.OpenRecordset("Authors", ListItemDimitmXAs'若当前记录不是最后一条记录，则添加一个ListItem'ListItemauthor'ListItem对象的SubItem(1)使用AuthorID'ListItem对象的SubItem(2)使用"YearofBirth"字段WhileNotSetitmX=ListView1.ListItems.Add(,, 'Author字段'若AuthorID字段不为空，则将SubItem1IfNotIsNull(myRs!Au_id)ThenitmX.SubItems(1)=CStr(myRs!Au_id)EndPDF文件使用"pdfFactoryPro"试用版本创建 '若birth字段不为空，则将SubItem2IfNotIsNull(myRs![YearBorn])ThenitmX.SubItems(2)=myRs![YearBorn]EndEndSub

'。object.Add(index,key,text,ReportIcon,PDF文件使用"pdfFactoryPro"试用版本创建 描说

可选的。一个整数，指定对 的位置，如果没有指定此参数对象将添加到集合的末可选的。一个字符串，唯一标识该对象，使用这个值在集合中检索指定对象可选的。在“报表”视图中ListView可选的。Index或Key属性值定相关的ImageList控件中ListImageListSubItemListSubItemsSubItems字符串数组。SubItemsListView控件中仍然有效，但是建议新的应用程序使用ListSubItems集合，可以增强灵PDF文件使用"pdfFactoryPro"试用版本创建 Alignment属性（ColumnHeader对象ColumnHeader应用语object.Alignment[=Alignment部 描

对象表达式，其值是ColumnHeader对象决定对齐方式的整数，如“设置”中所描述设integerPDF文件使用"pdfFactoryPro"试用版本创建 值0（缺省）1右对齐。文本向右对2请参ColumnHeader对象，ColumnHeaders集合，Add方法（ColumnHeaders集合），Align属性。AllowColumnReorder应用语object.AllowColumnReorder[=PDF文件使用"pdfFactoryPro"试用版本创建 部 描

一个布尔表达式，指定用户是否能够对列重新排列，如设置设boolean设置如下常 描

(缺省)用户不能对列重新排Arrange属性（ListView控件ListViewPDF文件使用"pdfFactoryPro"试用版本创建 应用语部 描

对象表达式，其值是ListView决定如何排列图标或小图标的整数或常量，如“设置”中所描设value值0（缺省）12PDF文件使用"pdfFactoryPro"试用版本创建 请参SortOrder示本示例将若干ListItem对象和子项目添加到ListView控件中。单击OptionButton控件时将根据OptionButton的Index值设置Arrange属性。要试用此例一个包含三OptionButton控件的控ListView控件和两个ImageList控件放置在窗体上，并将代码粘贴到窗体的部分。运行示例，并单击OptionButton改变Arrange属性。PrivateSubOption1_Click(Indexas'设置Arrange属性为Option1.IndexListView1.Arrange=EndPrivateSub'用Arrange选项标注OptionButton控件。Option1(0).Caption="NoArrange"Option1(1).Caption="AlignAutoLeft"PDF文件使用"pdfFactoryPro"试用版本创建 Option1(2).Caption="AlignAuto'为创建ListView和ImageList对 变量DimiAsDimitmXAs ListItemsDimimgXAs ListImages'添加ListImage对象到ImageList控件中。SetimgX=ImageList1.ListImages._ListView1.Icons= '与ImageList控件关'添加10个均包含图标的ListItemFori=1ToSetitmXListView1.ListItems.Add()itmX.Icon=1 itmX.Text="ListItem"&NextEndPDF文件使用"pdfFactoryPro"试用版本创建 ColumnClick单击ListView控件中的ColumnHeaderView应用语PrivateSubobject_ColumnClick(ByValcolumnheaderAsColumnClick部 描

对象表达式，其值是ListView控件被单击的ColumnHeader对象的说通常在代码中使用Sorted、SortKey和SortOrderPDF文件使用"pdfFactoryPro"试用版本创建 ListItem请参示本示例将三个ColumnHeader对象添加到ListView控件中，并将Biblio.mdb数据库的Publishers记录植入控件。一个由两个OptionButton控件组成的数组提供将记录排序的两个选项。单击ColumnHeader将根据由OptionButtons决定的SortOrder属性将ListView控件排序。要试用此例，请将一个ListView和一个由OptionButton控件组成的控件数组放置在窗体上，并将代码粘贴到窗体的部分。运行示例并单击ColumnHeaders进行排序，单击OptionButton来切换SortOrder属性。 DAO对象库 ，否则示例无法运行PrivateSubOption1_Click(Indexas'这些OptionButtons提供两种选择：升序（索引0），'和降序(索引1)。请单击其一PDF文件使用"pdfFactoryPro"试用版本创建 '为ListView控件设置SortOrder。ListView1.SortOrder=IndexListView1.Sorted=True将列表排序。EndPrivateSub'为ColumnHeaderDimclmXAs'添加ColumnHeaders。列宽度等于控件'除以ColumnHeaderSetclmX=ListView1.ColumnHeaders._Add(,,"Company",ListView1.Width/3)SetclmX=ListView1.ColumnHeaders._Add(,,"Address",ListView1.Width/3)SetclmX=ListView1.ColumnHeaders._Add(,,"Phone",ListView1.Width/3)ListView1.BorderStyle=ccFixedSingle'设置BorderStyleListView1.View=lvwReport'设置View'用SortOrder选项标注OptionButton控件。Option1(0).Caption="AscendingA-Z)"Option1(1).Caption="Descending(Z-A)"PDF文件使用"pdfFactoryPro"试用版本创建 ListView1.SortOrder=lvwAscending'Sort'为数 DimmyDbAsDatabase,myRsAsRecordset'设置数据库为BIBLIO.MDB数据库。SetmyDb='设置recordset为PublishersSetmyRs=myDb.OpenRecordset("Publishers",'为添加ListItemDimitmXAs'若当前记录不是最后一条记录，则添加ListItem'ListItemName'ListItem对象的subitem(1)使用Address'ListItem对象的subitem(2)使用PhoneWhileNotSetitmX=ListView1.ListItems.Add(,,'若Address字段不为空，则设置subitem1IfNotIsNull(myRs!Address)itmX.SubItems(1)= 'AddressEndPDF文件使用"pdfFactoryPro"试用版本创建 '若Phone字段不为空，则设置subitem2IfNot ephone)itmX.SubItems(2)= 'PhoneEndEnd

'PrivateSubListView1_ColumnClick(ByValColumnHeaderAs'单击ColumnHeader'ListView'设置SortKey为ColumnHeader的索引值减ListView1.SortKey=ColumnHeader.Index-'设置Sorted为TrueListView1.Sorted=TrueEndSubColumnHeaderListViewPDF文件使用"pdfFactoryPro"试用版本创建 ColumnHeadersColumnHeader语 ColumnHeader对象，ColumnHeaders部 描

对象表达式，其值是ListView一个唯一标识对象集合成员的整数或字符串。如果为整数，它将是Index属性的值；如果为字符串，它将是Key属性的值说ColumnHeaderColumnHeaderListViewColumnHeaderPDF文件使用"pdfFactoryPro"试用版本创建 ColumnClickColumnHeaderListView控件中总是有一列，即列1ListItem对象而不是它们的子项目。第二列（2）包含子项目。因此，ColumnHeader对象总是比子项目多一个，ListItem对象的SubItems属性是大小为ColumnHeaders.Count-1的、基于1的数组。ColumnHeader对象的数目决定每个ListItem对象可包含的子项目数目。删除ColumnHeader对象后所有与列关联的子项目也将被删除，并且每个ListItem对象的子项目数组将平移以更新ColumnHeader的索引，而这将导致剩余的列标头SubItemIndex属性的改变。属控件），Text属性（ActiveX控件），Index属性（ActiveX控件），Left,Top对象），Position属性（ColumnHeader对象），SubItemIndex属性，Icon属性（Windows常见控件）PDF文件使用"pdfFactoryPro"试用版本创建 方Clear方法（ActiveX控件），Remove方法（ActiveX控件），Add请参Clear方法（ActiveX控件），Add方法（ColumnHeaders集合），ListItemHideColumnHeaders属性（ListView控件），SortKey属性（ListView控件），SortOrder属性（ListView控件），SubItemIndex属性，SubItems属性（ListView控件），Sorted属性（ListView控件）。ColumnHeaders属性（ListView控件返回ColumnHeader对象集合 应用PDF文件使用"pdfFactoryPro"试用版本创建 语objectListView说可以使用标准的集合方法（例如Remove方法）操作ColumnHeader对象。可通过ColumnHeader的索引或通过Key属性中 中的每个ColumnHeader。请参Add方法（ColumnHeaders集合）FindItem方法（ListView控件查找并返回ListView控件中ListItem对象 PDF文件使用"pdfFactoryPro"试用版本创建 应用语object.FindItem(string,value,index,FindItem部 描

必需的。对象表达式，其值是ListView必需的。指定欲查找的ListItem对象的字符串表达可选的。整数或常量，它指定字符串是否与ListItemText、SubitemsTag可选的。唯一标识对象集合成员并指定搜索起始位置的整数或字符串。若为整数，其值为Indx属性值；若为字符串，其y1可选的。指定项目的Text PDF文件使用"pdfFactoryPro"试用版本创建 设value常 描 match的设置值为

（缺省）ListItem对象的Text属性相匹配将字符串与ListItem对象的SubItems属性相匹配将字符串与ListItem对象的Tag属性相匹常 描 （缺省Text性由所搜索的整字开始时匹配成功。搜索条件非文本时忽略此设置 说

一个整数或常量，它指定若项目的Txt属性由所如指定文本为搜索条件则可使用 rtial，这样若ListItem对象的PDF文件使用"pdfFactoryPro"试用版本创建 ListItem，使用下列代码'创建ListItemDimitmXAsSetitmX= 请参控件），SubItems属性（ListView控件），ListView控件常量，Tag属性。示本示例将Biblio.mdb数据库中Publishers表的内容植入ListView控件中。同时也将FindItem方法的三个选项植入ComboBox控件。一个CommandButton包含FindItem方法的代码；单击按钮后将提示输入欲搜索的字符串，然后使用FindItem方法在ListView控件中搜索此字符串。如找到字符串则使用EnsureVisible方法滚动控件以显示找到的ListItem对象。要试用此例，请将、boBox及CommandButton控件放置在窗体上，并将代码粘贴到窗体的部分。运行示例并单击命令按钮。PDF文件使用"pdfFactoryPro"试用版本创建 DAO对象库 ，否则示例无法运行PrivateSub'为ColumnHeaderDimclmXAs'添加ColumnHeaders'除以ColumnHeader对象的数目。SetclmX=ListView1.ColumnHeaders._Add(,,"Company",ListView1.Width/3)SetclmX=ListView1.ColumnHeaders._Add(,,"Address",ListView1.Width/3)SetclmX=ListView1.ColumnHeaders._Add(,,"Phone",ListView1.Width/3)ListView1.BorderStyle=ccFixedSingle '设置BorderStyle属性。ListView1.View=lvwReport '设置View属性为报表型。Command1.Caption="&FindItem"'用FindItem选项标注OptionButton控件。Option1(0).Caption="Text"Option1(1).Caption="SubItem"Option1(2).Caption="Tag"PDF文件使用"pdfFactoryPro"试用版本创建 ListView1.FindItem=0'设置ListView控件的FindItemEnd'ListView'为数 DimmyDbAsDatabase,myRsAsRecordset'设置数据库为BIBLIO.MDB数据库。SetmyDb='设置recordset为PublishersSetmyRs=myDb.OpenRecordset("Publishers",'若当前记录不是最后一条记录，则添加ListItem'使用新对象 '设置Text属性为Name字段(myRS!Name)'设置SubItem(1)为Address字段(myRS!Address)。'设置SubItem(7)为Phone字段 WhileNotDimitmXAs 'ListItemDimintCountAs ''使用Add方法添加新的ListItem并为 设置对象'使 设'PDF文件使用"pdfFactoryPro"试用版本创建 SetitmX=ListView1.ListItems.Add(,,intCount=intCount+1'TagitmX.Tag="ListItem"& '用计数器值设置Tag'若Address字段不为空，则设置subitem1IfNotIsNull(myRs!Address)itmX.SubItems(1)=C