vb.net移动 vbnet override

小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

vb.net中,如何实现鼠标在listbox控件上移动时,鼠标所到的条目背景变黑、字变白；移开后还原?

复杂的不会，来点儿简单的，借用在listbox里按下鼠标时再移动，会高亮显示选择行，并且会随鼠标移动而变化的这一特点改进的，不足之处是在listbox里，此时处于鼠标左键在按下状态。

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 '模拟鼠标左键按下

Private Sub ListBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseMove

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

End Sub

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

调用api

在Visual Baisc.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

'在（10，10）模拟鼠标左键按下

VB.NET：键盘控制焦点移动

; 在数据库的项目中一定会有输入数据的Form 最令录入人员头痛的就是每填完一个数据后要再操作鼠标或者另一只手按一下Tab(不过还是很麻烦) 最人性化呢就是:按回车键(在小键盘内输入只要一只手就可以了) 还可以用方向键控制第一步:Form的KeyPreview的属性为True 第二步:按照需要把TabIndex按顺序设置第三步:编写一个方法代码如下: FocusMove Is Function Name ControlName Is the Control s Name Which you want to use Private Sub FocusMove()Sub FocusMove(ByVal sender As Object ByVal e As System Windows Forms KeyPressEventArgs) Handles ControlName KeyPress ControlName KeyPress If e KeyChar = ChrW( ) Then SelectNextControl is a Function will be introduced next SelectNextControl(sender True True True False) End If End Sub SelectNextControl的说明来自MSDN: 激活下一个控件 [Visual Basic] Public Function SelectNextControl( _ ByVal ctl As Control _ ByVal forward As Boolean _ ByVal tabStopOnly As Boolean _ ByVal nested As Boolean _ ByVal wrap As Boolean _ ) As Boolean [C#] public bool SelectNextControl( Control ctl bool forward bool tabStopOnly bool nested bool wrap ); [C++] public: bool SelectNextControl( Control* ctl bool forward bool tabStopOnly bool nested bool wrap ); [JScript] public function SelectNextControl( ctl : Control forward : Boolean tabStopOnly : Boolean nested : Boolean wrap : Boolean ) : Boolean; 参数 ctl 从其上开始搜索的 Control forward 如果为 true 则在 Tab 键顺序中前移如果为 false 则在 Tab 键顺序中后移 tabStopOnly true 表示忽略 TabStop 属性设置为 false 的控件 false 表示不忽略 nested true 表示包括嵌套子控件（子控件的子级） false 表示不包括 wrap true 表示在到达最后一个控件之后从 Tab 键顺序中第一个控件开始继续搜索 false 表示不继续搜索返回值如果控件已激活则为 true 否则为 false 备注如果将控件的 ControlStyles Selectable 样式位设置为 true 该控件包含在另一个控件中而且其所有父控件都可见并已启用则 SelectNextControl 方法激活 Tab 键顺序中的下一个控件下面列表中的 Windows 窗体控件是不可选择的从该列表中的控件派生的控件也是不可选择的 Label Panel GroupBox PictureBox ProgressBar Splitter LinkLabel（当控件中没有链接时）要求平台: Windows Windows NT Windows ME Windows Windows XP Home Edition Windows XP Professional Windows Server 系列最后要注意的就是TabIndex的设置如果控件在GroupBox中那么GroupBox要在TabIndex的顺序中就是说如果TextBox 在GroupBox 中那么GroupBox Index= TextBox Index= 并且在SelectNextControld的参数nested=true 即可还有一些细节大家在平时使用的时候还要多多注意的 end lishixinzhi/Article/program/net/201311/11492