Gambas France BETA


Pas de compte ? Incription

Menu et evenement

Ce sujet est résolu.

1
AuteurMessages
kwuy33#1 Posté le 4/3/2014 à 12:16:14
Bonjour
J'ai un menu qui est construit a partir d'un fichier conf, il se charge a chaque demarrage de l'appli(la raison est que j'ai une fenetre qui me parmet de creer une entree pour ce menu avec les fichiers de parametres derriere)
Mon soucis est que je ne sais pas comment intercepter le click sur ce menu genere par fichier( et pas en dur dans l'editeur de menu)...

Merci a vous
Reivillo#2 Posté le 4/3/2014 à 14:39:39
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonjour kwuy33.

Détaillé son soucis, c'est bien,
mais avec un bout de CODE, c'est mieux!

Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
kwuy33#3 Posté le 4/3/2014 à 15:25:49
autant pour moi

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
PUBLIC SUB Form_Open()

DIM OtherConfigFile AS Settings
DIM value AS STRING
DIM lastValue AS INTEGER
DIM i AS INTEGER


OtherConfigFile = NEW Settings("/home/fportaries/GambasProject/Automatisation_IT/Automatisation_IT.conf")
lastValue = OtherConfigFile["Parametre_Menu/counter"]
FOR i = 1 TO lastValue
value = OtherConfigFile["Parametre_Menu/menu" & i]
' Message.Info(value)
hMenu = NEW Menu(MenuGen) AS "AddMenuItem"
hMenu.Text = value
NEXT

END

PUBLIC SUB AddMenuItem_Click()



END


OUPSSSSSSss
Reivillo#4 Posté le 4/3/2014 à 16:38:42
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »As-tu essayé avec un Événement Mouse,
comme ceci
1
PUBLIC SUB AddMenuItem_MouseDown()
ou cela
1
PUBLIC SUB AddMenuItem_MouseUp()
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
kwuy33#5 Posté le 4/3/2014 à 16:43:17
oui ca ne donne rien, je pense m'orienter vers cette solution http://gambaslinux.eg2.fr/forum/post.php?cat=4&fid=1&pid=6&page=1&r=1

1
2
3
4
5
6
7
8
9
10
11
12
OtherConfigFile = NEW Settings("/home/fportaries/GambasProject/Automatisation_IT/Automatisation_IT.conf")
lastValue = OtherConfigFile["Parametre_Menu/counter"]

FOR i = 1 TO lastValue
value = OtherConfigFile["Parametre_Menu/menu" & i]
' Message.Info(value)
$hMenu = NEW Menu(MenuGen) AS "AddMenuItem"
$tab_menu.Add($hMenu)
$tab_menu[i].caption = value
' hMenu.Text = value

NEXT


mais j'ai toujours l'erreur 'Reference dobjet null'
pourtant j'ai declare $tab_menu As Object[]

Merci
Reivillo#6 Posté le 4/3/2014 à 16:58:07
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »
pourtant j'ai declare $tab_menu As Object[]
et
$tab_menu As NEW Object[]
ça donne quoi ?
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
kwuy33#7 Posté le 4/3/2014 à 17:02:24
ca fonctionne mais il me met 'depassement de tableau ' sur
$tab_menu.caption = value
Reivillo#8 Posté le 4/3/2014 à 17:27:42
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Essaye en déclarant une Valeur Arbitraire:
$tab_menu As NEW Object[10] ou plus.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
kwuy33#9 Posté le 4/3/2014 à 17:31:50
Marche pas non plus...je suis revenu a ma premiere idee
et dans le AddMenuItem_click j'utilise last
avec ca je devrais pouvoir me debrouiller

Merci
Reivillo#10 Posté le 4/3/2014 à 18:38:57
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Ou peut-être ceci...
$tab_menu[$tab_menu.count].caption = value
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
1