vb點虐 連續(xù)畫線函數(shù) vba連續(xù)區(qū)域表示

VB 如何在picture中用line方法連續(xù)畫線

VB可用object.Line - (x2, y2)寫法實現(xiàn)在對象上繪制連續(xù)折線。

創(chuàng)新互聯(lián)專注于企業(yè)成都全網(wǎng)營銷、網(wǎng)站重做改版、臨澧網(wǎng)站定制設(shè)計、自適應品牌網(wǎng)站建設(shè)、H5建站、購物商城網(wǎng)站建設(shè)、集團公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應式網(wǎng)頁設(shè)計等建站業(yè)務(wù)，價格優(yōu)惠性價比高，為臨澧等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

Line?方法，在對象上畫直線和矩形。

以下是具體實現(xiàn)繪制曲線的代碼：

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畫線，有什么函數(shù)？

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如何畫連續(xù)線

直接這樣寫：

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

line -（X3，Y3）

這樣第二次畫線就是和第二個點是連在一起的。

這個比例的問題，你可以先用控件line在窗體上畫出一個大概的線，經(jīng)調(diào)整之后取line1的

X1，X2，Y1，Y2屬性值就可以了。這樣畫出來的線就比較協(xié)調(diào)了。

vb點虐 的picturebox畫直線的函數(shù)是哪個?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)

'下面兩句根據(jù)需要進行取舍

'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

當前文章：vb點虐 連續(xù)畫線函數(shù) vba連續(xù)區(qū)域表示
標題網(wǎng)址：http://muchs.cn/article10/ddieego.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供小程序開發(fā)、微信小程序、Google、ChatGPT、網(wǎng)站內(nèi)鏈、網(wǎng)頁設(shè)計公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)