7,763
社区成员
发帖
与我相关
我的任务
分享
Form1.ScaleMode = 3
Picture1.ScaleMode = 3
Debug.Print Picture1.ScaleLeft, Picture1.ScaleTop
Picture1.Circle (10, 10), 10, vbRed
Picture1.ScaleWidth = -Picture1.ScaleWidth
Debug.Print Picture1.ScaleLeft, Picture1.ScaleTop
Picture1.Circle (-10, 20), 10, vbBlue