Discussion :

[MegaBigBoss]

voila alors j'ai fait une application qui lit des fichiers ".swf" et j'ai deux problèmes

1:

Mon application ne se quitte pas "proprement" c'est a dire que pour bien la quitter faut appuier sur "ctrl+alt+sup" et suprimer ce qui correspdond a mon appli ....

2:

C'est une application qui lit les flash maisce que j'aimerais c'est qu'a la fin de chaque flash ça revienne a la form "frmSelectVideo"


Merci

[AlainTech]

Et on doit deviner ton code???

[SfJ5Rpw8]

voila alors j'ai fait une application qui lit des fichiers ".swf" et j'ai deux problèmes

1:

Mon application ne se quitte pas "proprement" c'est a dire que pour bien la quitter faut appuier sur "ctrl+alt+sup" et suprimer ce qui correspdond a mon appli ....

2:

C'est une application qui lit les flash maisce que j'aimerais c'est qu'a la fin de chaque flash ça revienne a la form "frmSelectVideo"


Merci

1. Tu peu aussi débrancher ton PC ....
2. à la fin de chaque flash tu éteind le PC ... tu redémarre et relance ton appli...

C'est les seul conseils qu'on peu te donner avec tes informations ...

[MegaBigBoss]

alors voici ma façon de proceder : je vais dans reference et je coche "flash accesibylity" et "shockwave flash"
Ensuite j'ai fait un code pour que ,pendant qu'on selectionne la video,Si on appui sur la command 1 alors c'est la vidéo là qui se lance ce qui donne (en vb ) :

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
44
45
Private Sub Command1_Click()
frmVideo.ShockwaveFlash1.Movie = "C:\Program Files\XiaoXiao\Animation\XiaoXiao1.swf"
Me.Hide
frmVideo.Show
End Sub
Private Sub Command2_Click()
frmVideo.ShockwaveFlash1.Movie = "C:\Program Files\XiaoXiao\Animation\XiaoXiao5.swf"
Me.Hide
frmVideo.Show
End Sub
Private Sub Command3_Click()
frmVideo.ShockwaveFlash1.Movie = "C:\Program Files\XiaoXiao\Animation\XiaoXiao3.swf"
Me.Hide
frmVideo.Show
End Sub
 
Private Sub Command4_Click()
frmVideo.ShockwaveFlash1.Movie = "C:\Program Files\XiaoXiao\Animation\XiaoXiao7.swf"
Me.Hide
frmVideo.Show
End Sub
 
Private Sub Command5_Click()
frmVideo.ShockwaveFlash1.Movie = "C:\Program Files\XiaoXiao\Animation\XiaoXiao8.swf"
Me.Hide
frmVideo.Show
End Sub
 
Private Sub Command6_Click()
frmVideo.ShockwaveFlash1.Movie = "C:\Program Files\XiaoXiao\Animation\xiaoxiao - heineken.swf"
Me.Hide
frmVideo.Show
End Sub
 
Private Sub Command7_Click()
frmVideo.ShockwaveFlash1.Movie = "C:\Program Files\XiaoXiao\Animation\heineken2.swf"
Me.Hide
frmVideo.Show
End Sub
 
Private Sub Command8_Click()
frmVideo.ShockwaveFlash1.Movie = "C:\Program Files\XiaoXiao\Animation\xiaoxiaomaxpayne.swf"
Me.Hide
frmVideo.Show
End Sub

Ensuite la from video :

Code :

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

1
2
3
Private Sub Form_Load()
ShockwaveFlash1.Play
End Sub

Et voila ...

[MegaBigBoss]

Sinon je pense avoir trouvé un moyen mais il n'est pas très interessant ...
Je fais tout ça avec un timer ,un code du style :

Code :

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

1
2
3
4
5
6
Private Sub command1_Click()
frmVideo.Timer.intervalle = ... 'la durée de la video 
 
 Private Sub timer1_Timer
 Me.Hide
 frmSelectVideo.Show

Je n'ai pas essayé mais comme je l'ai dit plus haut ça n'est pas très interréssant .....

[jmfmarques]

1) Je n'ai pas ce composant :ShockwaveFlash et n'en connais donc pas toutes les propriétés ! Quelles sont-elles ? (car il me semble que tu dois pouvoir "jouer" avec elles !
2) si tu caches la Form qui contient ton bouton "Quitter", tu n'y a plus accés !
Alors : tu peux mettre un bouton quitter également sur la Form destinée à la visualisation, par exemple !
3) Je ne comprends pas pourquoi tu n'as pas fait un groupe de contrôles indexés, dans ta Form principale, pour les boutons command1, Command2, etc.... Ta façon de procéder là est bien inutilement lourde
4) te référer à chaque fois, en dur, à tes "movies" est également lourd et, surtout, très rigide (quid en cas de changement de films ?)
Tu devrais créer un sous-répertoire de ton appli (appelons-le toto par exemple) et :

a) te référer à ce répertoire par app.path & "\toto\"
b) alimenter une listbox par tout ce qui se trouve dans ce sous-répertoire (tes films, donc) dès le chargement de ta Form Principale
c) cliquer sur cette liste pour choisir un film

Pour tout dire, je crois qu'il ne serait pas inutile que tu reconsidéres l'ensemble de ta démarche elle-même !

[MegaBigBoss]

Ouais peut-etre ou bien j'aurais autre chose mais que je ne sais pas appliquer .....
je mais une MsgBox au debut de la forme "frmVideo" Disant que pour revenir a l'ecran de selection de video il faut appuier sur la barre d'espace (je sais faire)
Et dès qu'on appui sur la barre d'espace on revien a l'ecran de selection de video (je sais pas faire)