Minesweeper

[Erik]

Hi,

http://openbook.galileocomputing.de/vb_net/

Gruß
Erik

 

[Nikolaus1]

Stimmt da mit der Programmierung von der Erstellung von Button?

vWhile c > c1
            For i As Short = 1 To a
                btnArray(i) = New Button

                With btnArray(i)
                    .BackColor = Color.DarkGray
                    .FlatStyle = FlatStyle.Popup
                    .Name = "Button" & CStr(i)

                    If XPos + .Width > Me.Width Then
                        XPos = 25
                        YPos += 25
                    End If
                    .Width = 25
                    .Height = 25
                    .Top = YPos
                    .Left = XPos
                    XPos += 25
                    AddHandler .Click, AddressOf btnArray_Click
                End With
                Me.Controls.Add(btnArray(i))


            Next
            c1 = c1 + 1
        End While
        c = 0

Weil ich habe es nicht geschafft bei der Programmierung irgendwie die Buttons anzusteuern.
.

 

[Shakie]

Stimmt schon so. Im Click-Event (bei dir wohl btnArray_Click) kannst du den geklickten Button über das Sender-Objekt ermitteln:

Dim clickedButton As Button = CType(sender, Button)

 

[Nikolaus1]

Blöde Frage. Das muss ich jetzt am Anfang eingeben, bevor ich das erstellen der Buttons programmiere. Und nachher kann ich dann schreiben Button4, oder Button7?

 

[Shakie]

Nein.
Schau her:

Private Sub btnArray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim clickedButton As Button = CType(sender, Button) '<-- Dieser Button wurde gedrückt!
    ' Jetzt kannst du dir zum Beispiel den Namen des Buttons in einer MessageBox ausgeben lassen:
    MessageBox.Show(clickedButton.Name)
End Sub

Das funktioniert nur weil du diese Code-Zeile bereits hast:

AddHandler .Click, AddressOf btnArray_Click