VBA VB6 Rendre actif Autocad ?

Signaler
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
-
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
-
Bonjour à tous

J'utilise un programme VB6 afin de gérer Autocad 2002.
J'utilise donc du VBA afin d'envoyer des commandes à Autocad.


Mon problèmes est que lorsque je clique sur mon bouton dans mon programme, Autocad perd le focus et c'est mon porgramme qui a le focus. Je dois rendre actif autocad.

Existe-t-il une fonction VBA pour donner le focus à Autocad ?


merci de votre aide.

1 réponse

Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
3
Bonjour

je cherchais en VBA mais en VB6 j'ai fini par trouver quelque chose qui fonctionne.

Si ca peut aider quelqu'un:

Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long


Private Sub Command1_Click()
    
    'Mets le programme Acad en premiere plan avec le focus
    Dim THandle As Long
    Dim iret As Long
    
     Dim docName As String
    docName = "Autodesk Map - [" & ActiveDocument.FullName & "]"

    THandle = FindWindow(vbEmpty, docName)
    iret = BringWindowToTop(THandle)

End Sub