vb點(diǎn)虐 獲取鼠標(biāo)坐標(biāo) vb獲取鼠標(biāo)位置

在vb點(diǎn)虐 鍵盤事件 中 如何獲取當(dāng)前鼠標(biāo)的位置。 比如我按下“enter”鍵，獲取此時(shí)刻鼠標(biāo)的位置。

控件中keyup屬性記錄鍵盤操作

成都創(chuàng)新互聯(lián)主要從事成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)平果,十年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來(lái)電咨詢建站服務(wù):18980820575

比如：

Private Sub from1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp

if e.keycode = keys.Enter then

lable1.text =Cursor.Position.X

lable2.text = Cursor.Position.Y

end if

end sub

在VB點(diǎn)虐 中怎么獲取 鼠標(biāo)在屏幕中的坐標(biāo)

Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long '全屏坐標(biāo)聲明

Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Int32, ByRef lpPoint As POINTAPI) As Int32 '窗口坐標(biāo)聲明

Private Structure POINTAPI '聲明坐標(biāo)變量

Public x As Int32 '聲明坐標(biāo)變量為32位

Public y As Int32 '聲明坐標(biāo)變量為32位

End Structure

'以上是聲明部分

'以下是窗口部分

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '用時(shí)鐘控件來(lái)取坐標(biāo),窗口上放個(gè)Timer組件,Enabled為允許,周期為10到100毫秒均可

Dim P As POINTAPI '聲明坐標(biāo)變量

Dim xx, yy '聲明轉(zhuǎn)換要用到的變量

GetCursorPos(P) '獲取鼠標(biāo)在屏幕中的位置

ScreenToClient(Me.Handle.ToInt32, P) '轉(zhuǎn)換為本窗體的坐標(biāo)

xx = P.x.ToString '把X轉(zhuǎn)換成能顯示到文本框的字符串格式

yy = P.y.ToString '把Y轉(zhuǎn)換成能顯示到文本框的字符串格式

TextBox1.Text = xx + "和" + yy '文本框的內(nèi)容為X坐標(biāo)和Y坐標(biāo)

End Sub

VB獲取鼠標(biāo)在當(dāng)前窗體的坐標(biāo)

采用窗體的MouseMove事件來(lái)獲取鼠標(biāo)坐標(biāo)是可以的。如下我在文本框中顯示當(dāng)前鼠標(biāo)的坐標(biāo)程序，鼠標(biāo)移動(dòng)，坐標(biāo)自動(dòng)更新，只需要一個(gè)文本框控件，代碼如下：Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1.Text = "當(dāng)前鼠標(biāo)坐標(biāo)為，X：" X "Y:" Y

End Sub

用VB.NET寫一個(gè)獲取鼠標(biāo)當(dāng)前屏幕的坐標(biāo).

你好 那因?yàn)槟惴旁诹薒abel1控件的移動(dòng)事件了 。

說(shuō)明：

當(dāng)前你的代碼是在當(dāng)鼠標(biāo)經(jīng)過(guò)Label1的MouseMove事件才被激活，其他事件不備激活的。

建議應(yīng)用函數(shù)調(diào)用具體方法網(wǎng)上應(yīng)該有

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

TextBox1.Text = System.Windows.Forms.Cursor.Position.X.ToString "," System.Windows.Forms.Cursor.Position.Y.ToString

End Sub

上面代碼我是做過(guò)測(cè)試才發(fā)的，完全能實(shí)現(xiàn)你的要求?。。。。?！

網(wǎng)站名稱：vb點(diǎn)虐 獲取鼠標(biāo)坐標(biāo) vb獲取鼠標(biāo)位置
本文路徑：http://www.bm7419.com/article26/ddehhcg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供標(biāo)簽優(yōu)化、品牌網(wǎng)站設(shè)計(jì)、營(yíng)銷型網(wǎng)站建設(shè)、自適應(yīng)網(wǎng)站、網(wǎng)站收錄、App設(shè)計(jì)

廣告

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