[VB] Erreur de code

Résolu
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

  1. 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
  2. ... je clique sur ma textbox ...

    Ce n'est vraiment pas clair ce que tu dis ...
    1. 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
      1. Je peu avoir le code pour une picturebox mon code n'est pas bon si j'ai bien compris adapter pour une textbox
    2. 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.