1樓：炫斯你
dim xx as single
dim yy as single
dim mdown as boolean
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
mdown = true
xx = x
yy = y
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if mdown = true then me.left = me.left + x - xx
if mdown = true then me.top = me.top + y - yy
end sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
mdown = false
end sub
'我這個都是窗體事件內的，你自己改為主**的mouse事件
VB中如何程式設計讓窗體在螢幕上左右來回移動
新增一個定時器，定時器移動，超過螢幕自動回來。如下 dim m as integer 定義變數，確定移動方向private sub form load timer1.interval 200 移動時間 0.2秒移一次 me.left 0 左空初始為0 m 0 預設先向右移 end sub priva...
初級問題VB的兩個窗體之間怎樣共用同變數的值
在標準模組內定義變數,做法在工程選單下選新增模組,在其 編寫視窗以public定義,例 public gy ml as stringpublic zt dm 24 as bytepublic sum as single 各個窗體在引用這些public變數不需要再宣告,除了動態陣列在運用是需給出陣列大...
在儲存vb時怎樣設定它的窗體檔名和工程檔名
在選單欄中單擊 檔案 儲存 這時候會彈出兩個儲存對話方塊第一個為儲存窗體檔案的對話方塊，在檔名文字框中輸入 sjt1.frm 選擇儲存路徑，單擊儲存按鈕第二個為儲存工程檔案的對話方塊，在檔名文字框中輸入 sjt1.vbp 選擇儲存路徑，單擊儲存按鈕 點 ctrl s 會出現一個儲存窗體檔案的對話方塊...