Discussion :

[philouxy]

Bonjour à tous,

Je fais de nouveau appel à vous et vos connaissances, car je n'ai pas trouvé la réponse ailleurs (net, ou la librairie MSDN)

Je vous expose mon soucis : J'aimerai insérer une image dans un "bouton" (j'ai vu que de basse on pouvais l'initialiser, c'est ce que j'ai testé = OK) mais peut-on changer l'image en code avec une action...

le principe de mon bout de programme est lorsque je sélectionne un ChecBox, l'image du bouton doit changer,... malheureusement ca ne fonctionne pas (voir code ci-dessous).

Autre question, en initialisation une image dans le bouton je n'arrive pas à supprimer l'image, à part de mettre le mode "Style" en mode 0-Standart au lieu du mode 1-Graphical, peut-on supprimer l'image tout simplement ???

Bon vous avez compris que si je pose la question, c'est que je n'ai pas réussi

je vous mets à dispo mon bout de code...

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
'*****************************************************************************'
' Evenement : Clic sur le choix du navigateur
' Action    : affiche une image dans la touche et efface les autres sélection
'*****************************************************************************'
Private Sub Choix_GC_Click()
 
    'Déselection des choix navigateur
    '--------------------------------
    Choix_MF.Value = 0
    Choix_IE.Value = 0
 
    'affichage l'image dans la touche
    '--------------------------------
    Cmd_Contact.Picture = "C:\Documents and Settings\Administrateur\Bureau\Perso\Images\chrome2.jpg"
 
End Sub

Si vous avez une solus, une suggestion, un tuto, un exemple, etc, je suis preneur
En tout cas merci de m'avoir déjà lu.

Amicalement Philou

[SfJ5Rpw8]

utilise loadpicture ...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cmd_Contact.Picture = LoadPicture("C:\Documents and Settings\Administrateur\Bureau\Perso\Images\chrome2.jpg")

Autre question, en initialisation une image dans le bouton je n'arrive pas à supprimer l'image, à part de mettre le mode "Style" en mode 0-Standart au lieu du mode 1-Graphical, peut-on supprimer l'image tout simplement ???

dans l'éditeur VB, pour le champ picture tu sélectionne le texte (bipmap) et tu actionne la touche "Suppr"... tout simplement..

[l_autodidacte]

Si j'ai bien compris, tu veux supprimer l'image pendant l'exécution.

Si c'est le cas, tu dois écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cmd_Contact.Picture = LoadPicture("")

[philouxy]

Merci à vous deux pour vos réponses, ca marche Nickel , mais y a un mais ...

Maintenant j'ai un autre soucis qui à avoir avec ce sujet, mais ou je ne comprends pas les erreurs car pour un exemple ca marche, et pour les autres ca fonctionne plus, non ????


Voilà j'ai 3 ChexBox qui me permette de définir une image différente dans un même CommandButton, si je sélectionne le premier j'ai la bonne image qui apparait, mais si je sélectionne les autres, j'ai une erreur sur le chargement de l'image alors que c'est les images sont dans le même dossier.... Voici un printscreen de défaut que j'ai à l'exécution de mon programme



Ci-dessous le code qui marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
'*****************************************************************************'
' Evenement : Clic sur le choix du navigateur
' Action    : affiche une image dans la touche et efface les autres sélection
'*****************************************************************************'
Private Sub Choix_IE_Click()
 
    'Déselection des choix navigateur
    '--------------------------------
    Choix_MF.Value = 0
    Choix_GC.Value = 0
 
    'affichage l'image dans la touche
    '--------------------------------
    If Choix_IE.Value = 1 Then
        Cmd_Contact.Picture = LoadPicture("C:\Documents and Settings\Administrateur\Bureau\Perso\Images\ie.bmp")
    Else
        Cmd_Contact.Picture = LoadPicture("")
    End If
 
End Sub

et ci-dessous le code qui me fait l'erreur : Ne pige

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
'*****************************************************************************'
' Evenement : Clic sur le choix du navigateur
' Action    : affiche une image dans la touche et efface les autres sélection
'*****************************************************************************'
Private Sub Choix_MF_Click()
 
    'Déselection des choix navigateur
    '--------------------------------
    Choix_IE.Value = 0
    Choix_GC.Value = 0
 
 
    'affichage l'image dans la touche
    '--------------------------------
    If Choix_MF.Value = 1 Then
        Cmd_Contact.Picture = LoadPicture("C:\Documents and Settings\Administrateur\Bureau\Perso\Images\Mozilla_firefox.bmp")
    Else
        Cmd_Contact.Picture = LoadPicture("")
    End If
 
End Sub

Si vous des remarques, des suggestions, des idées, je suis preneur car la je vois pas puisque c'est le même code....

Amicalement Philou

[SfJ5Rpw8]

bonsoir,

as-tu comparé tes 2 images : taille, résolution ....

[philouxy]

Sorry pour la réponse tardive,

Voici les caractéristique des images :

pour l'image qui s'affiche dans le CommandButton les dimension sont les suivante : résolution : 300x300 ; fichier de bitmap (.bmp)

pour les 2 autres images : résolution 128x128 et toujours fichier de type bitmap (.bmp)...

Ce que je ne comprends pas, c'est que les 2 autres images sont de taille plus petites, donc normalement cela devrait fonctionné, non ?!?. Ou bien c'est la première image chargée qui définit la résolution pour les autres ? Surtout que je ne définis pas d'image au lancement de cette séquence (initialisation de la Form). Je suis un peu perdu...

Autre question qui me vient : Comment créer un répertoire qui répertorie toutes mes images utilisé dans mon programme, voir chemin d'accès, ceci pour la finalisation de projet... (utilisation par la suite sur un autre PC)

Merci de m'avoir lu, et si vous avez des suggestions, idées, ou autres, elles sont les bienvenues

Amicalement Philou