Discussion :

[Lucas42]

Bonjour , je souhaite faire clignoté 2 Image sur 4 , le souci est que les 4 images sont visibles seulement si on la selectionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub kelimage()
Image1.Visible = (CHGT = 0)
Image2.Visible = (CHGT = 1)
Image3.Visible = (CHGT = 2)
Image4.Visible = (CHGT = 3)
End Sub

Mon Timer pour le clignotement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Timer2_Timer()
cligno = cligno + 1
    Select Case cligno
    Case 1
        IMG.Visible = False
    Case 2
        IMG.Visible = True
cligno = 0
End Select
End Sub

Comme vous le voyez , j'ai créé une variable IMG

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim IMG as String

Dans le but pouvoir ,d' affecter au NAME de l'image que je souhaite faire clignoter IMG , donc j'ai penser à la ligne de code suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Image1.NAME = IMG

En vain , le jolie message suivant est apparu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Impossible d'affecter la propriété en lecture seule

que faire ??

[jmfmarques]

crois-tu vraiment que :

Dim IMG as String

convient ?
s'agit-il d'une chaîne de caractères ou d'un crontrôle ?

résouds par ailleurs (voit ton autre sujet) ton problème de groupes indexés (cela vaudra mieux)

[Lucas42]

Euh , et bien , pour moi c'est une chaine de caractére , et à priori non !!
donc , déja , es ce possible de changer son nom ??
Si oui , je pense que le souci viendrai que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(NAME)

est en lecture seule , non ?

[jmfmarques]

Fais d'abord tes groupes indexés (ton autre message) . on verra après, s'il te plait (tout sera plus simple ici aussi, ma foi)

[Lucas42]

re , JMF , j'ai enfin resolu mon autre POST , celui des GRoupes INdexés .
Pourrais tu m'aider maintenant pour le (NAME) d'une image ??

Si ce n'est pas une Chaine de caractére qu'il faut declarer , qu'es ce donc ???

[jmfmarques]

laisse-moi relire ton sujet
n'interviens pas!
Voilà ! il me semblait bien me rappeler que la résolution de l'autre sujet allait te servir ici !
Réfléchissons donc :
imagine que tu aies, pour tes images, un groupe de controles indexés (image1(0), image1(1), etc....)
dans tes instructions de timer, tu n'aurais plus besoin de passer ton IMG !
il te suffirait, n'est-ce pas, de te référer à un index en fonction de ton compteur ! (et il me semble que l'index sera ton compteur - 2)
Je te laisse travailler sur cette idée et revenir avec un bout de code que je corrigerai au besoin

[Lucas42]

c'est vrai que je n'y avait pas pensé , cet indexion alégera le programme.
En effet ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Image1_Click()
menu.Show
End Sub
Private Sub Image2_Click()
menu.Show
End Sub
Private Sub Image3_Click()
menu.Show
End Sub
Private Sub Image4_Click()
menu.Show
End Sub

se trouve remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Image1_Click(Index As Integer)
menu.Show
End Sub

et en ce qui concerne le clignotement d'image selectionner , ca donne ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Option Explicit
Dim cligno As Integer
Dim Index As Integer
Sub kelimage()
Image1(0).Visible = (menu.CHGT = 0)
Image1(1).Visible = (menu.CHGT = 1)
Image1(2).Visible = (menu.CHGT = 2)
Image1(3).Visible = (menu.CHGT = 3)
End Sub
Private Sub Image1_Click(Index As Integer)
menu.Show
End Sub
Private Sub Timer1_Timer()
If menu.CHGT = 0 Then
Timer2.Enabled = False
kelimage
End If
If menu.CHGT = 1 Then
Timer2.Enabled = True
Index = 1
kelimage
End If
If menu.CHGT = 2 Then
Index = 2
Timer2.Enabled = True
kelimage
End If
If menu.CHGT = 3 Then
Timer2.Enabled = False
kelimage
End If
End Sub
Private Sub Timer2_Timer()
cligno = cligno + 1
    Select Case cligno
    Case 1
        Image1(Index).Visible = False
    Case 2
        Image1(Index).Visible = True
cligno = 0
End Select
End Sub

et ca fonctionne à la perfection ....
c'est bien utile les groupes indexés ^^

[Lucas42]

Encore un Grand Merci à JMF
amicalement lucas

[jmfmarques]

Je suis on ne peut plus content de toi, Lucas !
Examines toutefois le message de Khany dans ton autre sujet !
Il est également valable pour celui-ci...
Des select cases ou lieu de ces If...

[Lucas42]

oki doki , en plus je cherchais une solution pour pouvoir encore alleger ce programme , car il est loin d'etre fini , mon sujet est vachement suptil avec plein de paramétre qui interviennent de partout ..........

j'y vais de ce pas voir ce ke Khany nous à ecrit
merci