锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net画线程序 vb编写简单的画图程序

IT技术generator

在VB NET中，在Form_Load中创建graphics类 ， 并绘制直线，为什么执行程序后发现直线绘制不出来？1. 创建一个Graphics对象实例 。
绘制图形必须创建Graphics对象 。如果是在窗体上绘图vb.net画线程序，要使用下列代码创建Graphics对象vb.net画线程序；
Dim MyGraphics As Graphics = Me.CreateGraphics
如果是在PictrueBox里绘图，要使用下列代码创建Graphics对象；
【vb.net画线程序 vb编写简单的画图程序】Dim MyGraphics As Graphics = PictureBox1.CreateGraphics
2. 定义一个Brush对象 ， 用来填充图形(如果你需要填充的话) 。
如果填充封闭曲线或者多边形，必须创建Brush对象（或者Brush类的继承类对象），用来确定填充的颜色 。例如下面的代码，创建了一个填充红色的画刷对象 。在最后的括号里，用Color结构指定的枚举值，确定画刷的颜色 。限于篇幅有关Color结构这里不展开，可能在后续博文里介绍 。
Dim RedBrush As New SolidBrush(Color.Red)
vb.net怎么画不同坐标的八叉直线[{"word":"VB.NET画直线方法\n该方法绘制一条连接由坐标对指定vb.net画线程序的两个点的线条vb.net画线程序 ， 所以vb.net画线程序我们需要指定这两个点的坐标，如下所示、\nDrawL in e(pen,x1.y1,x2,y2)或者DrawL in e(pen,Po in t1,Poin t2)\n下面示例将在PictureBox控件表面绘制一条直线、\nDim g As\nGraphics=Me.PictureBox\n1.CreateGraphics\nDim mpen As New\nPen(Color.Red)g.DrawLin e(mpen,0,80,0,160)\n也可以使用如下代码来实现一样的甲\n__\n"}]
VB.net中如何在picturebox画线，有什么函数？Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim g As Graphics = Graphics.FromImage(b)
g.Clear(Color.White)
Dim p As New Pen(Color.Black)
p.EndCap = Drawing2D.LineCap.ArrowAnchor
g.DrawLine(p, 30, PictureBox1.Height - 30, 30, 30)
g.DrawLine(p, 30, PictureBox1.Height - 30, PictureBox1.Width - 30, PictureBox1.Height - 30)
Dim i As Integer
Dim bs As New SolidBrush(Color.Green)
Dim po As New Point
po.X = 0
po.Y = PictureBox1.Height - 35
For i = 700 To 1000 Step 50
g.DrawString(i, Me.Font, bs, po.X, po.Y)
g.DrawLine(p, po.X + 28, po.Y + 5, po.X + 30, po.Y + 5)
po.Y -= (PictureBox1.Height - 100) / 6
Next
po.X = 30
po.Y = PictureBox1.Height - 30
For i = 0 To 40 Step 5
g.DrawString(i, Me.Font, bs, po.X, po.Y + 5)
g.DrawLine(p, po.X, po.Y + 2, po.X, po.Y)
po.X += (PictureBox1.Width - 100) / 8
Next
PictureBox1.Image = b
关于vb.net画线程序和vb编写简单的画图程序的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：w电脑型号是什么，电脑型号是什么样子的

    下一篇：移动硬盘怎么改电源，移动硬盘怎么改电源接口