Question

vb中样条曲线问题

VB中 如何通过 一条线上的 几个控制点 进行 曲线变化例如： PS中的 这种效果

Answer 1

不引用的话，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