Discussion :

[sooprano]

BOnsoir je fé du Vb6 et du Flash 8 aussi bon j'ai un interface Menu avec 3 bouton Annimés
j'ai fé le SCRIPTS dans le flash Mx FSCOMMAND("MenuIntervention","MenuIntervention")
FSCommand("MenuReports","MenuReports") et FScommand("MenuSetup","MenuSetup")
le travail ds flash est fé
maintenenat passant a vb 6 j'ai appellé le composant SHOCKWAVEFLASH1 j'ai changer son nom par Flash1

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
Private Sub Flash1_FSCommand(ByVal command As String, ByVal args As String) 
 
Select Case FSCommand 
Case Is = MenuInterventions 
Form2.Show 
Case Is = MenuReports 
Form3.Show vbModal 
Case Is = MenuSetup 
Form4.Show vbModal 
 
End Select 
 
End Sub 
 
Private Sub Form_Load() 
Flash1.Movie = "C:\Documents and Settings\user\Bureau\ARRPLAN3.swf" 
 
End Sub

Le Probleme c'est quand je clique au Bouton Menuintervention il me donne Form2 cé bien Mais quand je clique sur bouton MenuReports il me donne pas Form3 il m donne Aussi Form2 et le meme cas pr la 3eme bouton
pourrez vous m aider svpConfiguration: Windows XP
Internet Explorer 7.0

[SfJ5Rpw8]

tu devrai utiliser l'option Explicit ( rajoute Option Explicit) en haut de ton code.. cela t'éviterai des erreurs...

ici avec ce case ... tu Compare le contenu de la variable FSCOmmand avec le contenu des variables : MenuInterventions ,MenuReports ,MenuSetup

je pense pas que cela soit le but ..!

Code :

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

1
2
3
4
5
6
7
8
 
Select Case FSCommand 
Case Is = MenuInterventions 
Form2.Show 
Case Is = MenuReports 
Form3.Show vbModal 
Case Is = MenuSetup 
Form4.Show vbModal

si FSCommand contient une chaine de caractères, rajoute des "..

Code :

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

1
2
3
4
5
6
7
8
9
10
 
...
Select Case FSCommand 
Case Is = "MenuInterventions" 
Form2.Show 
Case Is = "MenuReports" 
Form3.Show vbModal 
Case Is = "MenuSetup" 
Form4.Show vbModal
..

[sooprano]

non ca marche pas quand j'ai ajouter Option Explicit ca ma donner deboggage sur FSCOMMANd (Nom VARIABLE NON DEFINIE) Ainsi les ... Ca m donne ERREUR D Syntaxe j'ai fé comme ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option EXplicit
Private Sub Flash1_FSCommand(ByVal command As String, ByVal args As String)
Select Case FSCommand
Case Is = "MenuInterventions"
Form2.Show
Case Is = "MenuReports"
Form3.Show vbModal
Case Is = "MenuSetup"
Form4.Show vbModal
..
End sub

as tu autre solution svp je sais qu'il me manque une p'tite chose al rajouter Mais cé koi??

[SfJ5Rpw8]

non ca marche pas quand j'ai ajouter Option Explicit ca ma donner deboggage sur FSCOMMANd (Nom VARIABLE NON DEFINIE) ....

et bien c'est normal car tu n'as défini nulle par cette variable FSCommand !!!

essai de la remplacer par command ... la variable que possède ta fonction comme argument..!

[sooprano]

oups ta rasion