VB鼠标移动问题，如何在VB中控制鼠标移动

我怎么感觉，ls两个有点没有答案。 呵呵、你是不是只想改变表单中的位置，而不是屏幕上的位置。

一：你把表单的横坐标和纵坐标分别加到x，y坐标上，不就是把鼠标移到表单的指定位置吗？

二：VB默认单位是Ti，普通分辨率一般叫像素，1个像素=15个Ti，所以把表单的长度换算成像素，应该自己测试一下。 这样，VB的单位就可以转换为屏幕像素单位。

如果使用 clswindow 框架，则很简单。 **下面：

dim w as new clswindow=

也可以这样写，这样更方便：

dim w as new clswindow200, 0, relative

option explicit

private mchkmin as long

private mtmrcount as long

private sub form_load()

60000 '1 min

truemchkmin = 20 '

end sub

private sub form_mousemove(button as integer, shift as integer, x as single, y as single)

mtmrcount = 0 'reset count to 0

end sub

当系统关闭时，点击右上角的小x，直接退出系统。

你能写一段吗** 当你点击小 x（关闭按钮）时，它会弹出'出提示篮确认是否关闭系统？？

private sub form_unload(cancel as integer)

dim ret as long

ret = msgbox("是否要注销系统？", vbyesno + vbinformation)

if ret = vbno then

cancel = true

end if

end sub

private sub timer1_timer()

mtmrcount = mtmrcount + 1

dim ret as long

if mtmrcount >= mchkmin then

ret = msgbox("已经" & mchkmin & "分钟不做任何人为，是否退出系统", vbyesno + vbinformation)

if ret = vbyes then

endend if

mtmrcount = 0

end if

end sub

private sub form_mousemove(button as integer, shift as integer, x as single, y as single)

vbblue

end sub

private sub label1_mousemove(button as integer, shift as integer, x as single, y as single)

vbredend sub

如果标签旁边有控件。

piece 和 it，同时为该控件编写 MouseMove 事件。

尝试不同的界面，当然，鼠标可能坏了。

我又借了一只鼠标，把它插到我的电脑上，然后让电脑自动弹出，安装人工输入设备。

菜单在表单中的位置是相对固定的（必须固定在那里），所以可以在鼠标移动时随时得到鼠标移动的坐标，同时得到菜单的坐标，当两个坐标相交时，即鼠标进入菜单区， 你让他触发一个功能来打开菜单。我在做梦，你可以试试，不，因为 vb 菜单真的不支持这些鼠标操作。

没办法，VB 中的菜单不接受鼠标悬停等操作。

似乎可以通过 mousemove 事件做到这一点。

VB 编号

这可以通过 mousehover 事件来完成。

mouse_event mouseeventf_move + mouseeventf_absolute, ,3, 1) *65535 / , 0, 0, 0

说明： MouseEventf Absolute 是将鼠标指针移动到绝对位置。 如果是相对移动，实际移动位置受控制面板中鼠标指针移动的速度和精度的影响，也就是说，在不同的电脑上，相对移动后的鼠标指针位置很可能完全不同，所以最好不要使用相对移动， 而是使用绝对运动。

3、1）是将100像素转换为twip是屏幕的水平分辨率（以锡为单位），以便程序可以适应所有显示器。

这不是函数使用问题。

问题是：在VB中调用系统函数。