|
逐级显示,在老师原先的基础上套了个基本判断。有个问题请教下老师,数组可以根据某个字段进行排序么,比如 arrPoint,根据级别降序排列,然后再去画估计会快点。
- 'H 分形(H-Fractal)
- Private Sub CreateHFractal(ByVal HDC As Long, lngDepth As Long)
- Dim HFractal As clsHFractal, arrPoint As Variant, lngID As Long
- Dim pt As POINTAPI, Pen As Long
- Dim i As Long
-
- Set HFractal = New clsHFractal
- arrPoint = HFractal.CreateH(500, lngDepth)
-
- 'Sheet1.Range("A1").Resize(UBound(arrPoint), UBound(arrPoint, 2)) = arrPoint
-
- Pen = GetPen(vbWhite)
- SelectObject HDC, Pen
-
-
- For i = lngDepth To 1 Step -1
-
- For lngID = LBound(arrPoint, 2) To UBound(arrPoint, 2)
- If arrPoint(5, lngID) = i Then
- MoveToEx HDC, arrPoint(1, lngID) + 50, arrPoint(2, lngID) + 50, pt
- LineTo HDC, arrPoint(3, lngID) + 50, arrPoint(4, lngID) + 50
-
- End If
- Next
- delay 1
- Next
-
- DeleteObject Pen
- ReleaseDC 0, HDC
- End Sub
-
复制代码 |
|