vb.net控件鼠标位置

用VB.NET写一个获取鼠标当前屏幕的坐标.

土嘎嘎的粉丝们大家好 那因为你放在了Label1控件的移动事件了 .

说明：

当前你的代码是在当鼠标经过Label1的MouseMove事件才被激活,其他事件不备激活的.

建议应用函数调用具体方法网上应该有

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

上面代码我是做过测试才发的,完全能实现你的要求！！！！！！

在VB.net中怎么获取 鼠标在屏幕中的坐标

Private Structure POINTAPI '声明坐标变量

End Structure

'好了,全部的声明部分

'以下是窗口部分

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '用时钟控件来取坐标,窗口上放个Timer组件,Enabled为允许,周期为10到100毫秒均可

Dim P As POINTAPI '声明坐标变量

Dim xx, yy '声明转换要用到的变量

GetCursorPos(P) '获取鼠标在屏幕中的位置

xx = P.x.ToString '把X转换成能显示到文本框的字符串格式

yy = P.y.ToString '把Y转换成能显示到文本框的字符串格式

TextBox1.Text = xx + "和" + yy '文本框的内容为X坐标和Y坐标

VB.net中怎么将鼠标移动到相对某个窗体的某个位置

一种方法是模拟移动鼠标移动,一种是获取窗口里的控件直接输入

在vb.net 键盘事件 中 如何获取当前鼠标的位置. 比如我按下"enter"键,获取此时刻鼠标的位置.

控件中keyup属性记录键盘操作

比如：

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

end if

end sub

VB.NET改变鼠标位置和让鼠标消失

几乎找不到真正VB.NET的api,都是自己将VB的api改成VB.NET的api,我的理解是声明中对应输入是H的地方保留Long,其他的Long改成Integer,既然VB.NET连MSDN都找不到较全的api说明,不保证api的用法在VB.NET其他版本中适用.

Public Class Form1

Public My_MousePosition As Point

'定义光标的位置

'鼠标的隐藏

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

TextBox1.Multiline = True

Me.KeyPreview = True

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)

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

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

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

SetCursorPos(My_MousePosition.X, My_MousePosition.Y)

End Class

其中

的dwFlags的代码是

Const MOUSEEVENTF_MOVE = H1

Const MOUSEEVENTF_RIGHTUP = H10

vb控件用鼠标拖动到指定位置会得分吗?

用鼠标拖动到指定位置可以得分.

双击工具箱中要添加控件的图标,就会在活动窗体的中央放置一个带有默认大小的控件实例.使用这种方式添加几个控件时,这些控件就会在窗体中央彼此叠放在一起,在添加完控件之后,再安排它们的位置.

单击工具箱中的控件.

把鼠标指针移动到窗体上,指针将变化为十字形.

把十字形指针放置在控件的左上角所在的位置.

拖动到右下角,会在窗体上绘制出一个矩形,表明控件的实际大小和位置.

在控件被正确地放置之后,释放鼠标,控件就会进入窗体中的位置.

控件添加到窗体中之后,它还可以被重新摆放位置或缩放大小,要重新放置控件的位置,可以单击选中它,然后拖动到希望的位置.要缩放控件,直接拖动缩放手柄,调整到合适的大小即可.

如果在窗体上放置几个控件,可以使用【格式】菜单上的命令来放置和缩放控件.选中控件,然后通过使用【格式】菜单上的命令,可以对齐和缩放控件.

希望我能帮助你解疑释惑.

以上就是土嘎嘎小编大虾米为大家整理的相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用，就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！