返回列表 上一主題 發帖

[發問] SetWindowPos() 函數問題

fashionable3000

帖子
7 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2014-8-5 
最後登錄
2016-4-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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一個按鈕
除錯沒有顯示錯誤
執行按鈕後視窗會跑到左上角並且縮到很小
1110.png
然後跑出

函式裡面的變數換過很多了，都是一樣問題。
這是程式的問題嗎?
我在google查到的語法，也差不多是這樣寫。
請指教，謝謝。
樓主熱帖
收藏 分享

Joforn
　暱稱: 南宮飄雪

中學生Rank: 2

帖子
109 
主題
2 
精華
0 
積分
114 
點名
0  
作業系統
Win7 Win10 
軟體版本
Office 2019 WPS 
閱讀權限
20 
性別
男 
來自
深圳 
註冊時間
2013-2-2 
最後登錄
2024-11-6 
2#
發表於 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

  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
複製代碼
世界那麼大，可我想去哪？

TOP

        靜思自在 : 自己害自己，莫過於亂發脾氣。
返回列表 上一主題