none
为什么画不出点来呢? RRS feed

  • 问题

  • 代码没有错,为什么画不出点来呢?
        Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
            Dim x As Integer = 8
            Dim y As Integer = 8

            Dim rect As Rectangle = Rectangle.FromLTRB(x - 4, y - 4, x + 4, y + 4)
            e.Graphics.DrawEllipse(SystemPens.ControlText, rect)
            e.Graphics.FillEllipse(SystemBrushes.ControlText, rect)
        End Sub
    End Class


    visual studio 2008
    2009年3月3日 7:11

答案

  •  Dim rect As Rectangle = Rectangle.FromLTRB(x - 4, y - 4, x + 4, y + 4)
            Dim pen1 As Pen
            pen1 = New Pen(Color.Red)
            Dim brush1 As Brush
            brush1 = New SolidBrush(Color.FromArgb(100, Color.Green))
            e.Graphics.DrawEllipse(pen1, rect)
            e.Graphics.FillEllipse(brush1, rect)

    颜色的问题已经解决。
    visual studio 2008
    • 已标记为答案 liunain021 2009年3月3日 12:22
    2009年3月3日 7:45

全部回复

  •  如果画出点,这种语句能不能画不同颜色的点?
    visual studio 2008
    2009年3月3日 7:13
  •  Dim rect As Rectangle = Rectangle.FromLTRB(x - 4, y - 4, x + 4, y + 4)
            Dim pen1 As Pen
            pen1 = New Pen(Color.Red)
            Dim brush1 As Brush
            brush1 = New SolidBrush(Color.FromArgb(100, Color.Green))
            e.Graphics.DrawEllipse(pen1, rect)
            e.Graphics.FillEllipse(brush1, rect)

    颜色的问题已经解决。
    visual studio 2008
    • 已标记为答案 liunain021 2009年3月3日 12:22
    2009年3月3日 7:45
  • 我试了没问题,你跟踪一下看代码运行了没有
    http://feiyun0112.cnblogs.com/
    • 已标记为答案 liunain021 2009年3月3日 8:06
    • 取消答案标记 liunain021 2009年3月3日 8:11
    2009年3月3日 7:46
    版主
  • Dim pen1 As Pen
            pen1 = New Pen(Color.Red)
            Dim brush1 As Brush
            brush1 = New SolidBrush(Color.FromArgb(100, Color.Green))
            e.Graphics.DrawEllipse(pen1, rect)
            e.Graphics.FillEllipse(brush1, rect)
    填充的颜色是半透明的
    而用   
    e.Graphics.DrawEllipse(SystemPens.ControlText, rect)
    e.Graphics.FillEllipse(SystemBrushes.ControlText, rect)
    填充的黑色是实心的。

    visual studio 2008
    2009年3月3日 8:15
  • feiyun0112 说:

    我试了没问题,你跟踪一下看代码运行了没有


    http://feiyun0112.cnblogs.com/



    有时候真实很奇怪。
    visual studio 2008
    2009年3月3日 12:20