vb.net画刷 vb实现简易绘画

在VB NET中，在Form_Load中创建graphics类，并绘制直线，为什么执行程序后发现直线绘制不出来？

1. 创建一个Graphics对象实例。

绘制图形必须创建Graphics对象。如果是在窗体上绘图，要使用下列代码创建Graphics对象；

Dim MyGraphics As Graphics = Me.CreateGraphics

如果是在PictrueBox里绘图，要使用下列代码创建Graphics对象；

Dim MyGraphics As Graphics = PictureBox1.CreateGraphics

2. 定义一个Brush对象，用来填充图形(如果你需要填充的话)。

如果填充封闭曲线或者多边形，必须创建Brush对象（或者Brush类的继承类对象），用来确定填充的颜色。例如下面的代码，创建了一个填充红色的画刷对象。在最后的括号里，用Color结构指定的枚举值，确定画刷的颜色。限于篇幅有关Color结构这里不展开，可能在后续博文里介绍。

Dim RedBrush As New SolidBrush(Color.Red)

VB.net中如何画图？

VB.net与VB不同。

VB.net已经有专门绘图vb.net画刷的类。

可以定义笔刷然后用Drawing类中vb.net画刷的方法绘制。

Private Sub DrawEllipse()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Private Sub DrawRectangle()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

vb.net GDI绘图刷新问题

绘图代码写在Paint事件中，如

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

Dim g As Graphics = Me.CreateGraphics

g.DrawLine(Pens.Red, 100, 100, 200, 100)

End Sub

'方法二：在 PictureBox1上显示图像----图画在Bitmap

PictureBox1.Image = Nothing

Dim wid As Integer = PictureBox1.ClientSize.Width

Dim hgt As Integer = PictureBox1.ClientSize.Height

Dim bm As New Bitmap(wid, hgt)

Dim g As Graphics = Graphics.FromImage(bm)

'画图代码

'画图代码

PictureBox1.Image = bm

PictureBox1.Refresh()

g.Dispose()

vb.net2010中如何在窗口中建立画布

'绘制图形vb.net画刷的三步曲

'1vb.net画刷，获得一个Graphics对象

Dim MyGraphics As Graphics

MyGraphics = Me.CreateGraphics

'2vb.net画刷，定义一个Pen对象vb.net画刷，用于绘制图形（轮廓线）

Dim MyPen As New Pen(Color.Black)

'3，定义一个Brush对象，用于填充图形（如果需要填充的话）

Dim MyBrush As New SolidBrush(Color.Orange)

MyGraphics.FillEllipse(MyBrush, 200, 200, 100, 100) '绘制一个实心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内

MyGraphics.DrawEllipse(MyPen, 200, 200, 100, 100) '绘制一个空心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内

vb.net中picturebox.paint和panel.paint的区别

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

e.Graphics.DrawRectangle(New Pen(Color.Red), 0, 0, 10, 10)

End Sub

Private Sub Panel1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

e.Graphics.DrawRectangle(New Pen(Color.Red), 0, 0, 10, 10)

End Sub

事实证明 都是有效果的 除非你代码有问题

在vb.net中，paintcanvas里面填满了颜色，我想通过点击一个按钮来完成清除整个画布内容的效果，

要用GreateGrahpics函数，比如要向 Panel1，填充颜色：

Dim g As Graphic=Panel1.CreateGraphics

Dim b as New Brush(Color.Blue)

g.FillRectangle(b,Panel1)

写的比较粗，意思就是这样的，你可以边看帮助边细细完成

vb.net画刷的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb实现简易绘画、vb.net画刷的信息别忘了在本站进行查找喔。