vb.net画线 vb程序代码

VB.NET画线的问题

picArea.Image = Image.FromFile(Application.StartupPath "\Images\default.png")

Dim mybitmap As Bitmap

'mybitmap = New Bitmap(picArea.Width, picArea.Height)//你这样是创建了一个空白的底片

mybitmap = New Bitmap(picArea.Image) '这才是利用了图片的背景

picArea.Image = mybitmap

Dim Graph As Graphics = picArea.CreateGraphics

Graph = Graphics.FromImage(picArea.Image)

Graph.DrawLine(Pens.Blue, 0, 0, 111, 111)

Graph.DrawLine(Pens.Red, 111, 111, 200, 0)

相关问答

Q1: 怎么用VB。net 画直线

dim bmp as new bitmap(width,height)dim g as graphics=graphics.fromimage(bmp)g.drawlines(pen.blue,20,20,100,20)backgroundimage=bmp

Q2: 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

Q3: vb和vb.net 在picturebox 中绘制直线如何绘制

绘图是系统内部操作的，不需要懂原理

方法就在那里，只有会用和不会用，你的代码告诉它绘制，它就会绘制。它（方法）究竟如何去绘制的并不是重点，反正它会绘制。

drawline（绘线）方法很简单，第一个参数是pen,它确定线条的颜色、宽度和样式。第二、第三个参数都是point类型，确定两个点的位置，绘制直线。

Q4: 在vbnet中，我在picturebox里面画线，用滚动条拉动picturebox显示最新画出的图

vb.net没有自动重画功能vb.net画线，要在Paint事件中写代码对图形重画。

另外一种情况，如果在Image属性设置了一幅图像，图像能够保持完整性vb.net画线的。所以你可以把图形绘在位图上，把位图绑定到Image属性上。

先绑定一幅位图：

Dim bm as New BitMap(800,600)

PictureBox1.Image=bm

作图时不是对图片框，而是在位图上作图。

dim gr As Grapthics=Graphics.FromImage(bm) '建立位图的绘图设备

接下来就可用gr 的绘图方法作图

作完图，PictureBox1.Refresh 刷新一下。

Q5: vb.net怎么画不同坐标的八叉直线

[{"word":"VB.NET画直线方法\n该方法绘制一条连接由坐标对指定的两个点的线条，所以我们需要指定这两个点的坐标，如下所示、\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画线的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb程序代码、vb.net画线的信息别忘了在本站进行查找喔。