PB中如何設置OLE對象的結構類型的屬性

在用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}可以在這個地方找到。