[Renvoyer propriété picture] VB6

Bonjour,

Pour quel utilisation particulière veux tu faire cela ?

Merci bien de me proposer ton aide.

Alors bon but est de faire en quelque sorte un bouton à bascule c'est-a-dire qu'en cliquant dessus je veux permuter son image en faisant un test ce qui donne ceci:

If Me.Command1.Picture="C:\MaPremièreImage.jpg" Then
    Text1.Enable=True
     Me.Command1.Picture=LoadPicture("C:\MaSecondeImage.jpg")
Else
    Text1.Enable=False
    Me.Command1.Picture=LoadPicture("C:\MaPremièreImage.jpg")
End If

Voila j'espère ne pas avoir été trop confus dans mon explication.

Merci

Bonjour,

Désolé du temps de réponse, j'ai été plutôt pris ces temps-ci.

Dim test As Boolean

Private Sub Form_Load()

test = True

End Sub

Private Sub Command1_Click()

If test Then
    Text1.Enabled = True
     Set Me.Command1.Picture = LoadPicture("C:\MaSecondeImage.jpg")
     test = False
Else
    Text1.Enabled = False
    Set Me.Command1.Picture = LoadPicture("C:\MaPremièreImage.jpg")
    test = True
End If

End Sub

Alors ici, je créé une variable booléen qui te servira de condition pour ton IF car tu ne peux pas faire la condition sur la propriété picture.

Après à toi de choisir quel image correspond à quel état, c'est juste un exemple.

Tu peux utiliser un integer si tu as plus de deux états dans ce cas au lieu d'utiliser un IF tu utiliseras un SELECT.

C'est la meilleure solution que j'ai trouvé.

Si tu as des questions n'hésites pas !

Cdt