Gambas France BETA


Pas de compte ? Incription

Scroll sur TrayIcon :

Ce sujet est résolu.

1
AuteurMessages
valaquarus#1 Posté le 29/7/2024 à 17:39:51
-- Unus Ex Altera --Bonsoir à tous,
toujours des petits soucis de fonctionnement sur les TrayIcon.
Je ne comprends pas pourquoi ce qui suit ne fonctionne pas, j'ai tourner et virer, status quo!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
PUBLIC SUB TrayIcon1_Scroll(Delta AS FLOAT, Orientation AS INTEGER) '<--------' roulette sur TrayIcon

DIM pos AS FLOAT = 0.0
DIM truc AS INTEGER
DIM A, B AS BOOLEAN

A = truc + cbxRadio.Index >= 0
B = truc + cbxRadio.Index <= cbxRadio.Count - 1
Orientation = 1
pos = Delta * Orientation

truc -= CInt(pos)

IF A AND B THEN
DefTrayIcon()
ModSon.son("camera1")
cbxRadio.Index += truc '<------------------------' Fonctionne une fois puis fige ?
ELSE
ModSon.son("beep")
ENDIF

END


cbxRadio est un combobox contenant les noms de stations.
J'ajoute le code du combobox pour lequel la sélection des radios fonctionne bien.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PUBLIC SUB cbxRadio_Click() '<----------------------------' sélection dans la liste des radios

ind = cbxRadio.Index
hResult = db.Exec("select * from Table1 " & tri)

IF hResult.Available THEN
hResult.MoveTo(cbxRadio.Index)
$sStationChoisie = hResult!URL
ENDIF

tgbLecture.Value = FALSE
DefTrayIcon()
tgbLecture.Value = TRUE

END

Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.3
valaquarus#2 Posté le 29/7/2024 à 19:09:56
-- Unus Ex Altera --Celui là m'a demandé du temps mais je l'ai eu.

Un simple
1
2
refresh
WAIT
situé plus loin dans le code, bloquait le TrayIcon.
Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.3
1