怎样在VB.net中画一个点呢?

发布网友发布时间：2022-05-04 17:26

共2个回答

热心网友时间：2022-06-24 08:55

画点：
在PictureBox的Paint事件里面：
dim myGraphics=e.Graphics
Dim myPointArray As Point() = {New Point(0, 0), New Point(50, 30), New Point(30, 60)}
myGraphics.DrawPolygon(myPen, myPointArray)
画圆：
Dim g As Graphics
g = PictureBox1.CreateGraphics
g.FillEllipse(Brushes.Red, x, y, 10, 10)追问DrawPolygon是画多边形的啊，我说的是画点啊

追答不好意思，看错了，画点可以用bitmap类的SetPixel方法实现：
Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click
Dim bmp As New Bitmap(200, 100, Imaging.PixelFormat.Format32bppArgb)
bmp.SetPixel(10, 10, Color.Red) '在PictureBox1控件的（10，10）坐标，画一个红点
PictureBox1.Image = bmp
End Sub

热心网友时间：2022-06-24 08:56

其实画点就是画矩形啊，只要把边长设为一个像素就行