VB實現全窗體移動

2021-05-17 18:36:12 字數 516 閱讀 6684

我想把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左上角的位置

vb 點選控制項移動窗體

新增模組 如下 public declare function sendmessage lib user32 alias sendmessagea byval hwnd as long,byval wmsg as long,byval wparam as long,lparam as any as ...

VB窗體置頂

private declare function setwindowpos lib user32 alias setwindowpos byval hwnd as long,byval hwndinsertafter as long,byval x as long,byval y as long,b...

VB挖空窗體,實現懸浮控制項效果

大家有興趣的可以試試,希望對你們有幫助 使用三個api函式,簡單地說,把窗體裡面所有部分都變成紅色,然後去掉所有的紅色部分,直接複製貼上可以執行,看看神奇效果吧 option explicit private declare function getwindowlong lib user32 ali...