1樓：匿名使用者
***版本一***左鍵單擊後可以移動，再次單擊停止移動：
dim bmove as boolean '判斷可不可以移動
dim oldx!, oldy! '!是single的縮寫
private sub command1_mousemove(button as integer, shift as integer, x as single, y as single)
if bmove then
command1.left = command1.left - oldx + x
command1.top = command1.top - oldy + y
end if
end sub
private sub command1_mouseup(button as integer, shift as integer, x as single, y as single)
if button = 1 then '1就是滑鼠左鍵
bmove = not bmove
oldx = x
oldy = y
end if
end sub
***版本二***左鍵按下時可以拖動：
dim oldx!, oldy! '!是single的縮寫
private sub command1_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 1 then '1就是滑鼠左鍵
oldx = x
oldy = y
end if
end sub
private sub command1_mousemove(button as integer, shift as integer, x as single, y as single)
if button = 1 then
command1.left = command1.left - oldx + x
command1.top = command1.top - oldy + y
end if
end sub
2樓：匿名使用者
在按鈕的滑鼠按下事件裡寫...if button = 1 then if 按鈕.eanble = true then 按鈕.
eanble = false 按鈕.left = x: 按鈕.
top = y else 按鈕.eanble = true end ifend if
3樓：匿名使用者
sendmessagea（按鈕的控制代碼，161.2.0）這個事api命令，在易語言裡直接按鈕.傳送資訊（161.2.0）就可以實現的。
如何實現vb中實現...滑鼠一移動到按鈕，按鈕名稱就會變。
4樓：匿名使用者
private sub command2_mousemove(button as integer, shift as integer, x as single, y as single)
command2.caption = "yes"
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
command2.caption = "no"
end sub
vb中，設計一個被動按鈕的窗體，窗體上只有1個命令按鈕但執行時用滑鼠
5樓：網海1書生
private sub command1_click()randomize
command1.move (me.scalewidth - command1.
width) * rnd, (me.scaleheight - command1.height) * rnd
end sub
vb滑鼠移動到按鈕控制元件上會觸發什麼事件？
6樓：匿名使用者
mousemove是滑鼠移bai過控制元件時的事件，du
好比你新增了個zhicommand，當你的滑鼠從command上移過時dao
，會觸發回mousemove，當然，如答果只是在其他位置移動滑鼠，並不會觸發該控制元件的mousemove事件！
7樓：匿名使用者
產生的是該控制元件的mousemove事件
8樓：匿名使用者
產生dragdrop和dragover是拖拽控制元件時產生的事件...
vb設計程式設計程式在窗體上建立命令按鈕
病情分析 你好，後至少半年後要小孩比較好.子宮內膜會受到不同程度的損傷需要有一個恢復過程,如過早地再次懷孕,這時子宮內膜尚未徹底恢復,難以維持受精卵著床和發育,因而容易引起流產.指導意見 流產後的婦女,身體比較虛弱,需要一段時間才能恢復正常,如果懷孕過早,往往因體力不足,營養欠佳而使胎兒發育不良,或...
VB程式中，在窗體上畫兩個文字框和命令按鈕，編寫單擊命令按鈕，在窗體上輸出兩個文字框輸入的數字
private sub command1 click dim a as integer,b as integera text1 b text2 text3 a b end sub private sub form load text1 text2 text3 end sub 3.在窗體上畫兩個名稱分...
在vb中如何使窗體上的文字顯示在窗體的中間
vb6.0可以抄將顯示在容器前的標籤控制元件的backstyle 屬性襲，設定為0使其透明而不遮擋後面的 內容。backstyle 屬性，返回或設定一個值，它指定 label 控制元件或 shape 控制元件的背景是透明的還是非透明的。例項 private sub form load label1....