在Visual Foxpro中使用ActiveX控件

２００２年２＿　电　脑　学　习　摹ｌ囊　在Ｖｉｓｕａｌ　Ｆｏｘｐｒｏ中使用ＡｃｔｉｖｅＸ控件　周晓飞　摘要舟主苷在Ｖｉｓｕａｌ　Ｆｕｒ．Ｐｒｏ中使用ＡｅｄｖｅＸ控件的方法段应用示例　关键词　Ｖｉｓｔｔｌａ　ＦｏｘＰｒｏ　ＡｃｔｉｖｅＸ控件　应用　ｕｓｉｎｇ　ＡｃｔｉｖｅＸ　Ｃｏｎｔｒｏｌ　ｉｎ　Ｖｉｓｕａｌ　Ｆｏｘ－ｐｒｏ　ｚｂｏａＸｉａｏｆｅｔ　Ａｌ￣ａ＇ａｃｔ　Ｔｈｉｓ　ｐＢｐｅ　ｐｒｅｓｅｎｔｓ　ｔｈｅ　ｍｅｔｈｏｄｓ　ｔｏ　ｕｔ４ｅ　ＡｃｔｉｖｅＸ　ｃｏｎｔｒｏｌ　ｉｎ　ＶｉｓｕＭ　Ｆｏｘｐｒｏ　ａｎｄ　ｉｔｓ啊　叩ｋ　Ｋｅｙｗｅｒｄ　Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　ＡｃｆｉｖｅＸ　Ｃｏｎｔｒｏｌ　Ａｐｐｌｉｃａｔｉｏｎ　ＡｅｔｉｖｅＸ控件是徽鞔公司根据ＣＯＭ（Ｃｏｍｐｏｎｅｎｔ　ｏｂｊ￣ｔ　光标：　Ｓｌ￣ｅ１）模型的规范开发出来韵。ＡｃｔｉｖｅＸ控件是封装了属　（４）在表单的适当位置上按下鼠标左键井拖动，这时　性、事件和方祛的对象。大多数ＡｃｔｉｖｅＸ控件和对象可咀向　会看到一个表示绘制控件大小的虚线框；　Ｖｉｓｕａｌ　ＦｏｘＰｒｏ中添加新的对霉．包括新型的文本框、日历、　（５）当虚线框达到所需大小后．松开鼠标左键．即可将　计算器以及其他复杂的对象。因此．将一个ＡｅｄｖｅＸ控件台　ＴｒｅｅＶｉｅｗ控件添加到表单中了。　并到Ｖｉｓｕａｌ　ＦｏｘＰｒｏ后，就可以像使用任何Ｖｉｓｕａｌ　ＦｏｘＰｒｏ基　．　２　ＴｒｅｅＶｉｅｗ控件的一性　类一样来使用其中的对象。奉文结合其体的ＴｒｅｅＶｉｅｗ控件　介绍如何在ｖ＿啊ｕａｌ　ＦｏｘＰｒｏ中使用Ａｃｔｉｖｅ，Ｘ控件。　ＴｒｅｅＶｉｅｗ控件显示Ｎｏｄｅ对象的分层列表．每个　Ｎｏｄｅ对象均由一个标签和～个可选的位图组成。Ｔｒｅｅ－　１在衰单中添加ＴｒｅｅＶｉｅ￣控件　Ｖｉｅｗ控件一般用于显示能被有效地分层显示的各类信　在向表单褥加ＴｒｅｅＶｉｅ￣ｖ控件之前，首先应在世项Ｗ　息。　话框中选取Ｔｔ＇ｅｅＶｉｅｗ控件．并将它添加到　表单控件　工具　Ｎｏｄｅ对象是ＴｒｅｅＶｉｅｗ控件中的一项：它包古图像和　栏中，然后才可以通过工具栏向表单中添加ＴｍｅＶｉｅｗ控　文本。Ｎｏｄｅｓ集合包古一个或多个Ｎｏｄｅ对象。可以使用标　件。方法如下：　准的集合方法（例如Ａｄｄ和Ｒ艇哪ｅ方法）操作Ｎｏｄｅ　（１）在Ｖｉｓｕａｌ　ＦｏｘＰｒｏ中执行　工具　菜单中的　选项　命　对象。可咀按其索引或存储在Ｋｅｙ属性中的唯一键来访问　令，打开世项埘话框；　集合中的每个元素。为选择指定的Ｎｏｄｅ对象．必须通过它　（２）在对话框中单击　控件　标签，打开　控件　选项卡；　的Ｉｎｄｅｘ属性或Ｋｅｙ属性的值去引用它。　（３）在啦件　选项卡中单击　Ａｃ山ｅｘ　单选按钮，就可Ｂｌ　在Ｔｒｅｅｖｌｅｗ控件的Ｎｏｄｅｓ集合中添加一个Ｎｏｄｅ对　在　选定　列表中看到系统中所有的ＡｃｔｉｖｅＸ控件：　象：ｏｂｊｅｃｔ．Ａｄｄ（ｒｅｌａｔｉｖｅ．ｒｅｌａｌｉｏｍｈｉｐ，ｋｅｙ，ｔｅｘｔ，＿衄　髀ｓｅ－　（４）在　选定　列表中单击＂ＭｉｃｒｏＳｏｈ　Ｔｒｅｅｖｉｅｗ　Ｃｏｎｔｍｌ　ｌｅｃｔｅｄｉｍ￣）Ｎｏｄｅｓ集合是～个基于１的集合。在添加　６，０版　左面的复选框．选定该控件；　Ｎｏｄｅ对象时．它被指派一个索引号．该索引号被存储在　（５）在　选项　对话框中单击　设置为默认值　按钮，可以　Ｎｏｄｅ对象的Ｉｎｄｅｘ属性中。这个最新成员的Ｉｎｄｅｘ属性　将选定的ＡｅｔｉｖｅＸ控件设置为默认值，丽不必在每次启动　值就是Ｎｏｄｅ集合的Ｃｏｕｎｔ属性的值。因为Ａｄｄ方法返　Ｖｉｓｕａｌ　ＦｏｘＰｒｏ后进行重新设置。　回对新建立的Ｎｏｄｅ对象的引用．所以使用这个引用来设　在表单中褥加ＡｅｔｉｖｅＸ控件的方法如下：　置新Ｎｏｄｅ的属性十分方便。下面介绍一下节点几个属　（１）在表单设计器中的　表单控件　工具栏中单击　查看　性：　类　按钮，打开一个快捷菜单：　ｒｅｌａｔｉｖｅ是可选的。它表示已存在的Ｎｏｄｅ对象的索引　（２）执行菜单中的＂ＡｅｔｉｖｅＸ控件　命令，就可以在　表单　号或键值。而新节点与已存在的节点间的关系．可在下一个　控件　Ｊ＝其栏中看到所选定的Ｔ￣ｅｅＶｉｅｗ控件；　参数ｒｅｌａｔｉｏｎｓｈｉｐ中找到。　（３）在　表单控件　工具栏中单击要添加到表单中的　ｒｅｌａｔｉｏｎｓｈｉｐ是可选的。它表示指定的Ｎｏｄｅ对象的相　ＴｒｅｅＶｉｅｗ控件按钮．这时就可咀看到光标指针变成十字型　对位置　如设置值中所述。ｒｅｌａｔｉｏｎｓｈｉｐ的设置值是：　周晓Ｅ南京经济学院信息中心＿副教授（２１０００３）　收稿日期：２００１一∞一∞　・４５・　维普资讯 http://www.cqvip.com

ｔｖｗＦｉｍｔ为常数，０为值。它表示旨的节点。该Ｎｏｄｅ　地观察到一个年级中包含几个专业．一个专业包含几个班　和在ｒｅｌｍｌｖｅ中被命名的节点位于同一层，并位于所有同　级．一个班级又有多少学生。该表单可以实现多个年级的显　层节点之前。　示．年级节点　年级节点之间是同级关系，仅仅是第二个项　ＴｖｗＬ，￣ｌ为常数，１为值。它表　是后的节点。该Ｎｏｄ　目　节点排在第一个之后。而专业节点是年级节点的＿，节　在ｒｅｌａｔｉｖｅ中被命名的节点位于蚓一层，井位　所有同　点，班级节点是专业节点的ｆ节点，学生节点是班级节点的　层节点之后。　子节点。　ＴｖｗＮｅ￣为常数．２为缺省值。它表示下一个节点。该　Ｎｏｄｅ位于在ｒｅｌａｔｉｖｅ中被命名的节点之后。　表ｌ　ＴｖｗＰｒｅｖｉｖｕｓ为常数，３为值。它表示前一十节点。该　字段名　字段类型　字段宽度　含义　８　学号　Ｎｏｄｅ位于在ｒｅｌａｌｉｖｅ中被命名的节点之前。　８　姓名　ＴｖｗＣｈ￣为常数．４为缺省值。它表尔于节点。该　ｊ【ｉⅡ　ｎｇ　１６　秉名　Ｎｏｄｅ成为在ｒｅｌａｔｉｖｅ中被命名的节点的予节点。　注意如粜在ｍｌａｄｖｅ中没有被命名的Ｎｏｄｅ对象，姗　新节点被放在节点顶层的最后位簧。　ｋｅｙ足可进的。它表　节点中唯一的字符串，可用于用　Ｉｔｅｍ方法检索Ｎｏｄｅ。　ｔｅｘｔ是必需的。它表示在Ｎｏｄｅ中出现的字符串．即节　点的名称。　ｉ耐　是整数或字符串，它唯一地标　Ｎｏｄｅｓ集台的　一个成员。整教是Ｉｎｄｅｘ属性的值．字符串是Ｋｅｙ属性的　值　ＦｕＩＩＰａｔｈ属性．这个属性返同在Ｔｒ￣Ｖｉｅｗ控件中引ｊ｛ｊ　的Ｎｏ‘ｌｃ对象的完整琨定路径。当赋予该属性为字符串变　量时，该字符串被设为具有指定索弓『的ＦｕｌｌＰａｔｈ节点。　ｈｔｄｅｍａｄｏＢ属性返网或设置控件中村象的缩进宽　度。　Ｌａ１￣．ｌＥｄｉｔ属性返回或设簧一个值，它确定是再可以编　辑在中的Ｎｏｄｅ对象的标签。　凰１　３　ＴｒｅｅＶｌｅｗ控件应用示倒　下面的ｉ【６｛程序实现ＴｒｅｅＶｉｅｗ控件韧始化工作，即表单　中的Ｏｌｅｏ￣ｎｔｒｏｌＩ．ｉａｉｔ事件填写源程序中所有代码　有。‘‘个学生表（抽．ｄｂｆ），结构妞表１：　萁Ｌ｝】学号的８个字符的含义分别为：ｔ、２两个字符表　参考文献　；年级，３．４两个字符表示々业，５、６两个字符表示班级，７、　１余锋，祝晓鹰．用Ａｃ　ｖｅｘ控件实现目录追历．北京：电脑　８两个字符表示序号　编程技巧与维护，２００１（４）．　设计一表单如图所示，表单中ＴｒｅｅＶｉｅｗ控件能够按学　２际业斌．巧用ＶＢ的ＡｃｆｉｖｅＸ控件制作视频播放器一　京：　号将学生显球为年级、专业、班级和学生这样　层运级包古　电脑编程技巧与维护．２００１（４）　的芙系。只要简单地单击每层左边的节点　号就能报直观　Ｓｅｔ　ｄｅｆａｔｏ　ａ：、　ｔｈｉｓ．ａ，，ｄｅｓ．ｍ蛐‘，ｎｊ，ＢＩＬｂｓ　，２）＋　年级　）　ｔｈｉｓ，ｎｏ　．ａｄｄ（ｚｙ．，４，ｂｊ，ＢＬ１ｂＢｔｄｂｉ，６］瑚’　ｅｎｄ　∞ｄｊｆ　ｓｅｔ・，ｔｌａｅｒｔｏ　ｘｈ　］ａｓｔｎｊ＝ｎｊ　ｌ　ｉ　０　ｌａｓｍｉ＝”　ｚ２＝－￣＇＋ｓａｂｓｔｒ（ｘｈ，１，４）　ｘｓ　＋　］ａｓｔｚｙ＝　ｉｒ　ｚｙ＃］ｔｍｔｚｙ　ｌｍｉ，ｉ＝　ｔｈＬｓ　ｔｔｏｄｅｓ　ｄ（ｎｊ，４．ｚｙ　ｂｎ啊．４）＋　专业１　ｅｎｄｓｃａｎ　ｌａｍｘｓ＝　曲ｄｉＹ　（以上程序在Ｖｉｓｕａｌ　Ｆ￣Ｐｒｅ　５．０下测试通　１拈Ｉｚ　过）　＝　ａ　＋ｓｕ　＾　，ｌ，２｜　ｂｊ＝＇ａ＇＋ｓｕｂｓｌ　ｘｈ．】　ｉｆ畸堋　Ｉ　ｎｊ　ｉｆ　搠ａ“ｂｊ　・４６・