解决PB中不能用OpenUserObject实例化Line、Oval、Rectangle、RoundRectangle等窗口控件的问题

最近在网上看到网友们的阐述，有些不太具体，有些纯属胡说，下面给我一个比较实在的解决方法，这个解决方法没有调用Windows的API，而是利用PowerBuilder自身的新建Custom Visual的功能。

具体操作过程（问题的造成原因在我博客http://i.cn.yahoo.com/neonlight里有，这里不多废话了），创建好应用程序以及其中需要调用GraphicObject对象的窗口后，创建一个Custom Visual：

单击“新建(New)”，选择“PB Object”选项卡中的“Custom Visual”，随后工作区出现的操作对象类似窗口对象，把你想插入的GraphicObject对象控件，例如Rectangle插入其中，随后如果想在调用窗口中只显示这个控件时，可以把正在创建的“Custom Visual”的height和width都调整成插入控件的大小，并把GraphicObject对象控件的坐标调整为(x:0,y:0)。这样整个窗口仅仅能显示出你得这个GraphicObject对象控件，保存这个“Custom Visual”，取个文件名例如“uo_box”。

之后在你想动态生成控件的事件中写下如下代码：

uo_box uo_rectangle

OpenUserObject(uo_rectangle,100,100)  //在父亲窗口中0,0坐标处打开uo_rectangle

//将uo_rectangle放入窗口控件数组内，当然也可以不放进去 

w_main.Control[UpperBound(w_main.Control)+1] = uo_rectangle

 

//设置uo_rectangle的宽度、高度、坐标

uo_rectangle.width= 100

uo_rectangle.height = 100

uo_rectangle.move(400,100) //设置uo_rectangle的坐标，这里是放到400,100处

 

//设置这个uo_rectangle可见

uo_rectangle.visible = true

 

//当应用完这个控件，确定以后不再需要时，可以写如下代码销毁这个对象实例；

//否则庞大数量的动态生成控件可能会引起内存溢出错误。

if isvalid(uo_rectangle) then 

 CloseUserObject(uo_rectangle) 

end if

到这里，大功告成，你可以运行调试了。

转自：https://blog.csdn.net/u013274086/article/details/50547558

仅供参考，具体使用还要根据实际情况作修改。