pb 窗体控件等比例缩放

别人写的！可以实现等比例缩放效果! 1.实例变量：Int ii_width,ii_height 2.OPEN事件加入： ii_width = This.Width ii_height = This.Height 3. 在RESIZE事件中加入： Int li_value DragObject lw_obj For li_value = 1 To UpperBound(This.Control[])         lw_obj = control[li_value]         lw_obj.x = lw_obj.x * (NewWidth / ii_width)         lw_obj.width = lw_obj.width * (NewWidth / ii_width)         lw_obj.y = lw_obj.y * (NewHeight / ii_height)         lw_obj.height = lw_obj.height * (NewHeight / ii_height) Next ii_width = NewWidth ii_height = NewHeight