VB實現全窗體移動

Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0 End If End Sub

 

http://topic.csdn.net/t/20030524/18/1829023.html

http://zhidao.baidu.com/question/93411647.html?fr=qrl&cid=867&index=5&fr2=query

 

 

我想把form5移動到form3中picture1的位置，下面是我的代碼（在form3的code中）： 

Dim r2 As RECT 

GetWindowRect Picture1.hwnd, r2 

Form5.ScaleMode = vbPixels '設置座標單位爲像素

Form5.Move r2.Left, r2.Top 

Form5.Show 

爲什麼移動的座標仍然是默認的緹而不是屏幕像素呢？ 
請指教！ 

 

問題補充：

要實現窗口的正確移動，應該怎麼做？

將form5的左上角的位置挪到form3中picture1左上角的位置

 'form3中 Private Type rect Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As rect) As Long Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long Private Sub Command1_Click() Dim wrect As rect Dim picrect As rect GetWindowRect Picture1.hwnd, picrect GetWindowRect Form5.hwnd, wrect MoveWindow Form5.hwnd, picrect.Left, picrect.Top, wrect.Right - wrect.Left, wrect.Bottom - wrect.Top, True Form5.Show End Sub