怎么实现和屏保一样的贝塞尔曲线
如何实现和屏保一样的贝塞尔曲线
RT
------解决方案--------------------
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
RT
------解决方案--------------------
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