Question

我们使用的PB9.0,在百度里搜索下载的，安装后，运行PB软件。

新建一个pb工作空间， 点击[ File ]=>[ New ]，出来新建窗口，如下图：

在新建的工作空间，新建一个应用，点击[ File ]=>[ New ]=>[ Target ]，如下图：

新一个窗口，点击[ File ]=>[ New ]=>[ PB Object ]，如下图：

点击[ File ]=>[ Save As ]保存新建的窗口，并给它取名：

点击[ Insert ]=>[Control ]=>[ OLE..]插入OLE对象，在出来的界面上，选择[ InsertControl ],这时要注意，在有些系统上，PB会突然蹦溃退出，在百度上搜索原因，是系统中注册的某些控件与PB兼容性有问题，PB在搜索所有控件时，遇到有问题控件时，就出错了。

我们解决办法时，安装了一个WinXp的虚拟机，在虚拟机里安了PB软件，然后再做上面的操作，就能成功进入该页面。因为虚拟机的WinXp系统软件安装的非常少，没有打系统补丁，环境相当非常干净，不存在有兼容问题的控件，所以PB能成功进入。

在虚拟机里，把控件插入到窗口上，然后再保存整个工程，再把工程文件拷贝到真机上，再用PB打开就行了。插入过程如下图：

点击右边的[ testmxdraw ]应用，再点下边的[ open ]标签，为open事件增加打开窗口代码:

// mxwindow是窗口名
open(mxwindow)

如下图操作:

点击[ Run ]=>[ Run testmxdraw ]运行程序，如下图：

运行后，你会发现，加载的控件没有工具条，菜单栏，这是因为PB没有正确把控件默认参数输入，所以需要在控件初始完成事件中，显示去加载工具条，和菜单栏。

响应控件的初始完成事件，在控件对像上右键，在弹出菜单，点击[ Script ],如下图：

在弹出的窗口，选择[ initcomplete ]事件如下图:

在该事件，加入如下代码，加载控件工具条：

// 加载工具条
ole_1.object.LoadToolBar(ole_1.object.GetOcxAppPath() + "\\MxDraw-ToolBar.mxt",true)
// 显示工具条
ole_1.object.ShowToolBars = true