如何判断是 dragobject还是drawobject

[zhoulianghua926]

写了一个PB窗口控件的自动缩放的函数，但有一不足：如果窗体上有线段、椭圆、矩形和园角矩形drawobject的控件时就会出错。因为只写了dragobject的判断。但不知dragobject 和 drawobject 如何判断。
谢谢！！！！！

[klbt]

drawobject只有四种，你可以通过control数组的TypeOf()函数判断，如果是Line!、Oval!、Rectangle!、RoundRectangle! ，则是drawobject。