pbobleme avec movewindow

Question

Bonjour, à tous les CCM
voilà, j'ai réussi à trouver le handle d'une fenêtre bien spécifique mais à présent il me faut pouvoir déplacer cette fenêtre.
J'ai tenté avec movewindow mais sans résultats 
voilà le code du handle :
Public Sub Hwnd_Site()
Dim hwnd As Long
    Dim Wind_Title As String
    Dim ret As Long
    Dim i As Integer
    
    hwnd = GetDesktopWindow()                   'Retrieves a handle to the desktop window
    hwnd = GetWindow(hwnd, GW_CHILD)            ' get the handle of the first window
    Do While (Not IsNull(hwnd)) And (hwnd <> 0)
        Wind_Title = GetCaption(hwnd)
        If Len(Wind_Title) > 0 And InStr(1, Wind_Title, "Jouez") Then
       Cfg_Cas.hwnd = hwnd
       MoveWindow Cfg_Cas.hwnd 0, 0, 1150, 620.... ca ne marche pas
       
          Exit Do
        End If
        hwnd = GetWindow(hwnd, GW_HWNDNEXT)     ' get the handle of the next window
    Loop
End Sub
comment faire un movewindow sur ce handle ?

ca fonctionne car tire du code : 100373-1413885-window-properties-api.zip.....
donc j'ai le handle mais comment faire un movewindow.


merci

vb95 · Answer

Bonjour
Pourriez-vous montrer les déclarations des fonctions API  GetDesktopWindow, GetWindow et MoveWindow ?

vb95 · Answer

Bonjour
C'est tiré de ce code ci ? https://codes-sources.commentcamarche.net/source/100373-window-properties-api
Et tu t'étonnes que cela ne fonctionne pas ?
C'est du VB6 comme code et toi tu codes en VB Net !

chelguera · Answer

les voici :

Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long




je code en vb6.... pas en vb net je bosse sur un prog dy a 20 ans mais auquel je dois encore parfois apporter des modifs

vb95 · Answer

Si tu codes en VB 6 pourquoi avoir posté en VB Net ? 
J'ai modifié vers le forum VB 6

chelguera · Answer

désolé pour l'erreur.
merci

vb95 · Answer

J'ai corrigé : j'avais oublié un paramètre à MoveWindow 
Et j'ai enlevé les parenthèses à MoveWindow ( j'ai regardé le code sur le projet 100373-1413885-window-properties-api.zip

vb95 · Answer

Regarde mon dernier message : j'ai ôté les parenthèses

Pbobleme avec movewindow

7 réponses

Votre réponse

Discussions similaires