appliquer Sendkeys sur une autre fenetre

Question

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

Neo.balastik · Answer

Salut,

J'ai dans une application ce code-ci qui fonctionne à merveille.

MyAppID = Shell(MyApp, vbNormalFocus)
AppActivate MyAppID
SendKeys "{enter}", True

Tchao

NéoB

Renfield · Answer

http://www.vbfrance.com/codes/SENDKEYSEX-SIMULER-TOUCHE-DANS-FENETRE-PRECISE_41974.aspx

Appliquer Sendkeys sur une autre fenetre

2 réponses

Discussions similaires