1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| If Btn(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1)).BackgroundImage IsNot empty.BackgroundImage Then
Form10.Show()
Else
If N.Text = 1 Then
If Mat(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1)) = ("RR" Or "JJ" Or "VV") Then
Form10.Show()
Else
Btn(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1)).BackgroundImage = B.BackgroundImage
End If
MarqueBBMatricebleu(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1))
ElseIf N.Text = 2 Then
If Mat(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1)) = ("BB" Or "JJ" Or "VV") Then
Form10.Show()
Else
Btn(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1)).BackgroundImage = R.BackgroundImage
End If
MarqueBBMatricerouge(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1))
ElseIf N.Text = 3 Then
If Mat(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1)) = ("RR" Or "BB" Or "VV") Then
Form10.Show()
Else
Btn(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1)).BackgroundImage = J.BackgroundImage
End If
MarqueBBMatricejaune(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1))
ElseIf N.Text = 4 Then
If Mat(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1)) = ("BB" Or "JJ" Or "RR") Then
Form10.Show()
Else
Btn(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1)).BackgroundImage = V.BackgroundImage
End If
MarqueBBMatricevert(Split(CType(sender, Button).Tag, "|")(0), Split(CType(sender, Button).Tag, "|")(1))
End If
End If |
Partager