using MoveWindow() just hides window comlpetely

[ninjaimp]

Hi

Im trying to position a window with MoveWindow() API but it just keeps hiding the window and it has to be maximised to be able to see it.

The code im using is

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



        Dim p As System.Diagnostics.Process

        For Each p In System.Diagnostics.Process.GetProcesses()

            If p.MainWindowTitle = "MyProcess" Then
                  GetWindowRect(p.MainWindowHandle, r)
                MsgBox("Left" & r.Left & vbNewLine & _
                 "Top" & r.Top & vbNewLine & _
                 "Bottom" & r.Bottom & vbNewLine & _
                 "Right" & r.Right)

                Call MoveWindow(p.MainWindowHandle, 110, 59, 1270, 957,False)

               Close()
            End If



        Next

i have tried with all different co-orindates and sixes and its always the same.

any help is appreciated

[.paul.]

try this instead:

Const SWP_NOSIZE As Integer = &H1
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As IntPtr, _
ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal _
cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer

Dim xPosition As Integer = 50
Dim yPosition As Integer = 50
SetWindowPos(Me.Handle, -1, xPosition, yPosition, 0, 0, SWP_NOSIZE)

[.paul.]

or if you want to use movewindow, this is the vb.net declaration:

Public Declare Function MoveWindow Lib "user32" _
        (ByVal hwnd As intptr, _
        ByVal x As integer, _
        ByVal y As integer, _
        ByVal nWidth As integer, _
        ByVal nHeight As integer, _
        ByVal bRepaint As integer) _
        As integer

[ninjaimp]

try this instead:

Const SWP_NOSIZE As Integer = &H1
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As IntPtr, _
ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal _
cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer

Dim xPosition As Integer = 50
Dim yPosition As Integer = 50
SetWindowPos(Me.Handle, -1, xPosition, yPosition, 0, 0, SWP_NOSIZE)

Thanks Paul,

That sorted it. Ideal

[Grimfort]

Don't forget to mark your thread!