Discussion :

[gentelmand]

bonjour
j'utilise dans mon Application des cartes géographiques sur lesquelles j'ai mis des labels transparent pour les monuments.
je veux guider l'utilisateur a choisir càd (Click) sur les labels disponibles.j'ai pensé a les faire clignoter ou mettre un shape mais je ne sais pas comment faire.
help please.
merci

[LeForestier]

Bonjour,
Une façon comme une autre de faire clignter des labels.

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
Dim TB
Dim CoulN As Long
'Deux boutons
Private Sub Command1_Click(Index As Integer)
    Select Case Index
    Case 0
        TB = Array(vbRed, vbRed, CoulN, vbRed, CoulN, vbRed)
    Case 1
        TB = Array(vbRed, CoulN, vbRed, CoulN, vbRed, CoulN)
    End Select
    Timer1.Enabled = True
End Sub
'Une forme et 6x label1 (de 0 à 5)
Private Sub Form_Load()
'    ReDim TB(5) 'pas nécessaire
    CoulN = Label1(0).ForeColor 'couleur normale
End Sub
'Un timer : enabled = false : interval=300 (1/3 seconde)
Private Sub Timer1_Timer()
Static g As Integer
Dim i As Integer
    If g = 0 Then
        For i = 0 To 5
            Label1(i).ForeColor = CoulN
        Next i
        g = 1
    Else
        For i = 0 To 5
            Label1(i).ForeColor = TB(i)
        Next i
        g = 0
    End If
End Sub

A adapter dans ton contexte.
A+

[gentelmand]

salut
je veux lancer un bouton suite à un click a partir d'un fichier que je spécifie à chaque fois ca dépend de la vidéo que je dois lancer.
j'ai utilisé un objet OLE mais je ne sais pas trop comment lancer la vidéo et spécifier le chemin d'accées de la vidéo
merci

[LeForestier]

Qu'est-ce que ca à voir avec faire clignoter des labels ?
Si c'est une autre question, tâche d'abord de mieux l'exprimer et ensuite fait un autre poste si tu veux une autre réponse.
A+