Gambas France BETA


Pas de compte ? Incription

Nom du groupe des ImageButton

Ce sujet est résolu.

1
AuteurMessages
Gambette#1 Posté le 20/7/2015 à 12:05:30
Bonjour a tous,

Voilà mon problème.
J'ai un panel (oObj) contenant x ImageButton et je duplique les 35 premiers boutons dans un nouveau panel à l'aide de la procédure "Cbutton" ci-dessous.

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

DIM myControl AS STRING
DIM hClass AS Control

myControl = "ImageButton"
FOR EACH hClass IN oObj.Children
IF Object.type(hClass) = myControl THEN
IF hClass.Tag THEN
IF Val(Right$(hClass.Name, Len(hClass.name) - 1)) < 36 THEN
Hbutton = NEW (ImageButton, hpan)
hbutton.Name = "B" & Right$(hClass.Name, Len(hClass.name) - 1)
hbutton.W = hClass.w
hbutton.H = hClass.H
hbutton.x = hClass.x
hbutton.Y = hClass.y
hbutton.Tag = hClass.tag
ENDIF
ENDIF
ENDIF
NEXT

END


Les boutons sont créés correctement mais j'aimerai leur attribuer un nom de groupe. Or le contrôle "Group" n'existe pas. Je ne trouve que "Tag".
Comment donner un nom de groupe aux ImageButton que je créé ? J'en ai besoin pour gérer les actions sur ces forms.
vuott#2 Posté le 20/7/2015 à 12:43:34
Ne cedere ineluctabili possimusYou have to change the line Hbutton = New (Button, hpan) like below:

1
Hbutton = NEW (Button, hpan) AS "NameGroup"



So you can use the events.
Example:
1
2
3
4
5
PUBLIC SUB NameGroup_Click()

PRINT LAST.Name

END
« Vita non suavis esse potest, nec Mors amara. »
Gambette#3 Posté le 20/7/2015 à 16:13:18
Merci Vuott. C'est tout bon.
Merci aussi de partager tes grandes connaissances avec nous.
1