如何实现和屏保一样的贝塞尔曲线

[redshiliu]

RT

[redshiliu]

我倒,一条,多条贝塞尔曲线我会画,我问的是如何画象屏保一样多条会变化的圆滑连接的曲线

[cccc813]

Option Explicit
Private Declare Function PolyBezier Lib "gdi32" (ByVal hdc As Long, lppt As POINTAPI, ByVal cPoints As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = 3
Dim BP(3) As POINTAPI
BP(0).y = 10
BP(1).x = 20
BP(2).x = 40
BP(2).y = 20
BP(3).x = 60
BP(3).y = 0
PolyBezier Me.hdc, BP(0), 4
End Sub

[嗷嗷叫的老马]

.................................

[bizshow]

嘿嘿,这个就不是考技术,而是考算法了

[YaDa]

用 PolyDraw 实现圆滑连接
参数（点的位置）,画一条，改变一点，实现多条及变化。