VBA VB6 Rendre actif Autocad ?

cs_JeffC1977 Messages postés 926 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 10 septembre 2010 - 15 mars 2010 à 15:57
cs_JeffC1977 Messages postés 926 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 10 septembre 2010 - 15 mars 2010 à 17:54
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

cs_JeffC1977 Messages postés 926 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 10 septembre 2010 4
15 mars 2010 à 17:54
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
0
Rejoignez-nous