image dans un userform sous condition

[vanwin]

Bonjour,

Travaillant sur le cote estetique de mon userform, je me demandais si je pouvais introduire une photo sur l userform en fonction, disons, de l equipe de foot auquel appartient le joueur selectionne.

Pour exemple (desole je suis belge), si Viera est selectionne dans le userform alors c est une photo de l equipe qui s affichera automatiquement sur le meme userform. Par contre, si Marc Wilmots est choisi c est l equipe belge qui apparaitra.

Mon idee est de placer la conditionne dans la textbox "choix de joueur"

if "choix de joueur" = Viera then afficher image France ... le probleme est que je ne connais pas la fonction pour introduire une image dans un userform. Mais je peux me tromper, ce qui doit etre le cas.

Je ne sais pas vous envoyer mon fichier il est trop lourd 🙁

Merci pour votre aide, toujours aussi precieuse.
Bonne journee,
Xavier

 

[fanfan38]

Re : image dans un userform sous condition

Bonjour
Tu fais comme un textbox...
Dans ton userform tu mets un controle image.
Ensuite si combobox1.value= viera image1=France...

A+ François

 

[Pierrot93]

Re : image dans un userform sous condition

Bonjour vanwin, François

@François, comprends pas trop ta methode, chez moi cela ne fonctionne pas... je dois mal m'y prendre ou quelque chose qui m'échappe...

sinon peut être une autre solution :

Private Sub CommandButton1_Click()
If TextBox1.Value = "viera" Then
    Image1.Picture = LoadPicture("C:\My Documents\mesimages\france.gif")
Else
    Image1.Picture = LoadPicture("")
End If
End Sub

j'ai placé le code dans l'événement click d'un bouton de l'usf, mais tu peux adapter en fonction de ton projet.

bonne journée
@+

 

[fanfan38]

Re : image dans un userform sous condition

Bonjour
Voilà un fichier

A+ François

 

[vanwin]

Re : image dans un userform sous condition

Merci pour vos reponses.

J ai suivi la methode de Pierrot et ca fonctionne parfaitement. Je ne dois plus que retravailler les images pour les rendre conforme aux normes de VB.

Existe t il des standards? Mes images sont trop petites pour le cadre ou trop larges ...

Bonne journee
Xavier

 

[THE CAT 2007]

Re : image dans un userform sous condition

Bonjour à tous,

Pour ajuster l'image au UF :

PICTURESIZEMODE=fmPICTURESIZEMODEstretch (valeur1) dans le UF

 

[Pierrot93]

Re : image dans un userform sous condition

Re, bonsoir Cat

avec l'utilisation de la propriété "PictureSizeMode " :

Private Sub CommandButton1_Click()
With Image1
    If TextBox1.Value = "viera" Then
        .Picture = LoadPicture("C:\My Documents\mesimages\france.gif")
        .PictureSizeMode = fmPictureSizeModeStretch
    Else
        .Picture = LoadPicture("")
    End If
End With
End Sub

bonne soirée
@+