VB.net在表单中心绘制矩形

Question

早上好社区

我想在表单的中心绘制一个矩形。另外，我想在这个矩形下画一些文字。

在文本中我认为我没有问题，我使用以下代码：

Dim sf As New StringFormat
        sf.LineAlignment = StringAlignment.Center
        sf.Alignment = StringAlignment.Center

        ' Line with the problem
        e.Graphics.FillRectangle(Brushes.Beige, CInt(Local_Form.Width / 2), CInt(Local_Form.Height / 2), 200, 100)

        e.Graphics.DrawString(Local_Text, _
                              New Font(MyCloud.Settings.Settings_Forms.Font.Name, 30), _
                              Brushes.GreenYellow, _
                              Local_Form.Width / 2, Local_Form.Height / 2, sf)

但是，我对矩形有问题。有人可以帮帮我吗？

Answer 1

两件事，第一件事是你将矩形的左上角设置在中心，你需要从你的上下左侧位置减去一半的宽度和一半的高度。此外，您应该使用ClientRectangle来获取没有Chrome的实际工作表面。

e.Graphics.FillRectangle(Brushes.Beige, CInt(Local_Form.ClientRectangle.Width / 2) - 100, CInt(Local_Form.ClientRectangle.Height / 2) - 50, 200, 100)