![]() |
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
|
|
|
|
|
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: [ 2911 ]
|
|
|