vb点虐连续画线函数 vba连续区域表示

VB 如何在picture中用line方法连续画线

VB可用object.Line - (x2, y2)写法实现在对象上绘制连续折线。

Line 方法，在对象上画直线和矩形。

以下是具体实现绘制曲线的代码：

Option Explicit

    Const PI = 3.14159265432

Private Sub Command1_Click()

    Picture1.Scale (-2 * PI, 1)-(2 * PI, -1) '建立坐标系

    Dim I As Single

    Picture1.CurrentX = -2 * PI '建立当前坐标

    Picture1.CurrentY = 0

    For I = -2 * PI To 2 * PI Step 0.01

        Picture1.Line -(I, Cos(3 * I) * Sin(5 * I)), vbRed '绘制曲线

    Next

End Sub

运行效果：

VB点虐中如何在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如何画连续线

直接这样写：

line（X1，Y1）-（X2，Y2）

line -（X3，Y3）

这样第二次画线就是和第二个点是连在一起的。

这个比例的问题，你可以先用控件line在窗体上画出一个大概的线，经调整之后取line1的

X1，X2，Y1，Y2属性值就可以了。这样画出来的线就比较协调了。

vb点虐的picturebox画直线的函数是哪个?vb6.0是picture1.line就可以，但是vb点虐没有啊

Dim PtStart As Point '记录绘制直线的起始点

Dim PtEnd As Point '记录绘制直线的终点

Dim ShouldDrawLine As Boolean '是否绘制直线

'记录鼠标左键点击的位置，第二次点击后开始绘制直线

Private Sub Pic1_MouseDown()Sub Pic1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic1.MouseDown

If e.Button = Windows.Forms.MouseButtons.Left Then

If Not ShouldDrawLine Then

PtStart = New Point(e.X, e.Y)

ShouldDrawLine = True

Else

PtEnd = New Point(e.X, e.Y)

'下面两句根据需要进行取舍

'Call DrawLine(PtStart, PtEnd) '绘制一条直线

Call DrawLines(PtStart, PtEnd) '绘制多条直线

ShouldDrawLine = False

End If

End If

End Sub

'绘制鼠标两次点击位置之间的直线

Private Sub DrawLine()Sub DrawLine(ByVal mPoint1 As Point, ByVal mPoint2 As Point)

Pic1.Refresh() '用于刷新Picturebox表面

Pic1.CreateGraphics.DrawLine(Pens.Blue, mPoint1, mPoint2) '绘制两点间的直线

End Sub

'绘制多条直线，每两次鼠标点击确定一条线

Private Sub DrawLines()Sub DrawLines(ByVal mPoint1 As Point, ByVal mPoint2 As Point)

'此句不可删除，用于清除鼠标点击前的轨迹

ControlPaint.DrawReversibleLine(Pic1.PointToScreen(mPoint1), Pic1.PointToScreen(mPoint2), Color.Red)

Pic1.CreateGraphics.DrawLine(Pens.Blue, mPoint1, mPoint2) '绘制两点间的直线

End Sub

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！