[VB] Erreur de code

Résolu/Fermé
Ycc - 15 févr. 2014 à 16:30
 Ycc - 22 févr. 2014 à 16:28
Salut,
Je voudrais faire un system quand je clique sur ma textbox une image dans mais ressources s'affiche sur la textbox une erreur s'affiche voila mon code.

Public Class Form1

Private Sub Un_Click(sender As Object, e As EventArgs) Handles Un.Click
Un.Image = Int(Rnd() * 4)
Select Case Un.Image
Case 0
Un.Image = My.Resources._2
Case 1
Un.Image = My.Resources._3
Case 2
Un.Image = My.Resources._4
Case 3
Un.Image = My.Resources._5

End Select
End Sub

Merci

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
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.
0
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
0
Je peu avoir le code pour une picturebox mon code n'est pas bon si j'ai bien compris adapter pour une textbox
0
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
... je clique sur ma textbox ...

Ce n'est vraiment pas clair ce que tu dis ...
0
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
Bonjour,

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
0
Merci !!!
0