为什么不是中心点？ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 为什么不是中心点？

标题：为什么不是中心点？

取消只看楼主

yuma

来　自：银河系
等　级：贵宾
威　望：33
帖　子：1883
专家分：2904
注　册：2009-12-22
结帖率：89.13%

楼主

问题点数：0 回复次数：2

为什么不是中心点？

为什么Form1.PSet (Form1.Width / 2, Form1.Height / 2), vbBlue 不是中心点，这不科学！

程序代码：

Private Sub Form_Load()
Form1.Show
Form1.DrawWidth = 3
Form1.PSet (Form1.Width / 2, Form1.Height / 2), vbBlue
Form1.PSet (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), vbRed
End Sub

搜索更多相关主题的帖子: End　中心　 Sub　Private　Show　

2022-09-26 18:24

yuma

来　自：银河系
等　级：贵宾
威　望：33
帖　子：1883
专家分：2904
注　册：2009-12-22

第 2 楼

得分:0

以下是引用cwa9958在2022-9-28 08:29:20的发言：

红点肯定是在窗口中心点的。
至于蓝点，因为width和height是整个界面的尺寸，而窗体的坐标原点是在窗口的左上边。Form1.Width / 2, Form1.Height / 2比窗口的中心点大，所以是不会在窗口的中心点的。
要在中心点应该要这样：
    a = (Form1.Width - Form1.ScaleWidth) / 2
    b = Form1.Height - Form1.ScaleHeight - a

    Form1.PSet (Form1.Width / 2 - a, Form1.Height / 2 - b), vbBlue

是不是要这样的？

这样才对
b = (Form1.Height - Form1.ScaleHeight) / 2