Probleme Interface Menu SWF Sous VB6

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:

---

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

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:

---

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:

---

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

---

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:

---

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

Citation:

---

Envoyé par sooprano

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..!

oups ta rasion