vb中樣條曲線問題

不引用的話，VB做不到。這事情要看VB的版本。如果是6.0的話，要去網上下載GDIPLUS的庫文件或者自己聲明GDI+的API。如果是VB.NET的話，VB自帶GDI+，但是也可以下載GDIPLUS庫來用。如果不知道去哪裏下載，我下載有，妳可以問我要。我使用VB6.0。下載gdiplus以後，在VB裏面引用這個庫，註意要選擇“所有文件”才能看到這個庫。gdi+裏面的path功能可以實現樣條：Private TOKEN As Long'GDI+對象

Private Graphics As Long'畫板

Private Sub InitGDIPlus()

'初始化GDI+

Dim uInput As GdiplusStartupInput

uInput.GdiplusVersion = 1

If GdiplusStartup(TOKEN, uInput) <> Ok Then

'初始化錯誤

MsgBox "GDI+ 初始化錯誤。程序即將關閉。", vbCritical, "InitError"

End

End If

GdipCreateFromHDC Me.hDC, Graphics'創建畫板

GdipSetSmoothingMode Graphics, SmoothingModeAntiAlias'設置為反鋸齒

End SubPrivate Sub TerminateGDIPlus()

GdipDeleteGraphics Graphics '釋放graphics占用的內存

GdiplusShutdown TOKEN '關閉GDI+

End SubPrivate Sub Form_Load()

InitGDIPlus '初始化End SubPrivate Sub Command1_Click() Dim path As Long

Dim m(3) As POINTF '以下是坐標，妳可以自由改變

m(0).x = 0

m(0).y = 0

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 '創建畫筆，用來畫出樣條

GdipCreatePath FillModeAlternate, path '創建path

GdipAddPathBeziers path, m(0), 4 '創建樣條'Count是說坐標的個數，points只能傳遞數組的第壹個元素，不能傳遞數組。

GdipDrawPath Graphics, pen, path '畫出樣條

GdipDeletePen pen '刪除畫筆

GdipDeletePath path '刪除樣條End SubPrivate Sub Form_Unload(Cancel As Integer)

TerminateGDIPlus '刪除GDI+

End Sub

上一篇:laravel框架各文件作用是什麽？之間什麽關系？

下一篇:利用GitHub-Actions將Hugo博客自動發布到GitHub和Gitee Pages