ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ fashionable3000 ©ó 2015-8-20 10:26 ½s¿è

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
1110.png
µM«á¶]¥X

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

  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.     Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
  4.         Call SetWindowPos(Me.Handle, -2, 0, 0, 100, 100, &H40&)
  5.     End Sub
  6. End Class
½Æ»s¥N½X
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD