Pbm avec une picture box

Question

boonjour, je dois faire un d&#233;mineuravec VB mais un peu diff&#233;rent que celui de windows.
En fait quand tu cliques sur une mine si il y a une mine dans les cases alentours alors elles doivent se d&#233;couvrir.
Pour les cases j'ai utilis&#233; des picturebox mais je ne sais comment on peut les faire d&#233;couvrir automatiquement, sans clic quoi :)
Merci d'avance (c assez urgent)

jpleroisse · Answer

Bonsoir,
Je suppose que quand tu cliques sur une mine, c'est un PictureBox qui contient l'image d'une mine et que autour les mines qui sont  dans les PictureBox ont la m&#234;me image. ?
Si Oui, tu mets la propri&#233;t&#233; Tag &#224; 1 aux PictureBox qui ont la m&#234;me image et tu places ce code.

Private Sub Picture1_Click()
Dim indx As Integer
With Form1
For indx = 0 To .Controls.Count - 1
If (.Controls(indx).Tag = "1") Then
    If (TypeOf .Controls(indx) Is PictureBox) Then
       .Controls(indx).Visible = True
        End If
    End If
Next indx
End With
End Sub

jpleroisse

cs_vanillette · Answer

Merci bcp :)
je vais tester ca de suite

cs_vanillette · Answer

En fait je viens de comprendre mon pbm, il sait pas reconnaitre si dans les cases autour y a une bombe
g essay&#233; de faire cette formule mais ca a pas l aire de marcher....
' Teste si la cellule poss&#232;de une bombe
Function Yaunebombe(absc As Integer, ordo As Integer) As Boolean    Yaunebombe terrain(absc, ordo) Mod 2 1
    Exit Function
End Function

Pbm avec une picture box

3 réponses

Discussions similaires