sjw.bas

VB建立三角形网

Attribute VB_Name = "Module1"

Type Points
  No As Integer
  Code As Integer
  X As Double
  Y As Double
  Z As Double
End Type

Type Cross
   minXX As Double
   minYY As Double
   maxXX As Double
   maxYY As Double
   Mm(100) As Integer
End Type

Type sjx
  B1 As Integer
  B2 As Integer
  B3 As Integer
End Type

Type Length
  Start As Integer
  Last As Integer
  Lef As Integer
  Rig As Integer
End Type
Type ss
  x1 As Double
  y1 As Double
  x2 As Double
  y2 As Double
End Type
Public Declare Sub FloodFill Lib "GDI32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long)