锐客网

  1. 首页 > 睿知 > it技术 > >

关于vb.net制作双击事件的信息

IT技术鼠标

VB.NET求帮忙！...新建窗体 ， 把maximizebox属性和MinimizeBox 属性设为false，再添加一个Label1放置文字一个Picturebox1放图片 。
在窗体的load事件中：
Private Sub Form1_Load() Handles Me.Load
Text="我的VB.NET程序"
PuctureBox1.Image=Image.FromFile(图片路径如e:\pic.jpg)
End Sub
窗体Click事件：
Private Sub Form1_Click() Handles Me.Click
Text="单击窗体"
Label1.Text="欢迎使用VB.NET"
End Sub
窗体DoubleClick事件
Private Sub Form1_DoubleClick() Handles Me.DoubleClick
Text="双击窗体"
Label1.Text = "谢谢使用！"
End Sub
跪求大神指点, vb.net 的图片鼠标事件 怎么把鼠标单击双击和鼠标按下鼠标放开 分辨出来呢?单击双击和按下松开本身就是重合的操作，分不开的，你想达到什么样的操作目的？
VB.NET环境下，winform中嵌入excel，Excel单元格双击的事件怎么写？你可以先用循环的方法来获得改datagrid中“性别”的值，接着自己定义个变量来存放这个“性别”的1或者0，然后根据这个值用条件来判断是显示“男性”还是女性，打个比方(有五列十行数据 ， 比方第二列显示出“性别”)：
Dim intRow As Integer
Dim intColumn As Integer
Dim Gender As Integer
For intRow = 0 To 9(DataGrid的行总和)
Gender = CInt(datagrid1.Item (intRow, 1).ToString )
If Gender = 0 Then
datagrid1.Item (intRow, 1)="男"
Else
datagrid1.Item (intRow, 1)="女"
Next
VB中怎样模拟鼠标双击操作？当然可以啊 。
使用API函数mouse_event可以模拟鼠标事件，比如左键单击、双击和右键单击等 。这个实例利用此函数产生了十分有趣的效果 ， 无论鼠标处于屏幕的任何位置，每隔一秒程序会使鼠标在那个位置单击或双击一次，这会给我们造成什么样的混乱呢？试一试就知道了 。
先在程序中加入如下的声明后，就能引用mouse_event函数：
Private 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)
其中各个参数的意义如下表所示：
参数 意义
dwFlags Long，下表中标志之一或它们的组合
dx，dy Long ， 根据MOUSEEVENTF_ABSOLUTE标志，指定x，y方向的绝对位置或相对位置
cButtons Long，没有使用
dwExtraInfo Long，没有使用
dwFlags常数 意义
MOUSEEVENTF_MOVE H1，移动鼠标
MOUSEEVENTF_LEFTDOWN H2，模拟鼠标左键按下
MOUSEEVENTF_LEFTUP H4 ， 模拟鼠标左键抬起
MOUSEEVENTF_RIGHTDOWN H8，模拟鼠标右键按下
【关于vb.net制作双击事件的信息】MOUSEEVENTF_RIGHTUP H10，模拟鼠标右键抬起
MOUSEEVENTF_MIDDLEDOWN H20，模拟鼠标中键按下
MOUSEEVENTF_MIDDLEUP H40，模拟鼠标中键抬起
MOUSEEVENTF_ABSOLUTE H8000，标示是否采用绝对坐标
程序中我们这样使用mouse_event函数：
1、这里是鼠标左键按下和松开两个事件的组合即一次单击：
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
2、模拟鼠标右键单击事件：
mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
3、两次连续的鼠标左键单击事件 构成一次鼠标双击事件：
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
如上面所示如果我们要使用两个dwFlags常数的组合时，可以用Or将其连接起来 。本例中我们把dx，dy参数都设为0，是指每次模拟事件的位置是鼠标的当前位置，dx，dy在没有使用MOUSEEVENTF_ABSOLUTE标志时是相对于鼠标当前位置的坐标，如果设置为使用绝对坐标，则dx，dy是相对于屏幕的坐标 。

推荐阅读


上一篇：加入鸿蒙生态厂商，鸿蒙生态合作伙伴名单

下一篇：excel如何带转换为箱，转化成excel