Punkte automatisch auf Bild einzeichnen (VB.net) Verfasst am: 18.03.2010, 22:42
Hallo!
Wahrscheinlich ist es ganz einfach. Ich habe ein Form mit PictureBox und button. Ich möchte, dass ein Bild automatisch geladen und Punkte eingezeichnet werden. Das Einzeichnen klappt aber nur über das ButtonClick-Event obwohl die msgbox aufgerufen und damit die Funktion Punktmalen ausgeführt wird?!? Versteh's nicht und google hilft auch nicht...
Hoffe, ihr könnt damit was anfangen...
Hier der Quelltext:
Zitat:
Public Class Form1
Private Sub PictureBox1_LoadCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles PictureBox1.LoadCompleted
Punktmalen()
End Sub
Function Punktmalen()
Dim g As Graphics = PictureBox1.CreateGraphics
Dim Radius = 10
Dim rectangle As New Rectangle(300, 300, Radius, Radius)
g.DrawEllipse(Pens.Black, rectangle)
MsgBox("PUNKT")
Return 0
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Punktmalen()
End Sub
Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
Punktmalen()
End Sub
End Class