[VB] Erreur de code
Résolu
Ycc
-
Ycc -
Ycc -
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.
Merci
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
-
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.
-
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 -
... je clique sur ma textbox ...
Ce n'est vraiment pas clair ce que tu dis ...
-
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
