vb和net怎么画线 vb画图

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

相关问答

Q1: VB.net利用visio进行2次开发，怎么调用工具箱？或者说怎么画出一条单纯的线段，或者怎么定义字体的格式？

在Visio里面启用宏vb和net怎么画线，用录制宏vb和net怎么画线的方式进行vb和net怎么画线你要的操作vb和net怎么画线，然后看看宏里面是怎么写vb和net怎么画线，然后通过改写，就可以实现在VB.net里面对Visio进行二次开发了。宏里面的很多VBA代码都可以直接在VB.net里面使用的

Q2: vb.net 画二维数组的曲线图

Private Sub PictureBox2_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox2.Paint

Dim points As New List(Of Point)

points.Add(New Point(0, 0))

points.Add(New Point(1, 10))

points.Add(New Point(3, 15))

points.Add(New Point(14, 0))

points.Add(New Point(20, 60))

points.Add(New Point(40, 20))

points.Add(New Point(70, 50))

e.Graphics.DrawCurve(Pens.Red, points.ToArray)

End Sub

供参考vb和net怎么画线，points可设为全局变量vb和net怎么画线，那样add随便在哪增加vb和net怎么画线，想要看见看上去动态的图vb和net怎么画线，那就在新增完n个后vb和net怎么画线，继续增加n+1个之时，放弃points中的第一个。

Q3: 在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)

Q4: VB.NET利用visio进行2次开发，怎么设置定义出的矩形的属性？怎么画线段？

你可通过录制宏来查看代码是怎么写的，去年我写过一段时间的visio，都是这么弄出来的。

Q5: vb.net drawline画不出线

Form_load事件运行vb和net怎么画线的时候vb和net怎么画线，窗体里面vb和net怎么画线的控件尚未初始化vb和net怎么画线，以下代码经测试可行vb和net怎么画线：

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

        e.Graphics.DrawLine(Pens.Blue, 0, 0, 111, 111)

    End Sub

vb和net怎么画线的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb画图、vb和net怎么画线的信息别忘了在本站进行查找喔。