Petit soucis de Focus...Résolu

Question

Salut &#224; tous,
J'ai un soucis avec le focus sur un objet.
Sur une feuille, j'ai un flash qui me sert de bouton de fermeture de la feuille (c'est plus joli et &#231;a bouge...). Pour cela, comme les objets ShockwaveFlash n'ont pas d&#233;v&#232;nement click, j'ai utilis&#233; l'&#233;v&#232;nement GotFocus.
Le soucis c'est que quand on a ferm&#233; 1 fois cette fenetre, on ne peut plus l'ouvrir: le focus est rest&#233; sur ce Flash.
Chaque tentative pour mettre le focus sur un bouton se solde par un message d'erreur: Erreur d'ex&#233;cution '5': argument ou appel de proc&#233;dure incorrecte.
Quelqu'un aurai une id&#233;e pour contraindre le focus sur un autre objet que ce Flash?

PCPT · Accepted Answer

pour le focus &#224; proprement parl&#233;, non. mais selon ton utilisation, tu devrais plut&#244;t g&#233;rer l'&#233;v&#232;nement par le bouton lui-m&#234;me, c'est &#224; dire en Flash, et que l'instruction soit transmise &#224; VB.
http://www.vbfrance.com/code.aspx?id=8404
PCPT

turlututuchapopointu · Answer

Merci pcpt. Je ne pensait pas avoir une r&#233;ponse aussi rapidement...

pentahertz · Answer

JE VIENS JUSTE DE LE FAIRE


voici la d&#233;marche :
tu cr&#233;er ton bouton sur flash 
code de ton bouton


on (release) {
 fscommand("setvalue", "Message pour coolestman");
}


tu sauve en swf 
dans ton projet vb tu ajoute le composant shockwave flash


tu ajoute le composant sur ta form
dans form load


Private Sub Form_Load()


Call ShockwaveFlash1.LoadMovie(0, "bouton.SWF")


end sub


dans  ShockwaveFlash1_FSCommand



Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)


dim argument_flash 
argument_flash  = args
'a chaque clique sur le bouton flash cette sub sera executer


End Sub
/forum.v2.aspx?id=173369

Petit soucis de Focus...

3 réponses

Discussions similaires