cliquer sur l'image pour la remplacer

Version imprimable

19/09/2009, 17h12
patricktoulon

cliquer sur l'image pour la remplacer
bonjour a tous je voudrais savoir comment faire pour:

j'ai un userform dans le quel j'ai des pettites images et je voudrais que quand je clique dessus elle se change j'explique:

position initial =image1
quand je clique=image2
si je reclique =image3 et ainsi desuite jusque a 9 changements
Code:

1 2 3 private sub imagegauche_clik() if imagegauche=image1 then imagegauche=image2
ect... je pense a un truc dans le genre mais je ne sais pas faire du tout

merci pour le coup de main
19/09/2009, 17h51
ucfoutu

Bonjour,

Donne pour nom à tes images : image0, image1, image2 etc....
Utilise la propriété tag de ton contrôle imagegauche pour y stocker le n° de l'image à mettre le prochain coup
Exemple :

Code:

imagegauche.tag = val(imagegauche.tag) + 1

ce sera toujours bon dès la 1ère fois (puisque Val("") = 0 )
Quand tu cliques : extrais ce n° (lecture de la propriété tag) tu en déduis le n° suivant (simple ...). La nouvelle image à insérer est donc

Code:

Controls("image" & imagegauche.tag)

et (bien évidemment) tu incrémentes la propriété tag de 1 en l'assortissant d'une condition (si > 9 ===>> 0)
19/09/2009, 18h09
patricktoulon

re

bonjour ucfoutu

javoue n avoir rien compris la

j ai essayé ta formule elle ne fonctionne pas ou alors il manque des instruction

une question ou stock on les images

la je nage completement

Citation:

Envoyé par patricktoulon

j'ai un userform dans le quel j'ai des petites images et je voudrais que quand je clique dessus elle se change j'explique:

C'est moi qui ne te comprends plus !
En te lisant : tes images sont déjà sur ton userform !
Appelle-les image0, image1, image2 ..... image8

et j'ai compr(is que tu affiches dans imagegauche

Code à main levée, alors :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private sub userform_initialize() imagegauche.picture = image0.picture avance End Sub Private sub Imagegauche_click() Imagegauche.picture = Controls("image" & Imagegauche.tag).picture avance End sub Private sub avance() Imagegauche.tag = (Val(Imagegauche.tag) + 1) Mod 9 ' astuce pour revenir à 0 End Sub
Je ne vois rien de complexe ici .

19/09/2009, 20h27
patricktoulon

re

ok merci ucfoutu

je vais essayer d'etre le plus clair possible

j ai un userform dans le quel je met une image grace a la petite boite a outi

dans propriete je vais chercher l'image dans mon disque dur

ca c'est l usage classique

moi ce que je veux c'est que quand je clique sur cette image elle change

en image1 ,image2 ect

j'ai bien trouver la formule qui va chercher l'image sur mon disque dur

mais de cette facon ca deviens lourd car il faut que je repette l'operation pour plusieurs image

ou alors plus simple y a t'il une fonction qui pourait me permetre de changer la couleur et le label d'un bouton

sachant que dans les propriete du bouton les couleurs sont pas jojo

car mon but final est que le bouton ou l'image change de couleur a chaque clics voila mon but final

voila j'espere avoir été sufisament clair sinon excuse moi je patoge dans le brouillard la
19/09/2009, 20h43
ucfoutu

Citation:

Envoyé par patricktoulon

ok merci ucfoutu

je vais essayer d'etre le plus clair possible

j ai un userform dans le quel je met une image grace a la petite boite a outi

dans propriete je vais chercher l'image dans mon disque dur

ca c'est l usage classique

moi ce que je veux c'est que quand je clique sur cette image elle change

en image1 ,image2 ect (pardon ? Changer quoi et comment de cette seule image ? )

j'ai bien trouver la formule qui va chercher l'image sur mon disque dur

mais de cette facon ca deviens lourd car il faut que je repette l'operation pour plusieurs image (as-tu pris connaissance de la méthode LoadPicture ? ... dans ton aide en ligne...)

ou alors plus simple y a t'il une fonction qui pourait me permetre de changer la couleur et le label d'un bouton (ben... en en changeant la propriété BackColor .... mais qu'est donc pour toi le "label" d'un "bouton" ???)

sachant que dans les propriete du bouton les couleurs sont pas jojo (comprends pas de quoi tu parles !:)

car mon but final est que le bouton ou l'image change de couleur a chaque clics voila mon but final (comprends de moins en moins)

voila j'espere avoir été sufisament clair sinon excuse moi je patoge dans le brouillard la

Voilà !
Lis mes commentaires et essaye d'être plus (beaucoup plus) clair et précis (si tu n'y parviens pas ===>> exemple Avant/Après). En te rappelant que (à tout hasard)
- un contrôle image n'a rien à voir avec un bouton de commande. Il contient une image, qu'il restitue telle quelle (on ne peut donc en modifier la couleur sans modifier l'image elle-même).
- Excel n'est pas un outil destiné aux modifications de type graphique, qui nécessitent des contrôles plus évolués (PictureBoxes) que les contrôles images. ;)
19/09/2009, 21h10
patricktoulon

re

ok alors voila

je veux faire des boutons qui change de couleur quand je clique dessus

soit en superposant des image ce qui me gene car la fonction loadimage est relativement lente vu que j'ai une bonne 30aine de boutons a faire donc tres lourd

soit en changeant le code couleur d'un commandbutton a chaque fois que je clique

ca doit etre possible puisque je me souvien avoir telecharger un fichier (xls)qui avait les bouton en couleur (jaune ,orange, vert)malheureusement apres formatage j ai perdu ce fichier

et pour cela ou pourai-je trouver les codes couleurs pour faire ca

et le label c'est ce qu'il y a d'ecris sur le bouton (a l'origne commandbutton)

voila

je suppose que sa dois etre un truc tout simple mais je n 'est pas trouvé

merci de ton aide
19/09/2009, 21h27
ucfoutu

Allons bon !
Tout cela (7 messages) pour arriver à si peu et (surtout) sans aucun rapport avec le début :
On commence par la terminologie VB commune (c'est vraiment un minimum) :
- Un Label est un contrôle
- Le texte affiché dans un bouton correspond à sa propriété Caption

On utilise tous le même langage ou on s'inscrit à une compétition du genre "devine de quoi je cherche à parler" ...

On va ensuite à l'examen d'un contrôle :
La fenêtre de ses propriétés est la première chose à laquelle s'intéresser de près.
Parmi les propriétés d'un commandbutton, figure la propriété Style.
Mission N° 1 : ouvrir ton aide en ligne sur cette propriété et lire attentivement
Mission N° 2 : faire des petits essais, juste pour voir....

Voilà ! Désolé de le prendre ainsi, mais ta manière de tourner "autour du pot" m'a considérablement gêné... (essaye de comprendre).
Amitiés et bonne chance.
19/09/2009, 22h03
patricktoulon

re
hihihi

je sais l'umble debutant que je suis semble avoir du mal a ce faire comprendre

alors j ai fait des essais tout seul sur un classeur et j ai trouver comment changer la couleur
Code:

1 2 3 4 5 6 7 private sub commandbuton-click commandbuton.backcolor = (de 1 a 255) 'et voila c'etait tout simple end sub
reste a trouver le chmilblic pour le (label ou caption comme tu veux)

merci pour ta patience encore
19/09/2009, 22h42
ucfoutu
ouais ... très loin de "cliquer sur l image pour la remplacer" ... mais bon ...

Ah... tu connais maintenant la propriété BackColor :ccool: (c'est bien, tu vois, d'examiner les propriétés d'un contrôle).

L'autre, que tu cherches, ne serait mas un "chmilbiic", mais la propriété ForeColor, ... dont n'est pas doté un CommandButton..

Alors ?

C'est là que l'on peut commencer à utiliser des astuces multiples, qui font toutes appel à une connaissance du comportement des contrôles offerts par VB.

En voilà une, au hasard, parmi des dizaines :
Soit Command1 ton commandButton
Tu mets à True sa propriété Graphical
Tu lui donnes la couleur de fond (propriété que tu connais maintenant) de ton choix
tu mets au-dessus de son Caption (le texte qu'il affiche) une textbox Text1 aux dimensions du texte.
Tu lui enlèves ses bordures (maintenant que tu le sais, cherche la propriété concernée, hein ...)
Tu mets sa couleur de fond égale à celle du Command1 (tu sais maintenant quelle propriété est concernée)
- tu donnes à la propriété ForeColor de Text1 la couleur que tu veux donner au texte affiché
- tu donnes à la propriété Text de Text1 le text à afficher
Et, pour bouicler la boucle :
Tu donnes au click de Text1 l'instruction de cliquer Command1
Code:

1 2 3 Private Sub Text1_Click() Command1_Click End Sub
Et voilà (parmi, je le répète, des dizaines d'autres manières de contourner.)

Pourquoi donc une TextBox et pas un Label ? ===>> je te laisse deviner (facile).

EDIT : et pendant que tu y es, dans ton exploration des contrôles de VB :
Regarde donc comment se comporterait un optionButton (Bouton Radio) en style graphical ;)

re hihihih

ok voila ce que je fait mais ca ne marche pas hihii
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Private Sub UserForm_Initialize() CommandButton2.BackColor = &HFFFFFF end sub Private Sub CommandButton1_Click() 'blanc=&H00FFFFFF& 'jaune=&H0000FFFF& 'orange=&H000080FF& 'bleu = 12582912 'vert =65280 'violet=&H00FF00FF& 'bege=&H00C0FFFF& couleur1 = &HFFFFFF couleur2 = &HFFFF& couleur3 = &H80FF& couleur4 = 12582912 couleur5 = 65280 couleur6 = faux couleur7 = &HFF00FF couleur6 = &HC0FFFF i=i+1 CommandButton2.BackColor = couleur & i end sub
heu... la je cale il ne garde pas la valeur de "i" quand je lache le click ent fait il reste a 1
et il ne comprend pas "couleur & i" la je suis perdu
au secours

20/09/2009, 01h11
Antoniom

Hello,

Vois ce fichier joint.

Le texte (Caption) du CommandButton change selon la couleur.

Cdt, Anto.
20/09/2009, 01h25
mercatog
Je ne suivais pas le thème soulevé mais je réponds à ta dernière question:
pour "mémoriser" le i, tu dois le déclarer en variable public

en haut de ton module (avant tes macros)

Code:

Public KOD as Byte

évite le "i" si tu l'utilise ailleurs
Code:

1 2 3 KOD=KOD+1 If KOD>8 Then KOD=1 CommandButton2.BackColor = couleur & KOD

Il suffit pourtant d'utiliser un array et de se servir de ses index, en appliquant exactement le même mécanisme que le tout 1er montré (lorsque tu parlais d'images en rotation) !
C'est même alors plus simple puisque le seul indice de l'array suffira !

Essaye d'analyser et comprendre ceci (tu ne perdras pas ton temps et occuperas bien ton dimanche) avec un userform sur lequel un bouton Command1 en Graphical
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private titi Private Sub Command1_Click() Command1.BackColor = titi(Val(Command1.Tag)) avance End Sub Private Sub UserForm_Initialize) titi = Array(16777215, &HFFFF&, &H80FF&, 12582912) Command1.BackColor = titi(0) avance End Sub Private Sub avance() Command1.Tag = (Val(Command1.Tag) + 1) Mod (UBound(titi) + 1) End Sub
clique plusieurs fois sur command1 et vois ...;)

bonjour a tous et merci pour vos petits bout de code ca va servir

voila ce que je voulais obtenir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub F7_Click()
nombouton = "F7"
nomcase = "F8"
If Controls(nombouton).Caption = "" Then
Controls(nombouton).Caption = "CJ"
Controls(nombouton).BackColor = 33023
Controls(nomcase).Value = "12"
 
ElseIf Controls(nombouton).Caption = "CJ" Then Controls(nombouton).Caption = "PCJ"
Controls(nombouton).BackColor = 65535
 
 
ElseIf Controls(nombouton).Caption = "PCJ" Then Controls(nombouton).Caption = "CN"
Controls(nombouton).BackColor = 16776960
 
 
ElseIf Controls(nombouton).Caption = "CN" Then Controls(nombouton).Caption = "PCN"
Controls(nombouton).BackColor = 49152
 
 
ElseIf Controls(nombouton).Caption = "PCN" Then Controls(nombouton).Caption = "SAJ"
Controls(nombouton).BackColor = 8454143
Controls(nomcase).Value = "11"
 
ElseIf Controls(nombouton).Caption = "SAJ" Then Controls(nombouton).Caption = "SAN"
Controls(nombouton).BackColor = 12583104
Controls(nomcase).Value = "12"
 
ElseIf Controls(nombouton).Caption = "SAN" Then Controls(nombouton).Caption = "CA"
Controls(nombouton).BackColor = 16777215
Controls(nomcase).Value = "5.83"
 
 
ElseIf Controls(nombouton).Caption = "CA" Then Controls(nombouton).Caption = ""
 Controls(nombouton).BackColor = 16777215
Controls(nomcase).Value = ""
 
 
End If
End Sub

merci a tous encore une fois