Discussion :

[Najdar]

Bonjour a tous,

Je cherche à manipuler une fenêtre créée par Windows et non par VisualBasic.
La fenêtre en question est créée dans mon programme mais via

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendMessage(hMDIClient, WM_MDICREATE, 0&, mc)

Je connais sont Handle, mais elle n'apparait pas dans la collection Forms.



Est-il possible de récupérer une fenêtre "non VisualBasic" dans un objet Form de Visual Basic ?


Un truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Function GetFormObjectByHandle(ByVal Handle as long) as Form

Merci à tous

[ProgElecT]

Bonjour a tous,

.......
Est-il possible de récupérer une fenêtre "non VisualBasic" dans un objet Form de Visual Basic ?
......

Inclure un programme externe a l'intérieur d'un Form ?

[Najdar]

Ce n'est pas un programme externe.
Pour être précis, c'est un composant ActiveX qui crée la fenêtre.
De cette fenêtre je ne connais que le Handle.

J'ai déjà pas mal de fonctions travaillant sur des Form (position, état, ...). Je voulais que cette fenêtre puisse être traitée par ces fonctions.
Si ce n'est pas possible, j'utiliserais les API.

[DarkVader]

Bonjour,

Ce n'est pas un programme externe.
Pour être précis, c'est un composant ActiveX qui crée la fenêtre.
De cette fenêtre je ne connais que le Handle.

J'ai déjà pas mal de fonctions travaillant sur des Form (position, état, ...). Je voulais que cette fenêtre puisse être traitée par ces fonctions.
Si ce n'est pas possible, j'utiliserais les API.

La 1ère solution serait d'utiliser SetParent (avec un container - picturebox par exemple - cela fonctionne bien)
La seconde serait de récupérer l'object Form depuis sont handle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim TheForm as form
set TheForm=Ptr2Obj(handleForm)
 
                Public Function Ptr2Obj(ByVal ptrObj As Long) As Object
                  Dim oClone As Object
 
                  CopyMemory oClone, ptrObj, 4      ' Copier le pointeur    '
 
                  Set Ptr2Obj = oClone
                  CopyMemory oClone, 0&, 4          ' Détruire l'objet temp '
                End Function

A vérifier

[Najdar]

Cool merci

J'aime beaucoup la seconde solution !

Je vais essayer et je te au courant.