Appliquer Sendkeys sur une autre fenetre

Signaler
Messages postés
12
Date d'inscription
samedi 5 janvier 2002
Statut
Membre
Dernière intervention
2 avril 2002
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
J'ai essayé :
AppActivate titre_actif, True
SendKeys "{ENTER}", True

Mais cela ne marche pas
Historique:
Nous developpons une application dans le domaine du Medical Imagery

Pour enregistrer un séquence dynamique par le biais d'un ocx
La commande est gére par le RS232 dont voici un bout de code

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvCD 'Modification dans la ligne >Détection de porteuse.
If A = 0 Then
A = 1
X = X + 1
Debug.Print X
Me.Caption = X
Timer1.Enabled = True
ENREGISTRE
End If
End Select
End Sub

Public Sub ENREGISTRE()
If B = 0 Then
B = 1
WinTV.MotionCapture
Else
AppActivate "WinTV Video Capture" (C'est le titre de la fenetre)
SendKeys "{ENTER}", True
B = 0
End If
End Sub

Dés que l'enregistrement démarre une fenetre s 'ouvre

2 réponses

Messages postés
796
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
7
Salut,

J'ai dans une application ce code-ci qui fonctionne à merveille.

MyAppID = Shell(MyApp, vbNormalFocus)
AppActivate MyAppID
SendKeys "{enter}", True

Tchao

NéoB
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69