A voir également:
- Convertir chaine de caractere
- Caractère spéciaux - Guide
- Caractere speciaux - Guide
- Caractère ascii - Guide
- Caractere vide - Guide
- Plus de chaine tv - Guide
11 réponses
Tout à fait !!!
Incompréhensible !!!
On ne vous conné pas, ni votre application, soyez plus clair, merci
Cordialement ;)
Incompréhensible !!!
On ne vous conné pas, ni votre application, soyez plus clair, merci
Cordialement ;)
Oups oui désoler... :
C'est du visual basic.
En fait j'ai fait un tableau avec tout les noms de boutons. Ensuite je fais une boucle for dans ce tableau pour "utiliser" les boutons et les desactiver.
Voici mon script en entier :
Dim boutton() As String = {"Button1", "Button2", "Button3", "Button4", "Button5", "Button6", "Button7", "Button8", "Button9", "Button10", "Button11", "Button12", "Button13", "Button14", "Button15", "Button16", "Button17", "Button18"}
If nom_fenetre1 = "O" And nom_fenetre2 = "X" And nom_fenetre3 = "O" Then
MessageBox.Show("Vous avez gagné !", "Félicitation !", MessageBoxButtons.OK, MessageBoxIcon.Information)
If MessageBox.Show("Voulez-vous recommencer ?", "Recommencer ?", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
Dim nom_boutton As String
For Each nom_boutton In boutton
Console.Out.WriteLine(nom_boutton)
nom_boutton.enabled = True
Next
Else
If MessageBox.Show("A bientôt...", "A bientôt", MessageBoxButtons.OK, MessageBoxIcon.None) = DialogResult.OK Then
End If
End If
End If
C'est du visual basic.
En fait j'ai fait un tableau avec tout les noms de boutons. Ensuite je fais une boucle for dans ce tableau pour "utiliser" les boutons et les desactiver.
Voici mon script en entier :
Dim boutton() As String = {"Button1", "Button2", "Button3", "Button4", "Button5", "Button6", "Button7", "Button8", "Button9", "Button10", "Button11", "Button12", "Button13", "Button14", "Button15", "Button16", "Button17", "Button18"}
If nom_fenetre1 = "O" And nom_fenetre2 = "X" And nom_fenetre3 = "O" Then
MessageBox.Show("Vous avez gagné !", "Félicitation !", MessageBoxButtons.OK, MessageBoxIcon.Information)
If MessageBox.Show("Voulez-vous recommencer ?", "Recommencer ?", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
Dim nom_boutton As String
For Each nom_boutton In boutton
Console.Out.WriteLine(nom_boutton)
nom_boutton.enabled = True
Next
Else
If MessageBox.Show("A bientôt...", "A bientôt", MessageBoxButtons.OK, MessageBoxIcon.None) = DialogResult.OK Then
End If
End If
End If
Oups oui désoler... :
C'est du visual basic.
En fait j'ai fait un tableau avec tout les noms de boutons. Ensuite je fais une boucle for dans ce tableau pour "utiliser" les boutons et les desactiver.
Voici mon script en entier :
Dim boutton() As String = {"Button1", "Button2", "Button3", "Button4", "Button5", "Button6", "Button7", "Button8", "Button9", "Button10", "Button11", "Button12", "Button13", "Button14", "Button15", "Button16", "Button17", "Button18"}
If nom_fenetre1 = "O" And nom_fenetre2 = "X" And nom_fenetre3 = "O" Then
MessageBox.Show("Vous avez gagné !", "Félicitation !", MessageBoxButtons.OK, MessageBoxIcon.Information)
If MessageBox.Show("Voulez-vous recommencer ?", "Recommencer ?", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
Dim nom_boutton As String
For Each nom_boutton In boutton
Console.Out.WriteLine(nom_boutton)
nom_boutton.enabled = True
Next
Else
If MessageBox.Show("A bientôt...", "A bientôt", MessageBoxButtons.OK, MessageBoxIcon.None) = DialogResult.OK Then
End If
End If
End If
C'est du visual basic.
En fait j'ai fait un tableau avec tout les noms de boutons. Ensuite je fais une boucle for dans ce tableau pour "utiliser" les boutons et les desactiver.
Voici mon script en entier :
Dim boutton() As String = {"Button1", "Button2", "Button3", "Button4", "Button5", "Button6", "Button7", "Button8", "Button9", "Button10", "Button11", "Button12", "Button13", "Button14", "Button15", "Button16", "Button17", "Button18"}
If nom_fenetre1 = "O" And nom_fenetre2 = "X" And nom_fenetre3 = "O" Then
MessageBox.Show("Vous avez gagné !", "Félicitation !", MessageBoxButtons.OK, MessageBoxIcon.Information)
If MessageBox.Show("Voulez-vous recommencer ?", "Recommencer ?", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
Dim nom_boutton As String
For Each nom_boutton In boutton
Console.Out.WriteLine(nom_boutton)
nom_boutton.enabled = True
Next
Else
If MessageBox.Show("A bientôt...", "A bientôt", MessageBoxButtons.OK, MessageBoxIcon.None) = DialogResult.OK Then
End If
End If
End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
arr deso d'avance pour le double message, mon pc est super lent et j'ai clique 2 fois sur envoyer...
Encore deso.
Encore deso.
Il faut que tu crées des objets boutons!
Quelque chose comme ça :
Dim nom_boutton As String
For Each nom_boutton In boutton
Console.Out.WriteLine(nom_boutton)
Dim bouton As New Button
bouton.ID = nom_boutton
bouton.Enabled = True
Next
Quelque chose comme ça :
Dim nom_boutton As String
For Each nom_boutton In boutton
Console.Out.WriteLine(nom_boutton)
Dim bouton As New Button
bouton.ID = nom_boutton
bouton.Enabled = True
Next
Reactiver chaque bouton, je me suis dit que ce serai un gain de temps de le faire par boucle. Mai si vous avez une meilleur idée je suis preneur...
Sinon je viens juste de penser de faire augmenter un compteur, en partant de un et de le mettre juste apres ma variable:
button+compteur
Dites moi ce que vous en penser...
Sinon je viens juste de penser de faire augmenter un compteur, en partant de un et de le mettre juste apres ma variable:
button+compteur
Dites moi ce que vous en penser...
Les deux peuvent marcher tant que tu créés un objet Button. Mais je pense que button+compteur est mieux :)
