標題: [發問] SetWindowPos() 函數問題 [打印本頁]

---

作者: fashionable3000    時間: 2015-8-20 10:25     標題: SetWindowPos() 函數問題

本帖最後由 fashionable3000 於 2015-8-20 10:26 編輯

Public Class Form1
    Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Q
        Q = SetWindowPos(Me.Handle, -2, 0, 0, 100, 100, &H40)
    End Sub
End Class

Form1裡面只有button1一個按鈕
除錯沒有顯示錯誤
執行按鈕後視窗會跑到左上角並且縮到很小
[attach]21768[/attach]
然後跑出
[attach]21767[/attach]
函式裡面的變數換過很多了，都是一樣問題。
這是程式的問題嗎?
我在google查到的語法，也差不多是這樣寫。
請指教，謝謝。

---

作者: Joforn    時間: 2015-10-6 15:47

1. Public Class Form1
   
2.     Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hWnd As System.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 Boolean
   
3. 
   
4.     Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
   
5.         Call SetWindowPos(Me.Handle, -2, 0, 0, 100, 100, &H40&)
   
6.     End Sub
   
7. End Class

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)