Tipp 0010 Kreise und Linien zeichnen
Autor/Einsender:
Datum:
  Detlev Schubert
11.01.2001
Entwicklungsumgebung:   VB 5
So zeichnen Sie mit den VB-Funktionen Kreise und Linien:
Circle (A, B ), C, D
Zeichnet einen Kreis. A ist der horizontale, B der vertikale Standpunkt. C gibt den Kreisradius an und D die Farbe.
Line (A, B) - (C, D)
Zeichnet eine Linie. A ist der horizontale und B der vertikale Startpunkt. C ist der horizontale und D der vertikale Endpunkt.
Wenn eine dieser beiden Funktionen auf ein Objekt angewendet werden soll (wie im Beispiel eine PictureBox), ist wie folgt vorzugehen:
Objektname.Circle (A, B ), C, D)
Objektname.Line (A, B) - (C, D)
 
Option Explicit

Private Sub Form_Load()
  Combo1.AddItem "Kreis"
  Combo1.AddItem "Linie"
  Combo1.ListIndex = 0
End Sub

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

  Select Case Combo1.ListIndex
    Case 0
      Picture1.Circle (X, Y), 200, RGB(Rnd * 255, _
                      Rnd * 255, Rnd * 255)
    Case 1
      Picture1.Line (X, Y)-(X + 300, Y)
  End Select
End Sub
 
Weitere Links zum Thema
2D-Rotation
3D-Würfel-Rotation
Objekte zeichnen und verschieben
Polygone zeichnen
Sinuskurven zeichnen

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (1,7 kB) Downloads bisher: [ 2811 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 17. Juli 2011