C# と VB.NET の質問掲示板

■No33526 (ken さん) に返信
> こんにちは
> 
> VB2003+WinXP SP2で開発しています。
> 以下のコードで、１ドットの点を書こうとしたのですが
> でき上ったファイルをMSPAINTで見ると、2×2の黒い点が描画されてしまいます。
> 
> g.DrawRectangle(p, x, y, 1, 1) を g.DrawLine(p, x, y, x, y)に変えてみたら
> 何も描画されてませんでした。
> 
> Dim bmp As New Bitmap(32, 32)
> Dim g As Graphics = Graphics.FromImage(bmp)
> g.Clear(Color.White)
> Dim penB As New Pen(Color.Black, 1)
> Dim x As Integer=0
> Dim y As Integer=0
> 
> g.DrawRectangle(p, x, y, 1, 1)
> bmp.Save("hoge.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
> 
> どうすれば、１ドットの点が描けるのでしょうか？
> 何か設定が足りませんか？
> よろしくお願い致します。
> 

  Dim x As Double, mag As Double
        Dim px As Long, py As Long
        Dim myPen2 As New Pen(Color.Red, 1)

        mag = 100
        For x = -2 To 2 Step 0.1
            px = mag * x
            py = mag * (x * x * x - x)
            e.Graphics.DrawRectangle(myPen2, px, py, 1, 1)
        Next
参考にしてください