API-PolylineTo绘制曲线
2006-09-05 18:28
218 查看
Option Explicit
Dim X As Double
Private Type POINTAPI
X As Long
y As Long
End Type
Private Declare Function PolylineTo Lib "gdi32" (ByVal hdc As Long, ByVal lppt As POINTAPI, ByVal cCount As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal y As Long, ByVal lpPoint As Any) As Long
Private Sub Form_Load()
Timer1.Interval = 100
Me.ScaleMode = vbPixels
X = 0.1
AutoRedraw = True
End Sub
Private Sub draw()
Dim Pt(1 To 1000) As POINTAPI, A As Double, R As Double
Dim N As Long, Xm As Long, Ym As Long
Xm = Me.ScaleWidth / 2
Ym = Me.ScaleHeight / 2
For N = 1 To 1000
A = N * X
R = R + A * 0.01
Pt(N).X = Xm + Cos(A) * R
Pt(N).y = Ym - Sin(A) * R
Next N
MoveToEx Me.hdc, Me.ScaleWidth / 2, Me.ScaleHeight / 2, ByVal 0&
PolylineTo Me.hdc, Pt(1), 100
End Sub
Private Sub Form_Paint()
draw
End Sub
Private Sub Timer1_Timer()
X = X + 0.01
Me.Caption = X
Me.Cls
Form_Paint
End Sub
Dim X As Double
Private Type POINTAPI
X As Long
y As Long
End Type
Private Declare Function PolylineTo Lib "gdi32" (ByVal hdc As Long, ByVal lppt As POINTAPI, ByVal cCount As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal y As Long, ByVal lpPoint As Any) As Long
Private Sub Form_Load()
Timer1.Interval = 100
Me.ScaleMode = vbPixels
X = 0.1
AutoRedraw = True
End Sub
Private Sub draw()
Dim Pt(1 To 1000) As POINTAPI, A As Double, R As Double
Dim N As Long, Xm As Long, Ym As Long
Xm = Me.ScaleWidth / 2
Ym = Me.ScaleHeight / 2
For N = 1 To 1000
A = N * X
R = R + A * 0.01
Pt(N).X = Xm + Cos(A) * R
Pt(N).y = Ym - Sin(A) * R
Next N
MoveToEx Me.hdc, Me.ScaleWidth / 2, Me.ScaleHeight / 2, ByVal 0&
PolylineTo Me.hdc, Pt(1), 100
End Sub
Private Sub Form_Paint()
draw
End Sub
Private Sub Timer1_Timer()
X = X + 0.01
Me.Caption = X
Me.Cls
Form_Paint
End Sub
相关文章推荐
- WinAPI: PolylineTo - 绘制一组连续线段(更新当前位置)
- ArcGIS API for JavaScript 实现point multipoint line polyline cirle等graphics的绘制
- How to Simulate the Price Order or Price Line Function using API QP_PREQ_PUB.PRICE_REQUEST Includes
- WinAPI: PolyBezierTo - 绘制贝塞尔线(更新当前位置)
- VTK/ExamplesBoneyard/Cxx/PolyData/AddLineToPolydata
- How to Simulate the Price Order or Price Line Function using API QP_PREQ_PUB.PRICE_REQUEST Includes
- CCDrawingPrimitives(使用gl原始方法 绘制Points Line Rect Poly Circle Bezier CatmullRom CardinalSpline。。。。)
- flash 绘图API:绘制秀曲线图形
- How to Simulate the Price Order or Price Line Function using API QP_PREQ_PUB.PRICE_REQUEST Includes
- swing GeneralPath::cubicTo绘制平滑曲线
- flash 绘图API:绘制秀曲线图形
- PolylineTo
- HTML5之4__Canvas API: 绘制曲线、变换
- How to Simulate the Price Order or Price Line Function using API QP_PREQ_PUB.PRICE_REQUEST Includes
- c#绘制曲线图 类
- Multiple annotations found at this line: - String cannot be resolved to a type - The method getConte
- ZedGrap控件绘制图表曲线
- Javascript 绘制 sin 曲线过程附图
- elasticsearch install and how to use javaapi
- ArcGIS API for Silverlight 调用GP服务绘制等值面