vb.net图片框上画图,vb中图片框添加图片代码

如何在vb中的picturebox 里画图?

Sub Form_Click()

创新互联建站专注于通山企业网站建设,自适应网站建设,成都做商城网站。通山网站建设公司,为通山等地区提供建站服务。全流程定制网站，专业设计，全程项目跟踪，创新互联建站专业和态度为您提供的服务

Dim CX, CY, Radius, Limit ' Declare variable.

Picture1.AutoRedraw = True

Picture1.ScaleMode = 3 ' 以像素为单位。

CX = Picture1.ScaleWidth / 2 ' X 位置。

CY = Picture1.ScaleHeight / 2 ' Y 位置。

If CX CY Then Limit = CY Else Limit = CX

For Radius = 0 To Limit ' 半径。

Picture1.Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)

Next Radius

For I = 0 To 50 Step 2 ' Set up loop.

F = I / 50 ' 执行中间。

f1 = 1 - F: f2 = 1 + F ' 计算。

Picture1.Line (CX * f1, CY)-(CX, CY * f1) ' 画左上角。

Picture1.Line -(CX * f2, CY) ' 画右上角。

Picture1.Line -(CX, CY * f2) ' 画右下角。

Picture1.Line -(CX * f1, CY) ' 画左下角

ForeColor = QBColor(I Mod 15) ' 每次改变颜色。

Next I

SavePicture Picture1.Image, "z:\test.bmp"

End Sub

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中如何在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和vb.net 在picturebox 中绘制直线如何绘制

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

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

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

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

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

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

先绑定一幅位图：

Dim bm as New BitMap(800,600)

PictureBox1.Image=bm

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

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

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

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