✔ VB 2008 Sub während des Programmablaufes erstellen

[1234_c_1234]

Hallo! Ich haben nach sehr langem googlen eine Frage! Ich habe ganz viele Pictureboxen die ich während des programmablaufes per code erstelle.

Count += 1
Dim Pictures(Count) As PictureBox
        Me.Controls.Add(Pictures(Count))
        Pictures(Count) = New PictureBox
        Pictures(Count).Name = type & Count
        Pictures(Count).Location = New System.Drawing.Point(MousePosition.X, MousePosition.Y)
        Pictures(Count).Size = New System.Drawing.Size(grx, gry)
        Pictures(Count).BringToFront()
        Pictures(Count).SizeMode = PictureBoxSizeMode.StretchImage
        Pictures(Count).BackColor = Color.Transparent
        Pictures(Count).BorderStyle = BorderStyle.None
        Pictures(Count).SizeMode = PictureBoxSizeMode.StretchImage
        Pictures(Count).Image = New Bitmap(dd)
        Pictures(Count).Parent = Me
        Pictures(Count).Visible = True

Nun will ich für jede Picturebox die ich erstellt habe ein Click ereignis erstellen! Nur wie gesagt das ganze soll während das Programm läuft passieren. Und natürlich temporär sein!

Mfg 1234_c_1234

 

[Danielku15]

Bin zwar nicht so vertraut mit VB.net aber das dürfte dir helfen:

' Handler Hinzufügen
AddHandler Pictures(Count).Click, AddressOf MyClickHandler
' Handler Entfernen
RemoveHandler Pictures(Count).Click, AddressOf MyClickHandler

' Handler Methode
Private Sub MyClickHandler( _
    ByVal sender As Object, _
    ByVal e as EventArgs)
    
    Dim pic as PictureBox = DirectCast(sender, PictureBox)
    ...
End Sub

 

[1234_c_1234]

Danke! Es funktioniert!
Mfg 1234_c_1234

 

[1234_c_1234]

Jetzt habe ich noch eine frage! bei jeder neuen picturebox die ich mache erhöt sich Count um eins.
Der Name lautet Beim 1. Mal -- type & Count entspricht: "house1"
2.Mal -- type & Count entspricht: "house2"
usw. Wie kriege ich den Name heraus (house1 oder house2)?
Ich hätte ihn gerne in einer String Variable.

Mfg 1234_c_1234

 

[Nico Graichen]

Hi

Du setzt doch den Namen! Genauso kannst du ihn auch wieder abfragen!

Dim pic as PictureBox = DirectCast(sender, PictureBox)
Dim name as string = pic.Name

 

[1234_c_1234]

Danke! das hat mir sehr viel weiter geholfen! Nochmals vielen Dank!
mfg 1234_c_1234