vb.net鼠標(biāo)位置 vbs獲取鼠標(biāo)位置
求大神指點vb.net 怎么用SendInput來實現(xiàn)鼠標(biāo)移動到指定位置呢?
您好，建議您使用mouse_event或者?Cursor.Position來實現(xiàn)。例如：
成都創(chuàng)新互聯(lián)公司專注于無為企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,商城網(wǎng)站開發(fā)。無為網(wǎng)站建設(shè)公司,為無為等地區(qū)提供建站服務(wù)。全流程按需搭建網(wǎng)站，專業(yè)設(shè)計，全程項目跟蹤，成都創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)
1. 您需要將鼠標(biāo)移動dx, dy的位置。
Public?Sub?MouseMoveBy(ByVal?dx?As?Integer,?ByVal?dy?As?Integer)
Cursor.Position?=?New?Point(Cursor.Position.X?+?dx,?Cursor.Position.Y?+?dy)
End?Sub
或者
Public?Sub?MouseMoveBy(ByVal?dx?As?Integer,?ByVal?dy?As?Integer)
mouse_event(0,?dx,?dy,?0,?0)
End?Sub
2. 您需要將鼠標(biāo)移動到x, y的位置
Public?Sub?MouseMoveTo(ByVal?x?As?Integer,?ByVal?y?As?Integer)
Cursor.Position?=?New?Point(x,?y)
End?Sub
請您試一下。
VB.NET 在RichTextBox中確定鼠標(biāo)所指的字符位置
void rtf_Click(object s, EventArgs e)
{
MessageBox.Show(rtf.SelectionStart.ToString());
}
在VB.net中怎么獲取 鼠標(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 '用時鐘控件來取坐標(biāo),窗口上放個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.NET寫一個獲取鼠標(biāo)當(dāng)前屏幕的坐標(biāo).
你好 那因為你放在了Label1控件的移動事件了 。
說明：
當(dāng)前你的代碼是在當(dāng)鼠標(biāo)經(jīng)過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
上面代碼我是做過測試才發(fā)的，完全能實現(xiàn)你的要求?。。。。?！
本文名稱：vb.net鼠標(biāo)位置 vbs獲取鼠標(biāo)位置
分享鏈接：http://m.jiaotiyi.com/article/ddcddcd.html