[µo°Ý] SetWindowPos() ¨ç¼Æ°ÝÃD

fashionable3000

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¸Ì­±¥u¦³button1¤@­Ó«ö¶s
°£¿ù¨S¦³Åã¥Ü¿ù»~
°õ¦æ«ö¶s«áµøµ¡·|¶]¨ì¥ª¤W¨¤¨Ã¥BÁY¨ì«Ü¤p

¤U¸ü (7.52 KB)
°ÝÃD2

2015-8-20 10:21

µM«á¶]¥X

¤U¸ü (31.5 KB)

2015-8-20 10:18

¨ç¦¡¸Ì­±ªºÅܼƴ«¹L«Ü¦h¤F¡A³£¬O¤@¼Ë°ÝÃD¡C
³o¬Oµ{¦¡ªº°ÝÃD¶Ü?
§Ú¦bgoogle¬d¨ìªº»yªk¡A¤]®t¤£¦h¬O³o¼Ë¼g¡C
½Ð«ü±Ð¡AÁÂÁ¡C

Joforn

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

½Æ»s¥N½X