vb.net中如何實(shí)現(xiàn)在 pictureBox內(nèi)鼠標(biāo)成大十字叉叉，橫向和縱向都到達(dá)PictureBox的邊界，各位幫幫忙。

這么難的問題才5分？給你思路：VB.NET改變鼠標(biāo)形狀的唯一方法就是加載圖片，但是因?yàn)槟阋蟆皺M向和縱向都到達(dá)PictureBox的邊界”，也就是說，這個圖片必須跟著鼠標(biāo)移動而變化，顯然這是無法做到的。

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、成都小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了荔城免費(fèi)建站歡迎大家使用！

因此，可以先將鼠標(biāo)指針隱藏，然后根據(jù)鼠標(biāo)的當(dāng)前位置，在PictureBox中畫十字線，鼠標(biāo)移動后，將前面畫的線擦除，然后在新位置重新畫。

為了不擦除PictureBox中已有的圖像，在畫十字線之前，先保存十字線所覆蓋像素點(diǎn)的值，擦除的時候，恢復(fù)這些值就可以了。

用VB如何實(shí)現(xiàn)鎖住電腦屏幕，或者如何鎖住鍵盤鼠標(biāo)？？

鎖住屏幕的思路：

1.創(chuàng)建一個透明度為1的窗體（透明度0的話會讓窗體消失），覆蓋屏幕，并用Timer不斷置頂（防止如任務(wù)管理器之類的置頂窗口在這個之上）

2.鎖住鍵盤~~就是屏蔽鍵盤 這個你搜索一下就可以了 網(wǎng)上都有

3.鎖住鼠標(biāo)：可以理解為 隱藏鼠標(biāo) 反正窗體上面什么都沒有 不隱藏也可以:)

4.Open Environ$("WinDir") "\system32\taskmgr.exe" For Binary As #1

，用于鎖定任務(wù)管理器……（不能屏蔽Ctrl+Alt+Delete所以只能這么干了）這樣任務(wù)管理器開不了了（除非已經(jīng)打開）

一般來說這樣就可以了……

當(dāng)然建議留一個后路否則只能重啟啦……

vb.net如何去除光標(biāo)

改變鼠標(biāo)位置或讓鼠標(biāo)消失。

Shift + 方向鍵 ，選擇 從當(dāng)前光標(biāo)至移動后光標(biāo)所在位置的所有文本

Ctrl+Shift+左右方向鍵，選擇 從當(dāng)前光標(biāo)至下一(上一)單詞首(尾)

Shift + Alt + 方向鍵，選擇 由當(dāng)前光標(biāo)與 移動后光標(biāo)所構(gòu)成的矩形的區(qū)域內(nèi)所有文本

Ctrl + 單擊鼠標(biāo)左鍵， 選擇 單擊位置的整個單詞

Shift + 單擊鼠標(biāo)左鍵，選擇 從當(dāng)前光標(biāo)至 鼠標(biāo)單擊位置區(qū)間的所有文本

Shift + Home(End)， 選擇 從當(dāng)前光標(biāo)至 行首(尾)的所有文本

VB.NET改變鼠標(biāo)位置和讓鼠標(biāo)消失

幾乎找不到真正VB.NET的api，都是自己將VB的api改成VB.NET的api，我的理解是聲明中對應(yīng)輸入是H的地方保留Long，其他的Long改成Integer，既然VB.NET連MSDN都找不到較全的api說明，不保證api的用法在VB.NET其他版本中適用。

給你個好玩的例子，包括鼠標(biāo)的隱藏（Ctrl_↓）、顯示（Ctrl_↑），移動、點(diǎn)擊

在Form1上放上2個TextBox，其中TextBox1.Multiline = True，并且面積大些，2個Button，運(yùn)行后在TextBox1中點(diǎn)擊一下會記錄位置，移開鼠標(biāo)，點(diǎn)擊移動或點(diǎn)擊Button，可模擬在TextBox1中的點(diǎn)擊

Public Class Form1

Public My_MousePosition As Point

'模擬鼠標(biāo)移動、點(diǎn)擊

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

'定義光標(biāo)的位置

Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Integer, ByVal y As Integer) As Integer

'鼠標(biāo)的隱藏

Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Integer) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox1.Multiline = True

Button1.Text = "點(diǎn)擊"

Button2.Text = "移動"

Me.KeyPreview = True

End Sub

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

If e.Control And e.KeyCode = Keys.Down Then ShowCursor(0)

If e.Control And e.KeyCode = Keys.Up Then ShowCursor(1)

End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

TextBox2.Text = MousePosition.X " " MousePosition.Y

End Sub

Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick

My_MousePosition = MousePosition

TextBox1.Text = My_MousePosition.X " " My_MousePosition.Y vbCrLf

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

SetCursorPos(My_MousePosition.X, My_MousePosition.Y)

mouse_event(H2, 0, 0, 0, 0)

mouse_event(H4, 0, 0, 0, 0)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

SetCursorPos(My_MousePosition.X, My_MousePosition.Y)

End Sub

End Class

其中

mouse_event Lib "user32" (ByVal dwFlags As Long

的dwFlags的代碼是

Const MOUSEEVENTF_LEFTDOWN = H2

Const MOUSEEVENTF_LEFTUP = H4

Const MOUSEEVENTF_MIDDLEDOWN = H20

Const MOUSEEVENTF_MIDDLEUP = H40

Const MOUSEEVENTF_MOVE = H1

Const MOUSEEVENTF_ABSOLUTE = H8000

Const MOUSEEVENTF_RIGHTDOWN = H8

Const MOUSEEVENTF_RIGHTUP = H10

vb.net中如何禁用鍵盤和鼠標(biāo)

很簡單，你怎么不先問我，還在這提問。用api函數(shù)，鉤子，設(shè)置成全局鉤子，然后對鉤取來的message消息不做處理，也不返回，這樣屏蔽了鍵盤了。鉤子函數(shù)api好像是什么hook的那個，還有鉤子函數(shù)的返回函數(shù)，以整個自定義函數(shù)的指針作參數(shù)

分享題目：隱藏鼠標(biāo)vb.net 隱藏鼠標(biāo)怎么恢復(fù)
轉(zhuǎn)載來源：http://www.chinadenli.net/article0/doogpio.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、品牌網(wǎng)站設(shè)計、云服務(wù)器、域名注冊、手機(jī)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)