Create Elipses Klasse

Om de module te downloaden, klik je het beste op de titel. (in .cls vorm). Deze module werd gemaakt in Visual Basic 6, maar is ook VB4 32-BIT, VB5 & VB6 compatibel. Dat zijn ze trouwens allemaal...(Ongeveer 15 KB)

Gebruik:

 Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim GDIEllipse As CGDIEllipse
Set GDIEllipse = New CGDIEllipse

With GDIEllipse

Draw a hatched green circle
.Left = ScaleX(X, vbTwips, vbPixels) - 100
.Top = ScaleY(Y, vbTwips, vbPixels) - 100
.Right = ScaleX(X, vbTwips, vbPixels)
.Bottom = ScaleY(Y, vbTwips, vbPixels)

.BorderColor = vbYellow
.BorderWidth = 1
.FillColor = vbGreen
.BrushStyle = ebsBS_HATCHED
.HatchStyle = ehsHS_DIAGCROSS
.ForegroundMixMode = eroR2_COPYPEN
.PenStyle = epsPS_DASH

Draw the ellipse. See also Draw3DEllipse
.DrawEllipse Me.hdc

' Draw a 3D Oval
.Left = ScaleX(X, vbTwips, vbPixels)
.Top = ScaleY(Y, vbTwips, vbPixels)
.Right = ScaleX(X, vbTwips, vbPixels) + 100
.Bottom = ScaleY(Y, vbTwips, vbPixels) + 75

.PenStyle = epsPS_SOLID
.Draw3DEllipse Me.hdc, vb3DShadow, vb3DHighlight

End With
End Sub

Private Sub Form_Load()
Call ExplodeForm(Me, 1000)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call ImplodeForm(Me, 2, 500, 1)
End Sub

Verschillende Routines:

 Die zijn er veel te veel, zijt blij dat ik het gebruik al helemaal heb uitgeschreven!

Uitleg bij API Declaraties:

  1. CreateBrushIndirect - Maak een borstel van indirecte kleuren aan
  2. CreatePen - Maak een 'Pen' aan
  3. SetROP2 - ?? Mail me als je het weet aub
  4. GetROP2 - ?? Mail me als je het weet aub
  5. SelectObject - Selecteer een object
  6. DeleteObject - verwijder een object
  7. Ellipse - het belangrijkste: maak een vorm van een elipse
  8. GetSysColor - Zet de systeem kleuren in een variabele