在用PB写程序的时候,经常会用到OCX控件,但是,由于PB本身的缺陷,OCX的控件的使用并不十分方便,在设置OLE对象的结构类型的属性的时候就会碰到问题。
举例来说,一个OCX控件,可以设置其字体,属性名叫Font,这个属性是一个结构,结构如下: Boolean Bold Integer Charset Boolean Italic String Name Currency Size Boolean Strikethrough Boolean Underline Integer Weight
在PB中,设置对象的属性一般是 ole_1.object.font = xxx 但是,此处xxx是什么呢?用一个PB的Struct来代替?实践证明这是不行的。我们可以用PB的变量oleobject来解决,示例如下:
oleobject ole_object int li_ret ole_object = create oleobject li_ret = ole_object.ConnectToNewObject("{0BE35203-8F91-11CE-9DE3-00AA004BB851}") ole_object.Name = '宋体' ole_object.size = 9 ole_object.Charset = 134 ole_object.Weight = 400 ole_1.object.font = ole_object ole_object.disconnectobject()
上面的例子中,关键在于ConnectToNewObject函数,其中的{0BE35203-8F91-11CE-9DE3-00AA004BB851}是这个ole控件的Font结构的ID,那么怎么取得这个ID呢?用PB的Browser工具可以查看到ole控件的ID,但不能查看到内部结构的ID,当然注册表中是有的,但查找起来太麻烦,我现在使用的方法是这样的。 用VB来做一个临时窗口,在临时窗口中放置这个控件,并修改这个控件的Font属性(VB可以直接修改OLE控件的属性,PB也可以,但并不是每次都可以,更奇怪的是,有时候修改保存了没用,这也是我写这个文章的原因),然后,用文本编辑器来查看这个窗口的frm文件,找到这个ole控件的属性块,在这个属性块中,可以看到Font属性的设置,示例如下:
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "宋体" Size = 9 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty
上文提到的{0BE35203-8F91-11CE-9DE3-00AA004BB851}可以在这个地方找到。 (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|