首頁>Club>

VB中Setwindowpos怎麼用，最好例子加解說，謝謝？

8
回覆列表
  • 1 # 使用者2458114238191884

    Private Declare Function SetWindowPos Lib "user32" (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

    Const HWND_TOPMOST = -1

    Const HWND_NOTOPMOST = -2

    Const SWP_NOMOVE=&H2

    Const SWP_NOSIZE=&H1

    **************************************************

    Private Sub Form_Load()

    SetWindowPos Me.hwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, &H1 Or &H2

    SetWindowPos Me.hwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, SWP_NOMOVE Or SWP_NOSIZE

    End Sub

  • 2 # 使用者2458114238191884

    Private Declare Function SetWindowPos Lib "user32" (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

    Const HWND_TOPMOST = -1

    Const HWND_NOTOPMOST = -2

    Const SWP_NOMOVE=&H2

    Const SWP_NOSIZE=&H1

    **************************************************

    Private Sub Form_Load()

    SetWindowPos Me.hwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, &H1 Or &H2

    SetWindowPos Me.hwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, SWP_NOMOVE Or SWP_NOSIZE

    End Sub

  • ∧ 中秋節和大豐收的關聯？
  • ∨ 名著中有關花的描寫？