在用PB写程序的时候，经常会用到OCX控件，但是，由于PB本身的缺陷，OCX的控件的使用并不十分方便，在设置OLE对象的结构类型的属性的时候就会碰到问题。
举例来说，一个OCX控件，可以设置其字体，属性名叫Font，这个属性是一个结构，结构如下：
BooleanBold
IntegerCharset
BooleanItalic
StringName
CurrencySize
BooleanStrikethrough
BooleanUnderline
IntegerWeight
在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}可以在这个地方找到。
最新评论