解决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”。
之后在你想动态生成控件的事件中写下如下代码，有任何问题请联系neonlight@live.cn：
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
到这里，大功告成，你可以运行调试了。
neonlight <neonlight@live.cn>，BLOG：http://blog.csdn.net/neonlight 转载请注明出处，谢谢！2008年02月10日 21:38:00