Gambas France BETA


Pas de compte ? Incription

click au clavier ?

Ce sujet est résolu.

123
AuteurMessages
valaquarus#31 Posté le 27/2/2023 à 14:54:19
-- Unus Ex Altera --Ça y est grâce à Patrick j'ai trouvé :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
PRIVATE SUB couleur(ch AS STRING, c AS INTEGER)

DIM btn AS OBJECT

FOR EACH btn IN ME.Controls
IF Object.Is(btn, "Button") AND IF btn.Text = ch THEN
' If btn Is Button.Then 'And If btn.Text = ch Then
btn.Background -= c
btn.Border = NOT btn.Border
ENDIF

NEXT

END


J'ai juste changé Me.Children par Me.Controls
et ça fonctionne, j'ai mêm ajouté le truc de sphéris pour en ajouter une couche.
Goal !

Valaquarus

Un grand merci à tous les deux.
Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.3
spheris#32 Posté le 27/2/2023 à 16:31:05
T'es un chef! Bravo
www.gambaslinux.fr
123