vb.net屏幕画笔 vbs绘制界面

vb.net中如何把picturebox定义为画布

定义一个画布，来源于picturebox

成都创新互联主要从事成都网站制作、网站建设、外贸网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务塔城,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575

Dim huabu As Graphics

huabu = picturebox.CreateGraphics

使用的时候还需要定义画笔

Dim pen As New Pen(Brushes.Black, 1)

然后就可以画图了

huabu.DrawLine(pen, 0, 0, 10, 10)

更多的关于绘图和坐标变换的东西可以参考

Dim myGraphics As Graphics = Me.CreateGraphics '声明并创建一个Graphics对象

Dim myPen As Pen = New Pen(Drawing.Color.Black, 3) '声明一个画笔，并设定颜色和粗细

myPen.DashStyle = Drawing.Drawing2D.DashStyle.Solid '线型，Solid是实线

myGraphics.DrawEllipse(myPen, 200, 200, 100, 100) '画圆，数值依次是：横坐标、纵坐标、宽度和高度（宽高相同为正圆，否则为椭圆）

myGraphics.Dispose() '释放Graphics占用的资源

VB.net与VB不同。

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

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

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()