Problème avec mon imagebox et la commande EV

**WinRichi** · 11/06/2015, 13h52

Bonjour, j'ai un problème avec mon imagebox et avec la commande EV

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
ini/ imagebox(
	ini;nom 	= "PRG_NOTEPAD_About"
	ini;fenetre 	= "PRG_NOTEPAD"
	ini;couleur 	= "000,000,000"
	ini;couleurf 	= "000,000,000"
	ini;type 	= "0"
	ini;image 	= "%PROG%\NOTEPAD\ENREGIST.BMP"
	ini;px 	= "131"
	ini;py 	= "0"
	ini;tx 		= "95"
	ini;ty 		= "33"
	creer/
	EV/ %PROG%\NOTEPAD\test.cpc
ini/ imagebox)

L'imageBox marche mais si je clique dessus , rien ne s’actionne

Voici le contenue du test.cpc

Code :

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

1
2
3
rem/ test

msgbox/ Sa marche ! et oui je tape sans ecrire ;)

Rien ne s’actionne !

Merci

**cpcdos** · 11/06/2015, 15h46

Salut,

Dans ton fichier test.cpc, tu dois placer ton code dans une procédure d'événement qui correspond au nom de ton objet, avec comme type :

CLIC pour le clic gauche.
CLICD pour le clic droit.
etc..

Voici ce que tu devrais taper dans ton test.cpc

Code :

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

1
2
3
4
PROC/ PRG_NOTEPAD_About(CLIC)
	rem/ test
	msgbox/ Sa marche ! et oui je tape sans ecrire ;)
FIN/ PROC

Cordialement.

**WinRichi** · 14/06/2015, 12h22

Super merci , cela fonctionne !

**WinRichi** · 16/06/2015, 14h13

Encore moi , j'ai fait comme tu a dis mais sa marche pas :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
rem/ Les objets

rem/ On charge les Utilisateurs :

:_Variables:

exe/ OS\Sys\Comptes\Users.cpc /l:_Users

:_Clic:

ini/ fenetre(
        ini;nom = "F_LOGIN"
        ini;texte = "Connexion Compte Utilisateur Multi-Sessions"
        ini;type = "3;M0R0F0T0"
        ini;couleur = "255,255,255"
        ini;tx = "EX"
        ini;ty = "EY"
        ini;px = "0"
        ini;py = "0"
        creer/
ini/ fenetre)

FIX/ PXLBL = /c %ECRX% / 2
FIX/ PXLBL = /c %PXLBL% - 200
FIX/ PY = /c %ECRY% / 2
FIX/ PY2 = /c %PY% + 5

ini/ imagebox(
	ini;fenetre = "F_LOGIN"
	ini;nom = "Users_1"
	ini;texte = "%Utilisateur1%"
 	ini;couleurf = "200,200,200"
 	ini;couleurp = "245,245,245"
 	ini;transparent = "0"
 	ini;image = "%Media%/%Utilisateur1B%.bmp"
 	ini;type = "0"
	ini;tx = "0"
	ini;ty = "0"
	ini;px = "%PXLBL%"
	ini;py = "%PY2%"
	Creer/
	ev/ & OS\Sys\LOGIN\INDEX.CPC /l:_Connect1
ini/ imagebox)

FIX/ PY = /c %PY% + 50
FIX/ PY2 = /c %PY% + 5
FIX/ PXLBL = /c %PXLBL% - 5

ini/ imagebox(
	ini;fenetre = "F_LOGIN"
	ini;nom = "Users_2"
	ini;texte = "%Utilisateur2%"
 	ini;couleurf = "200,200,200"
 	ini;couleurp = "245,245,245"
 	ini;transparent = "0"
 	ini;image = "%Media%/%Utilisateur2B%.bmp"
 	ini;type = "0"
	ini;tx = "0"
	ini;ty = "0"
	ini;px = "%PXLBL%"
	ini;py = "%PY2%"
	Creer/
	ev/ & OS\Sys\LOGIN\INDEX.CPC /l:_Connect2
ini/ imagebox)

et sur Index.CPC :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
:_FENETRE:

exe/ & OS\Sys\Comptes\Users.cpc /l:_Default

SI/ %Pass% = #0 (:
	EXE/ & %SYSTEME%\INDEX.CPC /l:_BAR1
FIN/ SI


exe/ OS\Sys\LOGIN\INDEX.CPC /l:_ENTRES

:_ENTRES:
exe/ OS\Sys\LOGIN\ENTRES.CPC /l:_Variables

:_Connect1:

PROC/ Users_1(CLIC)

rem/ Allez , On fixe l'Utilisateur puis aprés HOP Login 

FIX/ Utilisateur = %Utilisateur1%
exe/ & OS\Sys\LOGIN\Connect.CPC

FIN/ PROC

:_Connect2:

PROC/ Users_1(CLIC)

rem/ Comme sur Connect1

FIX/ Utilisateur = %Utilisateur2%
exe/ & OS\Sys\LOGIN\Connect.CPC

FIN/ PROC

:_Infos1:

FIX/ Utilisateur = %Utilisateur1%

:_Infos2:

FIX/ Utilisateur = %Utilisateur2%

**BlackoOSX** · 16/06/2015, 18h23

Salut!
Je pense que si ça ne marche pas c'est parce que tu as mis tes procédures dans des labels.
Bonne journée!

**cpcdos** · 17/06/2015, 09h24

Salut,

ça ne marche pas c'est parce que tu as mis tes procédures dans des labels

Exact

Encore une fois, tu dois placer ton code dans une procédure d'événement qui correspond au nom de ton objet

Les procédures d'événements ne ressemblent pas à " :clic: " ou autre mais à

Code :

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

proc/ NomDeMonObjet(Evenement)

et une grosse erreur à la ligne commande ev/ & OS\Sys\LOGIN\INDEX.CPC ~~/l:_Connect2~~ et _Connect1 aussi
donc tu peux aussi les supprimer du code

Après la commande creer/ juste cela te suffit : ev/ OS\Sys\LOGIN\INDEX.CPC le moteur CCP s'occupe de chercher à quoi il correspond

Exemple :
Si tu as fait 1 clic sur "Users_1" alors le moteur CCP va chercher la ligne "PROC/ Users_1(CLIC)" et exécuter son contenu jusqu'a "FIN/ PROC"
Si tu as fait 1 clic sur "Users_2" alors le moteur CCP va chercher la ligne "PROC/ Users_2(CLIC)" et exécuter son contenu jusqu'a "FIN/ PROC"
Si tu as fait 1 clic droit sur "Users_1" alors le moteur CCP va chercher la ligne "PROC/ Users_1(CLICD)" et exécuter son contenu jusqu'a "FIN/ PROC"
etc...

Pour récapituler,

N'utilises pas de & ou de /L:MonLabel dans la commande EV/
PROC/ doit contenir le nom de l'objet qui a ciblé le fichier via la commande EV/, et l’événement entre parenthèses et se finit par FIN/ PROC

Tiens nous au courant

Cordialement

**WinRichi** · 17/06/2015, 12h36

Merci pour vos deux réponces , CPCDOS et BlackOSX .

J'ai fait comme vous aviez dis , et voila ce que sa donne :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
rem/ Les objets

rem/ On charge les Utilisateurs :

:_Variables:

exe/ OS\Sys\Comptes\Users.cpc /l:_Users

:_Clic:

ini/ fenetre(
        ini;nom = "F_LOGIN"
        ini;texte = "Multi-Session WinRichi Tech."
        ini;type = "3;M0R0F0T0"
        ini;couleur = "255,255,255"
        ini;tx = "EX"
        ini;ty = "EY"
        ini;px = "0"
        ini;py = "0"
        creer/
ini/ fenetre)

FIX/ PXLBL = /c %ECRX% / 2
FIX/ PXLBL = /c %PXLBL% - 200
FIX/ PY = /c %ECRY% / 2
FIX/ PY2 = /c %PY% + 5

ini/ imagebox(
	ini;fenetre = "F_LOGIN"
	ini;nom = "Users_1"
	ini;texte = "%Utilisateur1%"
 	ini;couleurf = "200,200,200"
 	ini;couleurp = "245,245,245"
 	ini;transparent = "0"
 	ini;image = "%Media%/%Utilisateur1B%.bmp"
 	ini;type = "0"
	ini;tx = "0"
	ini;ty = "0"
	ini;px = "%PXLBL%"
	ini;py = "%PY2%"
	Creer/
	ev/ OS\Sys\LOGIN\Connect1.CPC
ini/ imagebox)

FIX/ PY = /c %PY% + 50
FIX/ PY2 = /c %PY% + 5
FIX/ PXLBL = /c %PXLBL% - 5

ini/ imagebox(
	ini;fenetre = "F_LOGIN"
	ini;nom = "Users_2"
	ini;texte = "%Utilisateur2%"
 	ini;couleurf = "200,200,200"
 	ini;couleurp = "245,245,245"
 	ini;transparent = "0"
 	ini;image = "%Media%/%Utilisateur2B%.bmp"
 	ini;type = "0"
	ini;tx = "0"
	ini;ty = "0"
	ini;px = "%PXLBL%"
	ini;py = "%PY2%"
	Creer/
	ev/ OS\Sys\LOGIN\Connect2.CPC
ini/ imagebox)

Connect1.CPC :

Code :

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

1
2
3
4
5
6
7
8
PROC/ Users_1(CLIC)

rem/ Allez , On fixe l'Utilisateur puis aprés HOP Login 

FIX/ Utilisateur = %Utilisateur1%
exe/ & OS\Sys\LOGIN\Connect.CPC

FIN/ PROC

Connect2.CPC :

Code :

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

1
2
3
4
5
6
7
8
9
PROC/ Users_2(CLIC)

rem/ Comme sur Connect1

FIX/ Utilisateur = %Utilisateur2%
exe/ & OS\Sys\LOGIN\Connect.CPC

FIN/ PROC

Et l'index.CPC :

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
:_FENETRE:

exe/ & OS\Sys\Comptes\Users.cpc /l:_Default

SI/ %Pass% = #0 (:
	EXE/ & %SYSTEME%\INDEX.CPC /l:_BAR1
FIN/ SI


exe/ OS\Sys\LOGIN\INDEX.CPC /l:_ENTRES

:_ENTRES:
exe/ OS\Sys\LOGIN\ENTRES.CPC /l:_Variables


:_Infos1:

FIX/ Utilisateur = %Utilisateur1%

:_Infos2:

FIX/ Utilisateur = %Utilisateur2%

J'ai pas encore tester mais je croit que c'est comme ça ?

**cpcdos** · 17/06/2015, 14h16

ça me semble bon, a toi de nous tenir informé

**WinRichi** · 17/06/2015, 15h45

Cool , Je testerais aprés .... Vive le Multi-Sessions !

CPCDOS , J'espert que le Multi-Sessions marcheras !

**WinRichi** · 18/06/2015, 10h17

Je viens de tester , mais sa ne marche toujours pas

**cpcdos** · 18/06/2015, 10h19

Sois plus précis, enfin expliques à quelle moment ça ne marche pas

**WinRichi** · 18/06/2015, 10h20

Envoyé par cpcdos

Sois plus précis, enfin expliques à quelle moment ça ne marche pas

En faites , l'image Box s'affiche bien mais si je clique rien ne s'execute (même pas une messagebox) , mais question , pourquoi il y a sa dans les Logs ?

Code :

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

1
2
3
4
5
6
7
8
9
18-06-2015 10:17:44(1434622664.71) :  EV : Evenement:CLIC Type interaction:CLIC Objet/fenetre:F_LOGIN P3:
18-06-2015 10:17:44(1434622664.71) :  EV : Evenement:CLIC Type interaction:CLIC Objet/fenetre:F_LOGIN P3:
18-06-2015 10:17:45(1434622665.75) :  EV : Evenement:CLIC Type interaction:CLIC Objet/fenetre:F_LOGIN P3:
18-06-2015 10:17:45(1434622665.75) :  EV : Evenement:CLIC Type interaction:CLIC Objet/fenetre:F_LOGIN P3:
18-06-2015 10:17:47(1434622667.01) :  EV : Evenement:CLIC Type interaction:CLIC Objet/fenetre:F_LOGIN P3:
18-06-2015 10:17:47(1434622667.01) :  EV : Evenement:CLIC Type interaction:CLIC Objet/fenetre:F_LOGIN P3:
18-06-2015 10:17:47(1434622667.34) :  EV : Evenement:CLIC Type interaction:CLIC Objet/fenetre:F_LOGIN P3:
18-06-2015 10:17:47(1434622667.34) :  EV : Evenement:CLIC Type interaction:CLIC Objet/fenetre:F_LOGIN P3:
18-06-2015 10:17:49(1434622669.49) :  EV : Evenement:CLIC Type interaction:CL

**cpcdos** · 18/06/2015, 10h24

Etrange! D'après ce log, quand tu clique, concrètement ça clique sur "F_LOGIN" qui est ta fenêtre et pas ton imagebox

Essaie de mettre Users_1 et Users_2 en majuscules (Dans ton ini/ imagebox() et les PROC/ )

Code :

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

18-06-2015 10:17:44(1434622664.71) :  EV : Evenement:CLIC Type interaction:CLIC Objet/fenetre:F_LOGIN P3:

18-06-2015 : Date
10:17:44 : heure
(1434622664.71) : temps en microsecondes
EV : : Fonction
Evenement:CLIC : Événement reconnu
Type interaction:CLIC : Interaction utilisateur / physique ....
Objet/fenetre: : Objet/processus concerné
P3: Inutilisé