[VB] Erreur de code

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

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
A voir également:

4 réponses

Réponse 1 / 4
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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
Réponse 2 / 4
Ycc
 
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
Ycc
 
Je peu avoir le code pour une picturebox mon code n'est pas bon si j'ai bien compris adapter pour une textbox
0
Réponse 3 / 4
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
... je clique sur ma textbox ...

Ce n'est vraiment pas clair ce que tu dis ...
0
Réponse 4 / 4
Kalissi Messages postés 218 Date d'inscription   Statut Membre Dernière intervention   20
 
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
Ycc
 
Merci !!!
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Problème de décodeur TV Bouygues Telecom
Massi119 -
Turone37 -

188 réponses
Panne T32 sur telecommande Orange
rayseg22G -
Fifi -

6 réponses