タイトル : Re^2: 塗りつぶし(黒)の円をPC画面中央に配置する 投稿日 : 2015/04/12(Sun) 21:53 投稿者 : ゆきみち
返信ありがとうございます。 私が今書いているプログラムは以下の通りです。 Public Class Form1 Private Sub form1_paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Dim gr As Graphics = Me.CreateGraphics Dim x, y, decPC_Yoko As Integer decPC_Yoko = 255 '横方向の画面の大きさ* x = (Me.Size.Width / 2) y = (Me.Size.Height / 2) ' 中心が画面の中心で半径が100oの緑の円を描画します。 Dim r As Integer = 100 gr.FillEllipse(Brushes.Black, x - r, y - r, r * 2, r * 2) gr.Dispose() End Sub End Class このプログラムですると円は中央に来ているとは思いますが、半径の指定がうまく出来ません。 mm表示で出来るようにと gr.PageUnit = GraphicsUnit.Millimeter decHaba = (Me.Size.Width * 2.54 * 10) / (gr.DpiX * decPC_Yoko) を上記プログラムの*の下に入れると今度は画面に円が表示されなくなります。 (恐らく画面がはみ出ているのかと思います。) どの部分を改善したら良くなりますでしょうか? お忙しいところ申し訳ありませんが、ご指導のほど何卒宜しくお願い申し上げます。 |