[VB] Erreur de code
Résolu/Fermé
A voir également:
- [VB] Erreur de code
- Erreur 0x80070643 - Accueil - Windows
- Code ascii de a - Guide
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
4 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
15 févr. 2014 à 17:31
15 févr. 2014 à 17:31
Bonjour,
Si Un est ta textbox, tu dois avoir Un.Image sousligné en bleu et l'indication que 'Image' n'est pas un membre de "System.Windows.Forms.TextBox".
Tu ne peux tout simplement pas mettre une image dans une TextBox, utilise une PictureBox.
Si Un est ta textbox, tu dois avoir Un.Image sousligné en bleu et l'indication que 'Image' n'est pas un membre de "System.Windows.Forms.TextBox".
Tu ne peux tout simplement pas mettre une image dans une TextBox, utilise une PictureBox.
Un.image est bien une picturebox
Si j'ai bien compris c'st cette ligne qui ne va pas "Un.Image = Int(Rnd() * 4)"
Dans mon programme il a aucune textbox j'ai juste prix le code d'un tuto et j'ai ésayer de le modifier
Si j'ai bien compris c'st cette ligne qui ne va pas "Un.Image = Int(Rnd() * 4)"
Dans mon programme il a aucune textbox j'ai juste prix le code d'un tuto et j'ai ésayer de le modifier
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
15 févr. 2014 à 23:21
15 févr. 2014 à 23:21
... je clique sur ma textbox ...
Ce n'est vraiment pas clair ce que tu dis ...
Ce n'est vraiment pas clair ce que tu dis ...
Kalissi
Messages postés
218
Date d'inscription
jeudi 2 mai 2013
Statut
Membre
Dernière intervention
15 juillet 2019
20
Modifié par Kalissi le 22/02/2014 à 14:38
Modifié par Kalissi le 22/02/2014 à 14:38
Bonjour,
Est-ce ceci que tu tentes d'accomplir :
K
Est-ce ceci que tu tentes d'accomplir :
Private Sub Un_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Un.Click
Dim Indice As Int32 = 0
Dim Rand As New Random()
Indice = Rand.Next(1, 6)
' A titre informatif pour valider le Random
Me.tbxNumero.Text = Indice.ToString
Select Case Indice
Case 1
Un.Image = My.Resources.Image101
Case 2
Un.Image = My.Resources.Image102
Case 3
Un.Image = My.Resources.Image103
Case 4
Un.Image = My.Resources.Image104
Case 5
Un.Image = My.Resources.Image105
Case 6
End Select
End Sub
K