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)
更多的关于绘图和坐标变换的东西可以参考
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占用的资源
VB.net中如何画图?
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()
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屏幕画笔 vbs绘制界面
URL地址:http://scyanting.com/article/dopspdi.html