CAD控件：PowerBuilder开发使用控件入门

mxdwg

成都梦想凯德

1.        在PB中引入控件：        3

2.        打开DWG文件        8

1. 在PB中引入控件：

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

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

file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml/wpsDEFB.tmp.jpg

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

file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml/wpsDF2B.tmp.jpg

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

file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml/wpsDF3C.tmp.jpg

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

file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml/wpsDF4C.tmp.jpg

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

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

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

插入过程如下图：

file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml/wpsDF5D.tmp.jpg

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

// mxwindow是窗口名

open(mxwindow)

如下图操作:

file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml/wpsDF6D.tmp.jpg

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

file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml/wpsDF7E.tmp.jpg

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

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

file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml/wpsDF7F.tmp.jpg

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

file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml/wpsDF90.tmp.jpg

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

// 加载工具条

ole_1.object.LoadToolBar(ole_1.object.GetOcxAppPath() + "\\MxDraw-ToolBar.mxt",true)

// 显示工具条

ole_1.object.ShowToolBars = true

2. 打开DWG文件

在界面上，增加一个按钮，双击按钮，在按钮的单击事件加入如下代码：

ole_1.object.DoCommand(1)

该代码，开始执行控件的一个用户自定义命令，命令的id为1，这个id值用户可以随便取值，它是用来标识该命令，多个命令之间，id值不能重复。在随后，响应控件的命令执行事件，在该事件中，打开dwg文件。

增加控件的命令执行事件，如下图：

前面的DoCommand的调用后，程序将会跳转到这里执行，控件要求所有与用户交互的操作，都必须放在命令事件中。

file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml/wpsDF91.tmp.jpg

调用控件打开dwg文件函数，打开h盘的1.dwg文件代码:

// icommandid值 等于1，就我们要执行的，打开文件命令，这个值与前面调用的DoCommand传的值要对上。

if icommandid = 1 then

        // 打开dwg文件。

        ole_1.object.OpenDwgFile("h:\\1.dwg")

end if

最终运行结果:

file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml/wpsDFA1.tmp.jpg