VB裡的mousemove事件舉例

1樓：四舍**入

這是滑鼠移動時發生的事件，如：

private sub label1_mousemove(button as integer, shift as integer, x as single, y as single)

msgbox "你點到我啦！"

end sub

當滑鼠移動到這個標籤控制元件的時候，就彈出對話方塊

2樓：匿名使用者

mousemove事件就是滑鼠在物件上移動private sub ***mand1_mousemove(button as integer, shift as integer, x as single, y as single)

me.cls

print "滑鼠在按鈕上移動" & nowend sub

private sub form_mousemove(button as integer, shift as integer, x as single, y as single)

me.cls

print "滑鼠在窗體移動" & nowend sub

3樓：昔日清風昨日雨

放上一個picture控制元件，然後

private sub picture1_mousemove(button as integer, shift as integer, x as single, y as single)

是當前滑鼠所在點的座標，&hff&是顏色

end sub

滑鼠在picture控制元件上移動時會畫出一條紅線若要滑鼠按住左鍵後才畫出紅線，可以加個判斷if button <> 1 then exit sub

4樓：匿名使用者

private sub form_mousemove(button as integer, shift as integer, x as single, y as single)

me.cls

circle (x, y), rnd * 1000, rgb(255 * rnd, 255 * rnd, 255 * rnd)

end sub

圓形相隨—

—滑鼠移動，光環跟進！

5樓：匿名使用者

簡單地說，就是滑鼠移動的時候，會觸發什麼事情。

vb 關於滑鼠移動事件

6樓：匿名使用者

private sub form_mousemove(button as integer, shift as integer, x as single, y as single)

label1.forecolor = vbblueend sub

private sub label1_mousemove(button as integer, shift as integer, x as single, y as single)

label1.forecolor = vbredend sub

如果label旁邊有控

件和它緊靠著，也要寫那個控制元件的mousemove事件

VB窗體上的鍵盤事件

select case keyas case 70 keyname f1 增加你的執行 例如 text1.forecolor hff 文字框字型顏色，每個判斷下面都應該有執行 的 或文字框顯示內容,下同。text1.text f1 case 71 keyname f2 case 72 keyname...

vb怎麼使click事件不可用，再點選按鈕後才可用

可以將所有控制元件屬性enable設定成false。在使一個click事件將左右控制元件的enable設定成true。就可以了。private sub form1 load command1.visible truecommand2.visible false 既然不想讓使用者點，乾脆就不讓他看見了...

VB中strconv的作用，VB中StrConv Text1 Text, vbFromUnicode 是什麼意思啊？請高手指點，謝謝！

內容來自使用者 emtfemtfemtf vb中strconv text1.text,vbfromunicode 是什麼意思啊？請高手指點，謝謝！2012 07 14 13 42小恨有疆 分類 vb 瀏覽6443次 分享到 舉報 2012 07 14 13 50提問者採納返回按指定型別轉換的vari...