Discussion :

[Silvers]

Bonjour,

J'ai un problème qui dure depuis maintenant trop longtemp et j'ai tout essayé pour le corriger hors sa marche tj pas donc je fait appel a vous !!!

Je veux juste integrer parfaitement une instance d'excel dans une application VB6.

Jutilise pour cela l'API Setparent qui fonctionne très bien !
Mais je n'arrive pas à redimentionner mon excel pour qu'il prenne la taille de ma fenêtre ! (MoveWindows)

Code :

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

MoveWindow(m_objExcel.hWnd, 0, 0, Me.Width, Me.Height, True)

Si dans le fenêtre d'execution je verifie le top de ma fenetre :

Code :

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

1
2
?m_objExcel.top
24678

Voila le resultat !!!!!! hors il devrai etre a 0 !

je comprend rien.... surtout qu'en dot net sa fonctionne à merveille !

Pour info voici ma declaration :

Code :

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

Public Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, X As Long, Y As Long, nWidth As Long, nHeight As Long, bRepaint As Boolean) As Long

[Médinoc]

Es-tu sûr que c'est l'objet qui n'est pas déplacé, ou est-ce seulement la propriété top qui n'est pas mise à jour?

Ne peux-tu pas directement modifier top en VB ?

[Silvers]

nan object est bien deplacer, mais au lieu de le deplacer sur 0 il le deplace tres loin !
Le problème est que si je modifie le top le left change et vis versa si je modifie le left le top change !!!

c'est un vrai casse tete