Petit soucis de Focus... [Résolu]

Messages postés
38
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
12 août 2005
- - Dernière réponse : pentahertz
Messages postés
28
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
6 novembre 2007
- 20 janv. 2006 à 12:47
Salut à 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 ça bouge...). Pour cela, comme les objets ShockwaveFlash n'ont pas dévènement click, j'ai utilisé l'évènement GotFocus.
Le soucis c'est que quand on a fermé 1 fois cette fenetre, on ne peut plus l'ouvrir: le focus est resté sur ce Flash.
Chaque tentative pour mettre le focus sur un bouton se solde par un message d'erreur: Erreur d'exécution '5': argument ou appel de procédure incorrecte.
Quelqu'un aurai une idée pour contraindre le focus sur un autre objet que ce Flash?
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
27
3
Merci
pour le focus à proprement parlé, non. mais selon ton utilisation, tu devrais plutôt gérer l'évènement par le bouton lui-même, c'est à dire en Flash, et que l'instruction soit transmise à VB.
http://www.vbfrance.com/code.aspx?id=8404
PCPT

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 210 internautes nous ont dit merci ce mois-ci

Messages postés
38
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
12 août 2005
0
Merci
Merci pcpt. Je ne pensait pas avoir une réponse aussi rapidement...
Messages postés
28
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
6 novembre 2007
0
Merci
JE VIENS JUSTE DE LE FAIRE


voici la démarche :
tu cré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