1樓:清水無月
在物件mousemove的事件中加入**,改變label的caption屬性。
例:滑鼠在表單上移動時,標籤label1會顯示滑鼠位置座標。
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
x:" str(x) +y:" str(y)end sub
2樓:湛藍水晶
在介面新增乙個label,名為label1,將它的autosize屬性設為true;
然後在form的onmousemove事件上寫**。
str(x)+"str(y)
如何在vb裡製作滑鼠移動時顯示滑鼠位置
3樓:老牛帶你看奇聞
在窗體上放個標籤label1程式執行的時候移動滑鼠,在滑鼠的位置上顯示出滑鼠的座標來。**如下:
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
x=" & x & "y" & y
x= yend sub
vb中通過滑鼠移動會在labelbox中顯示 「當前座標為x,y」 **是多少啊?
4樓:網友
請問你是要顯示滑鼠在螢幕中的座標還是滑鼠在程式窗體的座標?
如果是顯示螢幕座標請使用api
如果顯示窗體中座標請在窗體的mousemove事件中新增**,讓labelbox裡面顯示x和y
vb中的label怎麼設定成滑鼠移到上面時浮動顯示
5樓:匿名使用者
簡單點可以在mousemove事件中 改寫label的邊框 移到上面就有 移出首亮耐就沒有還可鍵凱以用個shape控制項 圈在label周圍 移到上面時改色者春。
vb怎麼移動滑鼠到指定位置
6樓:創作者
vb游標移動有兩種方式:
1. 移動到指定控制項,轉移焦點:
2. 移動指定文字字串位置:
(VB如何實現滑鼠模擬,怎樣用VB程式碼實現滑鼠單擊的效果
通過鍵盤輸入一個自然數,求該數的因子數 vb模擬滑鼠點選 不知道想幹什麼,滑鼠點的那個位置有什麼用啊 怎樣用vb 實現滑鼠單擊的效果 給你寫了一個示例,你自己可以看明白的 private declare sub mouse event lib user32 byval dwflags as long...
VB如何實現查詢資料庫並顯示出來
可以快速匯出使用excel 就有該功能 使用這個模組就可以,你可以看看引用的函式即可 參考 如下 private sub command1 click on error goto errhandle dim cnn as new adodb.connection dim rs as new adod...
如何實現在vb裡單擊一個窗體後顯示一個命令按鈕
窗體中放一個commandbutton 按鈕控制元件 可見性 visible 設為false,然後寫窗體點選事件 如果是點後就響應,則在form mousedown上加 如果是點選然後滑鼠鬆開後再響應,則在form click中加 如下 true private sub form mousedown...