![]() |
|
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: [ 2905 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 