vb點(diǎn)虐 樣條曲線 vb曲線控件

vb中樣條曲線問(wèn)題

不引用的話，VB做不到。這事情要看VB的版本。如果是6.0的話，要去網(wǎng)上下載GDIPLUS的庫(kù)文件或者自己聲明GDI+的API。如果是VB.NET的話，VB自帶GDI+，但是也可以下載GDIPLUS庫(kù)來(lái)用。如果不知道去哪里下載，我下載有，你可以問(wèn)我要。我使用VB6.0。下載gdiplus以后，在VB里面引用這個(gè)庫(kù)，注意要選擇“所有文件”才能看到這個(gè)庫(kù)。gdi+里面的path功能可以實(shí)現(xiàn)樣條：Private

成都創(chuàng)新互聯(lián)公司是專(zhuān)業(yè)的凱里網(wǎng)站建設(shè)公司，凱里接單;提供成都做網(wǎng)站、網(wǎng)站制作,網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專(zhuān)業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行凱里網(wǎng)站開(kāi)發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專(zhuān)業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專(zhuān)業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!

TOKEN

As

Long'GDI+對(duì)象

Private

Graphics

As

Long'畫(huà)板

Private

Sub

InitGDIPlus()

'初始化GDI+

Dim

uInput

As

GdiplusStartupInput

uInput.GdiplusVersion

=

1

If

GdiplusStartup(TOKEN,

uInput)

Ok

Then

'初始化錯(cuò)誤

MsgBox

"GDI+

初始化錯(cuò)誤。程序即將關(guān)閉。",

vbCritical,

"InitError"

End

End

If

GdipCreateFromHDC

Me.hDC,

Graphics'創(chuàng)建畫(huà)板

GdipSetSmoothingMode

Graphics,

SmoothingModeAntiAlias'設(shè)置為反鋸齒

End

SubPrivate

Sub

TerminateGDIPlus()

GdipDeleteGraphics

Graphics

'釋放graphics占用的內(nèi)存

GdiplusShutdown

TOKEN

'關(guān)閉GDI+

End

SubPrivate

Sub

Form_Load()

InitGDIPlus

'初始化End

SubPrivate

Sub

Command1_Click()

Dim

path

As

Long

Dim

m(3)

As

POINTF

'以下是坐標(biāo)，你可以自由改變

m(0).x

=

m(0).y

=

m(1).x

=

10

m(1).y

=

100

m(2).x

=

20

m(2).y

=

3

m(3).x

=

500

m(3).y

=

100

Dim

pen

As

Long

GdipCreatePen1

HFF000000,

2,

UnitPixel,

pen

'創(chuàng)建畫(huà)筆，用來(lái)畫(huà)出樣條

GdipCreatePath

FillModeAlternate,

path

'創(chuàng)建path

GdipAddPathBeziers

path,

m(0),

4

'創(chuàng)建樣條'Count是說(shuō)坐標(biāo)的個(gè)數(shù)，points只能傳遞數(shù)組的第一個(gè)元素，不能傳遞數(shù)組。

GdipDrawPath

Graphics,

pen,

path

'畫(huà)出樣條

GdipDeletePen

pen

'刪除畫(huà)筆

GdipDeletePath

path

'刪除樣條End

SubPrivate

Sub

Form_Unload(Cancel

As

Integer)

TerminateGDIPlus

'刪除GDI+

End

Sub

vb點(diǎn)虐 繪制曲線圖

。net ?其實(shí)還是很好繪制圖形的

你可以看下?Graphics ?類(lèi)

Dim d As New Bitmap(Me.Width, Me.Height) ?‘一個(gè)圖片吧

? Dim g As Graphics = Graphics.FromImage(d)’繪制 ?準(zhǔn)備在這個(gè)圖片是進(jìn)行

然后 ?就是你繪制的東西了

線 就是 ??g.DrawLine()

圓 弧度 ?就用 ?g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)

復(fù)雜的就是 ? ? ?g.DrawBezier()

等 ?如果你用的是 VS的 ?編譯 ?上面都有詳細(xì)的參數(shù)說(shuō)明

Dim?d?As?New?Bitmap(Me.Width,?Me.Height)

Dim?g?As?Graphics?=?Graphics.FromImage(d)

g.DrawArc(Pens.Black,?New?Rectangle(0,?0,?200,?200),?0,?360)

g.DrawLine(Pens.Red,?New?Point(0,?0),?New?Point(200,?200))

g.DrawLines(Pens.Green,?New?Point()?{New?Point(0,?0),?New?Point(50,?40),?New?Point(50,?80),?New?Point(90,?70),?New?Point(100,?400)})

g.DrawBezier(Pens.Yellow,?New?Point(0,?100),?New?Point(0,?0),?New?Point(200,?0），?New?Point(200,?200))

g.Dispose()

Me.BackgroundImage?=?d

如何用VB.NET調(diào)用excel的畫(huà)圖命令，即用.NET得到一組點(diǎn)坐標(biāo)后，調(diào)用excel根據(jù)點(diǎn)畫(huà)出曲線圖并顯示在VB.NET里

你可以通過(guò)用VB點(diǎn)虐 控制excel，讓excel生成曲線圖，然后利用excelVBA將圖輸出，最后導(dǎo)入到VB點(diǎn)虐 就可以了。

分享名稱：vb點(diǎn)虐 樣條曲線 vb曲線控件
當(dāng)前路徑：http://bm7419.com/article24/ddejcje.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)、自適應(yīng)網(wǎng)站、品牌網(wǎng)站設(shè)計(jì)、網(wǎng)站設(shè)計(jì)公司、網(wǎng)站內(nèi)鏈、微信公眾號(hào)

廣告

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