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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

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

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1539 人关注过本帖

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

取消只看楼主加入收藏

yuma

来　自：银河系
等　级：贵宾
威　望：37
帖　子：1933
专家分：3012
注　册：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

来　自：银河系
等　级：贵宾
威　望：37
帖　子：1933
专家分：3012
注　册：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