VBA VB6 Rendre actif Autocad ?

Question

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.

cs_JeffC1977 · Answer

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

VBA VB6 Rendre actif Autocad ?

1 réponse

Votre réponse

Discussions similaires