怎麼樣在VB中隱藏滑鼠,怎麼樣在VB中隱藏滑鼠?

2022-06-13 15:56:46 字數 2860 閱讀 5225

1樓:匿名使用者

windows中的api函式showcursor提供了一種簡單的隱藏滑鼠的辦法。

showcursor的申明如下:

private declare function showcursor lib "user32" (byval bshow as long) as long

當你讓bshow為0的時候,滑鼠指標消失,讓bshow為-1的時候滑鼠指標會重新出現,下面這段**可以讓大家看看效果:

在新建的form**中輸入如下**:

private declare function showcursor lib "user32" (byval bshow as long) as long

dim blnshow as boolean

private sub form_click()

blnshow = not blnshow

showcursor blnshow

end sub

private sub form_load()

blnshow = true

end sub

private sub form_queryunload(cancel as integer, unloadmode as integer)

showcursor true

end sub

2樓:匿名使用者

你在程式退出的時候在呼叫showcursor(true)顯示不就行了

3樓:

就是用showcursor這個api,不過要注意:

windows維持著乙個內部顯示計數;倘若bshow為true,那麼每呼叫一次這個函式,計數就會遞增1;反之,如bshow為false,則計數遞減1。只有在這個計數大於或等於0的情況下,指標才會顯示出來

4樓:匿名使用者

1.把滑鼠移動到螢幕最右側

2.把滑鼠砸了

5樓:匿名使用者

mouse=hidden

如何使用vb隱藏滑鼠

6樓:我了個

但在有些場合需隱藏滑鼠,使之不可見,以免影響螢幕畫面的整體效果,如螢幕保護程式執行時,滑鼠就是不可見的。在vb中可通過呼叫windows api函式showcursor()來非常輕鬆地實現滑鼠的隱藏。方法如下:

  方法一:  首先在全域性模組中宣告函式如下:

declare function showcursor lib "user"(byval bshow as interger) as interger

當bshow為true時,系統內部計數器加1;當bshow為false時,計數器減1。只有當計數器值大於或等於零時,滑鼠才顯示出來。通常情況下滑鼠是顯示的,並且計數器值為0,因此只需簡單地呼叫showcursor()函式即能實現滑鼠的隱藏與顯示:

sub form—load

dim rc%

rc%=showcursor(false) '隱藏滑鼠  ……  rc%=showcursor(true) '顯示滑鼠

end sub

此種方法下showcursor(false)與showcursor(true)必須成對使用,否則有可能造成滑鼠「丟失」的現象,即呼叫若干次showcursor(true)也有可能顯示不出滑鼠來(視內部計數器值而定)。當滑鼠「丟失」時,可通過重新啟動windows來找回滑鼠。

方法二:  採用如下程式,可以不成對呼叫showcursor()函式:

'隱藏滑鼠

while showcursor(false)=0 '將計數器值

'減至-1  wend  '顯示滑鼠

vb該如何將滑鼠徹底隱藏掉;

7樓:匿名使用者

private declare function showcursor lib "user32" (byval bshow as long) as long

private declare function getwindowrect lib "user32" (byval hwnd as long, lprect as rect) as long

private declare function clipcursor lib "user32" (lprect as any) as long

private declare sub sleep lib "kernel32" (byval dwmilliseconds as long)

private type rect

left as long

top as long

right as long

bottom as long

end type

private sub command1_click()

dim rt as rect

getwindowrect me.hwnd, rt

clipcursor rt

showcursor 0

sleep 5000

showcursor 1

clipcursor 0

end sub

釋放後滑鼠隨便點下就可以解除鎖定了

8樓:天天快樂郎

,或者失交事件與點選事件合用,可以達到目的。

2、在窗體2的resize事件等設定top=form1.top+m:left=form1.left+n

在窗體1的resize等事件裡同樣設定。

實質上我知道,你用窗體2代替了窗體1上的乙個可以顯示可以隱蔽的部分!不過你要用乙個框架,效果會更好,這個問題就不存在了!

如何隱藏掉滑鼠

在新疆當兵怎麼樣,在新疆當兵怎麼樣 5

靳幹童和頌 比較好,不算差。1.新疆人勤勞,勇敢,彪悍。有自己的民族信仰,不容侵犯。2.新疆南疆以阿克蘇環境 人文 自然 最好,喀什次之,和田排名較後,夏天天氣比較熱,這裡的天氣和內地不一樣,是乾熱的,不知道你的耐熱性怎麼樣。3.來新疆當兵,可以直接在這裡考留疆戰士,如果你是技術兵,或者有其他方面的...

怎麼樣在方框內打勾,word怎麼樣在方框內打勾

如何在方框內打勾打x?選輸入 號,選中它,選擇格式選單,中文版式,帶圈字元,圈選方框,字元用 號,確定即可。或者在字型理選wingdings 2再輸入r 大寫字母 即可 所謂的在word中方框中打勾,應該指的是進行複選操作。你所說的方框指的就是核取方塊,單擊復內選框,表示選中容,出現乙個勾號 再單擊...

在南方賣糖葫蘆怎麼樣,在南方賣糖葫蘆怎麼樣

最好外面要包一層保鮮紙,顯得乾淨一些。還可以多弄點花樣,顏色更多樣,孩子就會喜歡。祝你成功 建議在大學門口賣,樣子要新,結合節日而變樣子。向情侶推銷,只要吸引了女方,生意一定成,糖葫蘆在南方為什麼很少賣的啊?10 我好喜歡吃 好喜歡吃 有是有 但是山楂得從你們北方進 所以就比較少了 有的大部分也是包...