Gambas France BETA


Pas de compte ? Incription

Comment indexer des controles

1
AuteurMessages
caracole#1 Posté le 14/12/2010 à 20:40:00
Bonjour,

En VB la plupart des controles disposent d'une propriété index.
Je n'ai rien vu de tel dans gambas. Il y a bien une propriété groupe mais je n'ai pas trouvé ce que c'est.
comment donc faire l'equivalent ?

Merci
jeanyvon#2 Posté le 14/12/2010 à 20:53:00
Gambas? Ma! Et gustoBonjour,
bienvenu sur ce forum
1
PUBLIC cache AS NEW OBJECT[100]DIM i AS INTEGER FOR i = 0 TO 99 cache[i] = NEW Monbouton(ME) AS "jeu" cache[i].w = 25 cache[i].h = 25 cache[i].Tag = i cache[i].picture = picture["button.bmp"] cache[i].stretch = TRUE IF i = 0 THEN cache[i].x = 10 cache[i].y = 10 ELSE IF i MOD 10 = 0 THEN cache[i].y = cache[i - 1].y + 25 cache[i].x = cache[0].x ELSE IF i > 0 THEN cache[i].y = cache[i - 1].y cache[i].x = cache[i - 1].x + 25 ENDIF NEXT ME.w = cache[9].x + 35 ME.h = cache[90].y + 60 FOR i = 0 TO 9 cache[bombe[i]].mine = TRUE NEXT

ce code te donne 100 boutons sur ta form. Tu les appel par leur nom et tu capture les évènements avec le group ici jeu
tu peux donc avoir une sub du genre:
1
PUBLIC SUB jeu_MouseUp()DIM i AS INTEGER, condition AS INTEGER IF Mouse.Button = 2 THEN cache[LAST.tag].Picture = Picture["flag.bmp"] cache[LAST.tag].monimage = TRUE cache[LAST.tag].flag = TRUE ELSE detectalentour(LAST.tag) ENDIF FOR i = 0 TO 9 IF cache[bombe[i]].flag THEN INC condition ENDIF NEXT IF condition > 9 THEN gagneEnd


voilà
A+
JY
Vieillir? On peut retarder mais pas y échapper!
caracole#3 Posté le 14/12/2010 à 22:34:00
Bonsoir

je vais cogiter cet exemple..

Grand merci, Pierre

ps:

Je viens de découvrir ici http://gambasdoc.org/help/doc/diffvb?fr

La propriété Index des contrôles de formulaire VB n' a pas d'équivalent en Gambas. Vous pouvez facilement créer un tableau de contrôles, mais vous devez le faire dans le code. Il n'existe aucune façon de le faire de manière graphique. Par conséquent, quand vous copiez un contrôle et le recollez sur le formulaire d'où il provient, il est directement renommé avec un nom approprié plutôt que de vous demander si un groupe de contrôles doit être créé.


Je crois que tout est clair !
jeanyvon#4 Posté le 15/12/2010 à 07:35:00
Gambas? Ma! Et gustoSalut
heu! je m'appelle pas Pierre
a+
JY
Vieillir? On peut retarder mais pas y échapper!
jlouis#5 Posté le 15/12/2010 à 09:41:00
Bonjour à tous,

il y a un peu moins d'un an j'avais posté ce message sur le même sujet, ça peut servir, j'espère.

http://gambaslinux.forumactif.net/le-code-f1/creer-un-groupe-de-boutons-t70.htm

caracole#6 Posté le 15/12/2010 à 13:14:00
Salut
heu! je m'appelle pas Pierre
a+
JY

:lol: c'est moi qui m'appelle Pierre !
jeanyvon#7 Posté le 15/12/2010 à 13:23:00
Gambas? Ma! Et gustoHello!
ça, j'avais compris mais un peu tard :lol!: :lol!: :lol!:
A+
JY
Vieillir? On peut retarder mais pas y échapper!
1