Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0250: Kreisbögen mit der Circle-Methode zeichnen

VB 5/6-Tipp 0250: Kreisbögen mit der Circle-Methode zeichnen

 von ActiveVB

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [1,99 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"

Option Explicit

Private Sub Form_Load()
  Call DrawArcs
End Sub

Private Sub Command1_Click()
  Me.Picture = LoadPicture("")
  Call DrawArcs
End Sub

Private Sub DrawArcs()
  Dim CX&, CY&, X&, XMax&
  Dim St As Double, En As Single
  Dim Dg As Single, Pi As Single
  
    Pi = 4 * Atn(1)
    Me.ScaleMode = vbPixels
    Me.AutoRedraw = True

    Dg = Pi / 180
    CX = ScaleWidth / 2
    CY = ScaleHeight / 2
    If CX > CY Then XMax = CY Else XMax = CX
     
    For X = 0 To XMax
      St = Dg * (Rnd(0) * 180)
      En = Dg * (Rnd(0) * 180 + 180)
      Form1.Circle (CX, CY), X, RGB(Rnd * 255, 0, 0), St, En
    Next X
    Me.AutoRedraw = False
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------