1樓：tf日出
用mousedown和mousemove事件結合就可以了。以下程式可以實現點選窗體空白部分對窗體進行拖曳移動。
dim x0!, y0!
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
x0 = x
y0 = y
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if button = 1 then
me.left = me.left + x - x0me.top = me.top + y - y0end if
end sub
2樓：匿名使用者
你的無邊框是將borderstyle改為0嗎？
vb點選窗體任意位置拖拽。
為什麼我的vb6.0精簡版在拖動的窗體時候外框邊緣總是和窗體離這麼遠？重灌vb也沒有用。 10
3樓：匿名使用者
找到vb6.exe，單擊右鍵-->屬性-->相容性-->在「相容模式」框內勾選「以相容模式執行這個程式」，像「windows xp (service pack 2)」就可以。
4樓：匿名使用者
你可以用截圖示箭頭的形式來說明 是哪個視窗 是如圖所示的紅箭頭 還是黑箭頭
vb.net如何實現無邊框窗體拖動？ 如果能指定控制元件拖動更好 希望能有一點分析 使用vs2015
5樓：包布丁
當使用者按下左鍵時，為按下物件的mousemove事件繫結處理方法，並記錄滑鼠座標（窗體左上角為原點，在事件的mouseeventargs型別的e引數中提供）。此時使用者移動滑鼠，保持窗體原點與滑鼠新座標的相對位置不變。當使用者釋放左鍵時，撤銷按下物件的mousemove事件處理方法。
無邊框車門有好不好，無邊框車門開門的時候真的要注意嗎？
無框車門雖然很帥，是一種設計上的美。車禍時避免了框變形影響救人 製造成本低，方便上下車。但是在實際使用過程中會有很多麻煩，就是一拉門，跟門框膠條做一個親密摩擦的，例如 一 很多親戚朋友上車的時候，基本都是使勁一拔，然後就壞了。解決辦法 1.在他們開車門之前先鎖車，然後把玻璃降下來一點點，再解鎖 2....
VB程式設計的問題
lbound a 取得陣列的下標 ubound a 取得陣列的上標 這樣可以根據資料的上下標確定陣列裡的引數 arr是表示陣列 arr2 4 表示陣列裡有四個引數 step表示是步長，step 1表示在原來的基礎上減1 將timer1的interval屬性設定為100，enabled屬性設定為fal...
VB程式設計的問題
很簡單啊，在窗體上建立兩個按鈕，如下 private subcommand1 click 隨機生成20個正整數 clsdimias integer dims1 asstring dims2 asstring dima 19 asinteger fori 0 to19 a i int rnd 100 ...