[VB6] Changer le NAME d'une Image

Version imprimable

27/04/2006, 09h17
Lucas42

[VB6] Changer le NAME d'une Image
Bonjour , je souhaite faire clignoté 2 Image sur 4 , le souci est que les 4 images sont visibles seulement si on la selectionne
Code:

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:

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:

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:

Image1.NAME = IMG

En vain , le jolie message suivant est apparu

Code:

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

que faire ??
27/04/2006, 09h22
jmfmarques

crois-tu vraiment que :

Citation:

Dim IMG as String

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

résouds par ailleurs (voit ton autre sujet) ton problème de groupes indexés (cela vaudra mieux)
27/04/2006, 09h24
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:

(NAME)

est en lecture seule , non ?
27/04/2006, 09h25
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)
27/04/2006, 10h57
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 ???
27/04/2006, 10h58
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 :?

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

Code:

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:

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:

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 ^^

27/04/2006, 11h19
Lucas42

Remerciements

Encore un Grand Merci à JMF
amicalement lucas
27/04/2006, 11h24
jmfmarques

Je suis on ne peut plus content de toi, Lucas !:bravo:
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...;)
27/04/2006, 11h32
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