VBレスキュー(花ちゃん) の Visual Basic 2010 用掲示板(VB.NET 掲示板)

タイトル： 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)

        ' 中心が画面の中心で半径が100㎜の緑の円を描画します。
        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)
を上記プログラムの＊の下に入れると今度は画面に円が表示されなくなります。
（恐らく画面がはみ出ているのかと思います。）

どの部分を改善したら良くなりますでしょうか？
お忙しいところ申し訳ありませんが、ご指導のほど何卒宜しくお願い申し上げます。

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

塗りつぶし（黒）の円をPC画面中央に配置する

ゆきみち

No.11384

Re: 塗りつぶし（黒）の円をPC画面中央に配置する - 魔界の仮面弁士 15/04/11-02:10 No.11385
- Re^2: 塗りつぶし（黒）の円をPC画面中央に配置する - ゆきみち 15/04/12-21:53 No.11386
  - Re^3: 塗りつぶし（黒）の円をPC画面中央に配置する - 魔界の仮面弁士 15/04/13-11:21 No.11387
    - Re^4: 塗りつぶし（黒）の円をPC画面中央に配置する - ゆきみち 15/04/13-21:33 No.11390
      - Re^5: 塗りつぶし（黒）の円をPC画面中央に配置する - 魔界の仮面弁士 15/04/14-10:57 No.11391
        
        Re^6: 塗りつぶし（黒）の円をPC画面中央に配置する - ゆきみち 15/04/15-19:29 No.11398
        
        Re^7: 塗りつぶし（黒）の円をPC画面中央に配置する - 魔界の仮面弁士 15/04/15-20:20 No.11400
        
        Re^8: 塗りつぶし（黒）の円をPC画面中央に配置する - ゆきみち 15/04/15-22:22 No.11401
        
        Re^9: 塗りつぶし（黒）の円をPC画面中央に配置する - 魔界の仮面弁士 15/04/16-03:29 No.11402
        
        Re^10: 塗りつぶし（黒）の円をPC画面中央に配置する - ゆきみち 15/04/16-08:22 No.11403
        
        Re^11: 塗りつぶし（黒）の円をPC画面中央に配置する - 魔界の仮面弁士 15/04/16-10:08 No.11404
        
        Re^12: 塗りつぶし（黒）の円をPC画面中央に配置する - ゆきみち 15/04/20-22:07 No.11408

タイトル	： Re^2: 塗りつぶし（黒）の円をPC画面中央に配置する
投稿日	： 2015/04/12(Sun) 21:53
投稿者	：ゆきみち

古いスレッドにレスはつけられません。