VB程序员博客

特殊需求、、、

把鼠标中键按下映射为键盘的某个键按下、、、

不只是程序内映射、、、

运行后所有程序都生效、、、

类似于全局热键、、、

求思路，求代码，谢谢、、、、接收鼠标事件
根据鼠标按键值
发送sendkey

谢老马出手、、、

我用那个hook实例写出来了，但我没弄明白、、、

有简单些的检测鼠标的hook例子不？

谢谢、、、这个例子还不明白呀?哪里不明白?<
滚轮的话,要检测WM_MOUSEWHEEL消息.滚轮的话，可以看看MS的给的实例程序~楼上好久不见啊!

草帽们都开始修炼了!啊哈哈!如果简单的只要求做中键屏蔽，我觉得注册热键那个api应该就够了，把鼠标中键注册成热键，不仅屏蔽了中键，而且所有的中键按下事件都会成为热键消息发给自己草帽啥意思啊，这一个月来论坛少些，都看不懂你的专业术语了：）

当我对一个控件设置了鼠标捕获后,为什么就拉不动它的滚动条了呢,点击滚动条没有反应

只有当发鼠标捕获结束后,才能进滚动条进行操作?
谁帮帮帮我呀,救命呀!什么控件，有可能你设置还有问题给代码？给你个头
这么简单的意思都看不懂!

我写了个程序 想后台模拟鼠标点击自身窗口中的某个点

要怎么实现  

注意：是后台模拟
 

在线等~ 急！！！
那个点是虚的还是实的？
就是有没有句柄？SendMessage
mouse_event
都可以实现你的要求make一下。试试用AutoHotKey软件<
<
<
<
是网页游戏吧？
只靠postmessage，还有mouseevent是不能实现的，实现后台按键必须靠发送封包，而且必须发送封包函数注入线程。

需要研究一下原始输入线程RIT与虚拟输入队列VIQ
然后是DLL注入呵呵,学习学习.<

有一条曲线，怎么用鼠标事件，当鼠标按在曲线上的某点时，读出该点的时间和幅值？帮楼主顶顶……曲线是在picturebox还是mschar里画的,mschar里想取得点的坐标很麻烦曲线是在picturebox还是mschar里画的

去问我女儿那条“曲线”是你自己的程序画的，还是别的程序窗口中的啊？

是在picturebox里面的，曲线是我采集卡采集的数据绘制而成<

<
真搞不懂楼主想要的是什么

你在Picture里画曲线时一定会有若干个点的坐标吧?
这个点的坐标(x,y)和代表的实际量(时间/幅值)一定有一个比率关系Rx,Ry
那么当你的鼠标在Picture移动时 _MouseMove(x,y)事件里的 Rx*x Ry*y不就是你想要的么?

系统文件夹里找不到。为什么？谁能告诉我它在哪里？多谢！！！
找什么？搜吧,不知道说得啥鼠标链接选择指针一个小手那样在你计算机里搜索*.cur,若搜不到,贴个邮箱,让别人给你发一个329990037@qq.comhttp://topic.csdn.net/u/20091130/01/837D334D-3C08-4C59-B56A-C87CBDE4B62B.html也许是删除了。

系统文件夹里找不到。为什么？谁能告诉我它在哪里？多谢！！！
找什么？搜吧,不知道说得啥鼠标链接选择指针一个小手那样在你计算机里搜索*.cur,若搜不到,贴个邮箱,让别人给你发一个329990037@qq.comhttp://topic.csdn.net/u/20091130/01/837D334D-3C08-4C59-B56A-C87CBDE4B62B.html也许是删除了。

如何实现模拟鼠标点击网页超连接或按钮

关注最近搞HTML+VB的人特多….<
'模拟点击登陆按钮
Set vDoc = WebBrowser1.Document
for i …
    Set vTag = vDoc.All(i)
    If vTag.Type = "submit" And vTag.Value = "登录" Then '登陆按钮
      vTag.Click
    End If
next谁有webbrowser1的具体用法说明呢？百度里搜一下,有好多WebBrowser常见用法
http://hi.baidu.com/hacklzt/blog/item/a1e5b23fd32fa3f2828b1305.html
<
上面提供的链接不错，自己搜一下也容易找到，网上很多的。http://hi.baidu.com/hacklzt/blog/item/a1e5b23fd32fa3f2828b1305.html

这里不错  收藏了  学习下webbrower不需要去模拟鼠标点击

改refer就可以了

如何实现模拟鼠标点击网页超连接或按钮

关注最近搞HTML+VB的人特多….<
'模拟点击登陆按钮
Set vDoc = WebBrowser1.Document
for i …
    Set vTag = vDoc.All(i)
    If vTag.Type = "submit" And vTag.Value = "登录" Then '登陆按钮
      vTag.Click
    End If
next谁有webbrowser1的具体用法说明呢？百度里搜一下,有好多WebBrowser常见用法
http://hi.baidu.com/hacklzt/blog/item/a1e5b23fd32fa3f2828b1305.html
<
上面提供的链接不错，自己搜一下也容易找到，网上很多的。http://hi.baidu.com/hacklzt/blog/item/a1e5b23fd32fa3f2828b1305.html

这里不错  收藏了  学习下webbrower不需要去模拟鼠标点击

改refer就可以了

例如：
鼠标点击拖动后实现效果：
###########################################

问题二：
画出直线或任意线（线条样式为虚线或者实线and点画线），在画线结束后线的末尾显示一个箭头。
例如：实现效果
————————————–>
1, 不懂什么意思
2,
    Me.Line (1, 1000)-(1000, 1000)
    Me.CurrentX = 1000
    Me.CurrentY = 900
    Print ">"
Picture1.OLEDragMode=ManualDragDrop事件：拖放事件，相当于MouseDown、MouseMove和MouseUp的组合。 
DragOver事件：鼠标在拖放过程中就会产生DragOver事件。能写上代码么？我是个新手！谢谢！第一个问题就是画出一条直线 而直线是被图片代替的！
画出一条直线 而直线是被图片代替的！??? 看不懂你在说啥 ??

既然直线是图片, 你还画什么线? 直接PaintPicture图片不就好了吗?

Private Sub Command1_Click()
  Me.Cls
  Me.CurrentX = 100: Me.CurrentY = 500 '指定位置
  Me.Print "———–>"
End Sub注：带箭头的直线和任意线是鼠标随意拖动画出来的下个CAD控件。利用下面代码, 座标已给你定好了, 你自己在座标位置 PaintPicture, 或将你的Picture或Image控件移到该位置, 因为不知道你真的想干什么, 不想浪费时间.

Dim X1!, Y1!, X2!, Y2!
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.DrawMode = 7: Me.DrawStyle = 1
      X1 = X: X2 = X
      Y1 = Y: Y2 = Y
  End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.Line (X1, Y1)-(X2, Y2), QBColor(10)
      Me.Line (X1, Y1)-(X, Y), QBColor(10)
      X2 = X: Y2 = Y
  End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.DrawMode = 13: Me.DrawStyle = 0
      Me.Line (X1, Y1)-(X, Y), QBColor(10)
      Me.CurrentX = X: Me.CurrentY = Y - (Me.TextHeight("-") 2)
      Me.Print "->"
  End If
End Sub

例如：
鼠标点击拖动后实现效果：
###########################################

问题二：
画出直线或任意线（线条样式为虚线或者实线and点画线），在画线结束后线的末尾显示一个箭头。
例如：实现效果
————————————–>
1, 不懂什么意思
2,
    Me.Line (1, 1000)-(1000, 1000)
    Me.CurrentX = 1000
    Me.CurrentY = 900
    Print ">"
Picture1.OLEDragMode=ManualDragDrop事件：拖放事件，相当于MouseDown、MouseMove和MouseUp的组合。 
DragOver事件：鼠标在拖放过程中就会产生DragOver事件。能写上代码么？我是个新手！谢谢！第一个问题就是画出一条直线 而直线是被图片代替的！
画出一条直线 而直线是被图片代替的！??? 看不懂你在说啥 ??

既然直线是图片, 你还画什么线? 直接PaintPicture图片不就好了吗?

Private Sub Command1_Click()
  Me.Cls
  Me.CurrentX = 100: Me.CurrentY = 500 '指定位置
  Me.Print "———–>"
End Sub注：带箭头的直线和任意线是鼠标随意拖动画出来的下个CAD控件。利用下面代码, 座标已给你定好了, 你自己在座标位置 PaintPicture, 或将你的Picture或Image控件移到该位置, 因为不知道你真的想干什么, 不想浪费时间.

Dim X1!, Y1!, X2!, Y2!
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.DrawMode = 7: Me.DrawStyle = 1
      X1 = X: X2 = X
      Y1 = Y: Y2 = Y
  End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.Line (X1, Y1)-(X2, Y2), QBColor(10)
      Me.Line (X1, Y1)-(X, Y), QBColor(10)
      X2 = X: Y2 = Y
  End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.DrawMode = 13: Me.DrawStyle = 0
      Me.Line (X1, Y1)-(X, Y), QBColor(10)
      Me.CurrentX = X: Me.CurrentY = Y - (Me.TextHeight("-") 2)
      Me.Print "->"
  End If
End Sub