Profil von horstfh

Frage

16.06.2017, 17:45

Wie kann man in Visual Basic ein Kreis in eine PictureBox zeichen?

Hintergrundinfos: Habe eine Karte von Deutschland, und verschiedene Orte in einer ListBox, und wenn z.B. das Item in der ListBox "Berlin" ist, soll in der PictureBox in den jeweiligen Koordinaten ein Kreis/Punkt gezeichnet werden.

Ansatz: If Standort.Text = "Berlin" Then - Zeichnen - End If

Und jetzt eben bei z.B. Koordinaten 25, 20 soll ein Kreis "drüber" gezeichnet werden.

Danke für sämtliche Antworten, MfG mczz

...zur Frage

Hilfreichste Antwort

von horstfh

17.06.2017, 14:24

Hier eine kleine Hilfe für Dein Problem.

Wenn Du noch Erläuterungen brauchst?

Private PBGraphics As Graphics
Private MyPen As New Pen(Color.Red, 3)
Private X, Y as Integer

Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Dim myPen As New Pen(Color.Red)
PBGraphics = PictureBox1.CreateGraphics()
End Sub

Private Sub PictureBox1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
Kreis(X, Y)
End Sub

Sub Kreis(X As Integer, Y As Integer)
PBGraphics.DrawEllipse(MyPen, X - 15, Y - 15, 30, 30)
End Sub

...zur Antwort