1

おはようコミュニティ

フォームの真ん中に長方形を描きたいです。また、この長方形の下にテキストを描画したいと思います。

問題はないと思うテキストで、次のコードを使用します。

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)

ここに画像の説明を入力してください

しかし、長方形に問題があります。誰かが私を助けることができますか？

4

1 に答える 1

3

2つは、長方形の左上隅を中央に設定することです。左上の位置から幅の半分と高さの半分を引く必要があります。ClientRectangleまた、Chromeなしで実際の作業面を取得するためにを使用する必要があります。

e.Graphics.FillRectangle(Brushes.Beige, CInt(Local_Form.ClientRectangle.Width / 2) - 100, CInt(Local_Form.ClientRectangle.Height / 2) - 50, 200, 100)
于 2012-09-28T15:44:12.367 に答える