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

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

相关问答

Q1: VB.net 涂鸦程序在怎么做

这个是用css+javascript实现vb.net屏幕画笔的vb.net屏幕画笔，vb.net 不行。

Q2: vb.net中绘制圆的代码是什么?

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占用的资源

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

定义一个画布，来源于picturebox

Dim huabu As Graphics

huabu = picturebox.CreateGraphics

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

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

然后就可以画图了

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

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

关于vb.net屏幕画笔和vbs绘制界面的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。