[Renvoyer propriété picture] VB6

Utilisateur anonyme -  
gregouz62 Messages postés 125 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Sous visual basic 6.0 j'aimerais récupérer le chemin d'accès de la propriété "picture" d'un bouton. Pour cela j'écris :

MsgBox me.command1.picture

mais j'ai l'erreur 13 (Type incompatible)

Comment palier ce soucis svp ?

Merci
A voir également:

3 réponses

gregouz62 Messages postés 125 Date d'inscription   Statut Membre Dernière intervention   11
 
Bonjour,

Pour quel utilisation particulière veux tu faire cela ?
0
Utilisateur anonyme
 
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
0
gregouz62 Messages postés 125 Date d'inscription   Statut Membre Dernière intervention   11
 
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
0