vb.net鼠标指针 vb鼠标事件代码

vb.net如何更换程序光标

比如你要更换在你某个窗体上的光标。

那么在这个窗体内用这样的代码

Me.Cursor = System.Windows.Forms.Cursors.Cross

如果你要更换当前系统显示的光标

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Cross

其中Cross代表十字光标，你也可以更改成其他的，直接查看Cursors中的各成员就可以找到了。

相关问答

Q1: VB.net的窗体，能否通过配置控件属性来设置鼠标指针移动到控件上出现的气泡提示?

首先，你要找一个手型的图标文件(就是扩展名为ico的文件)，然后用VB创建一个窗体，在窗体的属性MouseIcon里面添加你准备的ico文件，然后把属性MousePoint的属性值改成99-ccCustom，就可以了

Q2: vb 鼠标指针

具体的代码不写了，如下：

首先通过label句柄获取其所在的矩形区域，然后判断鼠标是否在这个区域内即可

下面代码获取这个矩形区域：

Declare

Function

GetWindowRect

Lib

"user32"

Alias

"GetWindowRect"

(ByVal

hwnd

As

Long,

lpRect

As

RECT)

As

Long

Private

Type

RECT

Left

As

Long

Top

As

Long

Right

As

Long

Bottom

As

Long

End

Type

用这个函数

EX:

Dim

Rec

As

RECT

'

Get

Left,

Right,

Top

and

Bottom

of

ExplButton

GetWindowRect

ExplButton.hwnd,

Rec

用下列API函数获取当前鼠标所在的坐标：

Private

Declare

Function

GetCursorPos

Lib

"user32"

(lpPoint

As

POINTAPI)

As

Long

Private

Type

POINTAPI

X

As

Long

Y

As

Long

End

Type

窗体中：

GetCursorPos

PT

即可获取当前鼠标所在的坐标，然后结合上面的矩形区域，你自己分析一下就行了，很简单。具体的判断代码我就不写了，如果实在不知道的话再追问吧

另外：新年快乐

Q3: 如何在VB.net中用程序控制鼠标移动和点击

调用api

在Visual Baisc.net中vb.net鼠标指针的声明vb.net鼠标指针：

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

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放

Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10vb.net鼠标指针，10）模拟鼠标左键按下

Q4: vb.net中TreeView控件的使用

在中 TreeView(树型结构)控件是显示节点(Node)对象的级层结构 它通常用于显示一些有等级结构的信息 我们最为熟悉的就是Windows资源管理器左边显示文件和文件夹的窗口 在工具箱中 TreeView 控件的图标如下图一所示

TreeView控件的每个节点(Node对象)包含了一个标签和可选的点位图 每个节点又可能包含有若干个的子节点 可以通过控制某个节点来展开显示或者折叠隐藏它所包含的子节点

一 TreeView 控件的一些常用属性

CheckBoxes 属性 指示是否在树视图控件中的树节点旁显示复选框

FullRowSelect 属性 当 FullRowSelect 为 true 时 选择突出显示将跨越树视图的整个宽度 即整个显示区域的宽度而不仅仅是树节点标签的宽度 如果 ShowLines 设置为 true 则将忽略 FullRowSelect 属性

HideSelection 属性 指示选定的树节点是否即使在树视图已失去焦点时仍会保持突出显示

HotTracking 属性 如果 HotTracking 属性设置为 true 那么当鼠标指针移过每个树节点标签时 树节点标签都将具有超级链接的外观 Underline 字体样式将应用于 Font 而 ForeColor 将设置为蓝色 从而使标签显示为链接 注意 如果 CheckBoxes 属性设置为 true HotTracking 属性将失效

Indent 属性 设置每个子树节点级别的缩进距离(以像素为单位)

ItemHeight 属性 设置树视图控件中每个树节点的高度

Nodes 属性 获取分配给树视图控件的树节点集合 这个属性是TreeView 控件最重要的属性之一 我们下文将会对它进行更加的详细的说明

PathSeparator 属性 树节点路径(TreeNode FullPath 属性)所使用的分隔符串 默认为反斜杠字符 (\) 树节点路径包括一组由 PathSeparator 分隔符串分隔的树节点标签 标签的范围为根树节点到所需的树节点 如下代码我们可以获得当前选中的节点的路径

MessageBox Show(TreeView SelectedNode FullPath)

SelectedNode 属性 获取或设置当前在树视图控件中选定的树节点 如果没有选定任何节点 则 SelectedNode 属性则为Nothing

ShowLines 属性 指示是否在树视图控件中的树节点之间绘制连线

ShowPlusMinus 属性 指示是否在包含子树节点的树节点旁显示加号 (+) 和减号 ( ) 按钮

ShowRootLines 属性 指示是否在树视图根处的树节点之间绘制连线

如下图二所示 为ShowLines 属性 ShowPlusMinus 属性 ShowRootLines 属性都设置为True的情形

二 为TreeView 控件添加节点

TreeView 控件的 Nodes 属性包含了它所有的节点 下面我们就来了解如何为树状控件添加节点

通过树节点编辑器添加

选中TreeView 控件 在它的属性对话框中找到Nodes 属性 然后单击它后面的省略号 弹出 树节点编辑器 如下图三所示

然后通过编辑器上的 添加根 来添加根节点 通过 添加子级 来为选中的节点添加子节点 通过 删除 来删除选定的节点 标签 输入框确定节点的名称 注意 只有设置了TreeView 控件的ImageList 属性才能选择设置节点的图像

通过编程方式添加节点

给TreeView添加结点用到的是 Nodes Add 方法 首先选定要添加子结点的结点才能应用这个方法

TreeView中的结点的组织关系是父结点管理子结点的关系 也就是说 子结点组成的集合就是父结点的 Nodes 属性 子结点的 Index 属性 是根据其在子结点集合中的位置而决定的 而不是整棵树中结点的位置 根据这个特点 若想找到指定结点须按以下的语法

TreeViewName Nodes Item(Index ) Nodes

而添加结点的方法为

TreeViewName Nodes Item(Index ) Nodes Add( NodeText )或

TreeViewName Nodes Item(Index ) Nodes Add( objNode )

如下代码所示为选中的节点添加一个子节点

TreeView SelectedNode Nodes Add( )

编程删除节点

使用Nodes属性的Remove 方法删除单个节点 也可以使用Clear 方法清除所有的节点 如下代码所示

删除选定的节点

TreeView Nodes Remove(TreeView SelectedNode)

清除TreeView 控件的所有节点

TreeView Nodes Clear()

示例演示

我们现在用一个实例来看如何使用Nodes属性来实现代码编程添加删除树形控件的节点 首先为设计如下图四所示的程序界面 其中有四个Button 控件 一个TreeView 控件

为 添加根节点 按钮添加如下代码

TreeView Nodes Add( 根节点 (TreeView GetNodeCount(False) + ))

注意 GetNodeCount方法为获得本级别的节点数 可以通过参数False来指定不包括它的子节点

为 添加子节点 按钮添加如下代码

Dim node As TreeNode = TreeView SelectedNode

If Not node Is Nothing Then

node Nodes Add( 子节点 (node GetNodeCount(False) + ))

Else

MessageBox Show( 没有选中任何节点 )

End If

注意 TreeNode GetNodeCount 方法返回的是分配给 Nodes 集合的子树节点的数目

为 删除单个节点 按钮添加代码

Dim node As TreeNode = TreeView SelectedNode

If node Is Nothing Then

MessageBox Show( 没有选中任何节点 )

Else

TreeView Nodes Remove(node)

End If

为 删除所有节点 按钮添加代码

TreeView Nodes Clear()

代码添加完毕后 运行程序 分别使用 添加根节点 添加子节点 为控件添加节点 如下图五所示

然后再试验删除节点的效果

三 访问控件的所有节点

因为Nodes集合中所包含的只是本级节点的集合 如果某个Node包含有子节点 并不会从当前的Nodes体现出来 如下代码所示 我们只能访问到所有的根节点而不是所有的节点

假定我们是在前面示例的基础上添加一个名为 遍历节点 的按钮 然后在该按钮的Click事件中添加如下代码

Dim node As TreeNode

Dim str As String =

For Each node In TreeView Nodes

str = str node Text vbCr

Next

MessageBox Show(str)

node = Nothing

运行后 先分别为控件添加若干个根节点与子节点 然后单击 遍历节点 按钮 效果如下图六所示

很明显 我们遍历了Nodes集合 但是并没有如期访问到子节点 怎么解决这个问题呢？请看下一页

如上页的问题 我们假设一个根节点的Nodes集合为Nodes 该集合中的一个Node节点为Node Node 下有若干个子节点 我们把它的子节点的集合称为Nodes 我们用For Each 遍历Nodes 时 它访问到Node 但不会访问Nodes 集合

如果我们要访问Nodes 就需要像遍历Nodes 一样遍历Nodes 解决办法如下

首先 建立一个过程用于遍历一个Node节点下的子节点

Private Sub PrintNode(ByVal N As TreeNode)

Debug WriteLine(N Text)

Dim node As TreeNode

For Each node In N Nodes

PrintNode(node)

Next

End Sub

然后把 遍历节点 的Click事件中修改为如下代码

Dim node As TreeNode

For Each node In TreeView Nodes

PrintNode(node)

Next

node = Nothing

运行后 先分别为控件添加若干个根节点与子节点 然后单击 遍历节点 按钮 然后查看 输出 窗口 效果如下图七所示

可以发现已经能真正地遍历了所有节点

lishixinzhi/Article/program/net/201311/11617

Q5: VB.NET中的TextBox控件详解

TextBox组件（文本框组件）是一种常用的 也是比较容易掌握的组件 应用程序主要使用它来接收使用者于输入文字信息 在前面内容中已经或多或少的接触到TextBox组件 本节就来详细探讨一下Visual 中TextBox组件的使用方法 一 TextBox组件 TextBox类 当我们使用Visual Basic Net集成开发环境开发应用程序时 在从【工具箱】的【Windows窗体】选项卡中向Form 的设计窗体拖入一个TextBox组件的后 我们可能并没有感觉到即使时这样一个简单的操作 Visual Basic Net都做了很多幕后工作 主要工作和步骤如下 首先实例化System Windows Forms TextBox类 并根据拖动到窗体的位置和形状分别设定TextBox实例的各个属性 我们看到的设计窗体 其实是Form 类的一个实例 而Form 类首先是从System Windows Forms Form类继承而来 Form 类中的成员根据使用者往窗体中拖入的组件不同而不同 各个成员通过Add或AddRange方法加入到Form 中 这样拖入的组件才能够显示在设计窗体上 以上这些都完全不同于以前Visual Basic 通过上述步骤 我们不难得到TextBox组件和TextBox类之间的关系 TextBox组件是命名空间System Windows Forms中的TextBox类的实例 在从【工具箱】的【Windows窗体】选项卡中拖入窗体的任一组件 都是 Net框架类库—— Net Framework SDK中封装的某一个类的实例 通过上述步骤也不难看出 Visual Basic Net的确才是真正的面向对象（OOP）的开发语言 二 TextBox类的成员 TextBox组件使用虽然比较简单 但TextBox类的构成成员却是非常的丰富 在一般性的编程中 主要涉及到三类 属性 方法和事件 表 表 和表 分别是TextBox类的常用属性 方法和事件及其简单说明 属性 说明 AcceptsReturn 指示在多行TextBox组件中按ENTER键时 是在组件中创建一行新文本还是激活窗体的默认按钮 AcceptsTab 该值指示在多行文本框组件中按TAB键时 是否在组件中键入一个TAB字符 而不是按选项卡的顺序将焦点移动到下一个组件 AllowDrop 获取或设置一个值 该值指示组件是否可以接受用户拖放到它上面的数据 Anchor 获取或设置组件的哪些边缘锚定到其容器边缘 BackColor 获取或设置组件的背景色 BackgroundImage 获取或设置在组件中显示的背景图像 BorderStyle 获取或设置文本框组件的边框类型 Bottom 获取组件的下边缘与其容器的工作区的上边缘之间的距离 CanFocus 获取一个值 该值指示组件是否可以接收焦点 CanSelect 获取一个值 该值指示是否可以选中组件 CanUndo 获取一个值 该值指示用户在文本框组件中能否撤消前一操作 CharacterCasing 获取或设置TextBox组件是否在字符键入时修改其大小写格式 ContextMenu 获取或设置与组件关联的快捷菜单 Reated 获取一个值 该值指示组件是否已经创建 Cursor 获取或设置当鼠标指针位于组件上时显示的光标 DataBindings 为该组件获取数据绑定 Dock 获取或设置组件停靠到父容器的哪一个边缘 Enabled 获取或设置一个值 该值指示组件是否可以对用户交互作出响应 Focused 获取一个值 该值指示组件是否有输入焦点 Font 获取或设置组件显示的文字的字体 ForeColor 获取或设置组件的前景色 MaxLength 获取或设置用户可以在文本框组件中最多键入的字符数 Multiline TRUE/FALSE 该值指示它是否为多行文本框组件 PasswordChar 获取或设置字符 该字符用于屏蔽单行 ScrollBars 获取或设置哪些滚动条应出现在多行TextBox 组件中 Text 获取或设置文本框中的当前文本 TextAlign 设置文本框内文本得对齐方式 TextLength 获取组件中文本的长度 　表 TextBox类的常用属性及其说明 方法 说明 AppendText 向文本框的当前文本追加文本 Clear 从文本框控件中清除所有文本 ClearUndo 从该文本框的撤消缓冲区中清除关于最近操作的信息 Copy 将文本框中的当前选定内容复制到剪贴板 Cut 将文本框中的当前选定内容移动到剪贴板中 DoDragDrop 开始拖放操作 Focus 为控件设置输入焦点 GetChildAtPoint 检索位于指定坐标处的子控件 GetNextControl 按照子控件的Tab键顺序向前或向后检索下一个控件 Hide 对用户隐藏控件 Paste 用剪贴板的内容替换文本框中的当前选定内容 PointToClient 将指定屏幕点的位置计算成工作区坐标 PointToScreen 将指定工作区点的位置计算成屏幕坐标 ResetBindings 将DataBindings属性重置为其默认值 Select 选择控件中的文本 SelectAll 选定文本框中的所有文本 SelectNextControl 激活下一个控件 Show 向用户显示控件 SuspendLayout 临时挂起控件的布局逻辑 Undo 撤消文本框中的上一个编辑操作

表 TextBox类的常用方法及其说明

事件 说明 Click 在单击文本框时发生 CursorChanged 当 Cursor 属性的值更改时发生 DoubleClick 在双击控件时发生 DragDrop 在完成拖放操作时发生 DragEnter 在将对象拖入控件的边界时发生 DragLeave 在将对象拖出控件的边界时发生 DragOver 在将对象拖到控件的边界上发生 EnabledChanged Enabled 属性值更改后发生 Enter 进入控件时发生 GiveFeedback 在执行拖动操作期间发生 GotFocus 在控件接收焦点时发生 KeyDown 在控件有焦点的情况下按下键时发生 KeyPress 在控件有焦点的情况下按下键时发生 KeyUp 在控件有焦点的情况下释放键时发生 Leave 在输入焦点离开控件时发生 LostFocus 当控件失去焦点时发生 MouseDown 当鼠标指针位于控件上并按下鼠标键时发生 MouseEnter 在鼠标指针进入控件时发生 MouseHover 在鼠标指针悬停在控件上时发生 MouseLeave 在鼠标指针离开控件时发生 MouseMove 在鼠标指针移到控件上时发生 MouseUp 在鼠标指针在控件上并释放鼠标键时发生 MouseWheel 在移动鼠标轮并且控件有焦点时发生 Move 在移动控件时发生 Paint 在重绘控件时发生 Resize 在调整控件大小时发生

TextBox类的常用事件及其说明当然TextBox类除了上述的属性 方法和事件 还有很多属性 方法和事件 和很多受保护的方法和受保护的属性 由于它们使用的几率较少和篇幅所限 就不能一一介绍了 感兴趣的朋友可以参阅相关资料

三．掌握TextBox组件的基本用法 由于TextBox类的成员实在太丰富 一个示例要想介绍上述所有的方法 属性和事件是不可能 在下面介绍的示例中 将突出介绍在Visual 集成开发环境下通过对设定不同的属性值实现三种常见的TextBox组件式样 以及TextBox组件的方法的调用方法和在Visual Basic Net集成开发环境中如何加入TextBox组件不同事件对应的处理代码 让各位更加熟悉TextBox类和Visual Basic Net开发环境 下面是TextBox示例的具体实现步骤 启动Visual Studio Net 选择菜单【文件】|【新建】|【项目】后 弹出【新建项目】对话框 将【项目类型】设置为【Visual Basic项目】 将【模板】设置为【Windows应用程序】 在【名称】文本框中输入【TextBox组件】 在【位置】的文本框中输入【E:\项目】 然后单击【确定】按钮 这样在 E:\VS NET项目 目录中就产生了名称为 TextBox组件 的文件夹 并在里面创建了名称为 TextBox组件 的项目文件 把Visual Studio Net的当前窗口切换到【Form VB（设计）】窗口 并从【工具箱】中的【Windows窗体组件】选项卡中往Form 窗体中拖入下列组件 并执行相应操作 三个Label组件 三个TextBox组件 分别为TextBox TextBox 和TextBox 按照表 中数值来设定设定组件的主要属性 请注意TextBox组件中的属性设定值

表 【TextBox组件】项目窗体中各组件的主要属性设定数值表

按照表 各值设定后的TextBox组件三种常用的式样也就产生了 具体如图 所示

图 程序设计时TextBox组件三种常见使用方法

这三种式样就是单行的TextBox组件 多行的TextBox组件和用以输入类似密码数据的TextBox组件 为TextBox 组件添加事件和事件的处理代码 此次添加的事件的名称是Leave 当TextBox 组件失去焦点时触发此事件 添加TextBox 组件的其他事件也可仿照下面的处理方法 下面是利用Visual Basic Net在【TextBox组件】项目中添加TextBox 组件的Leave事件和添加Leave事件的处理代码的具体步骤 首先把Visual Basic Net的当前窗口切换到Form vb的代码编辑界面 然后在如图 所示的选择框中选择TextBox

图 选择TextBox组件

之后 在图 所示的选择框中选择 Leave

图 选取Leave事件

在选择 Leave 之后 Visual Basic Net会自动在Form vb中产生TextBox 的Leave事件 在Leave事件的事件处理代码区添加下列代码 下面代码调用了TextBox 组件的 Clear 方法并且显示一个TextBox 组件失去焦点的提示框

TextBox Clear ( ) 清除TextBox 组件的显示内容MsgBox ( 失去焦点！ ) 弹出提示框

至此【TextBox组件】项目的全部工作就完成了 图 是程序编译后运行界面

图 【TextBox项目】的运行界面

lishixinzhi/Article/program/net/201311/12721

vb.net鼠标指针的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb鼠标事件代码、vb.net鼠标指针的信息别忘了在本站进行查找喔。