VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1727|回复: 3

[求助] 关于多线程的使用,求助

[复制链接]
发表于 2012-8-11 23:38:49 | 显示全部楼层 |阅读模式
本帖最后由 hnzlf 于 2012-8-12 00:46 编辑

我用了一个第三方控件,其有两个事件,
一个是”鼠标左键点击单元格时响应该事件“
可得到左键点击的单元格
一个是”鼠标移动时触发该事件“
可得到移动的量
现在我需要按下鼠标左键移动时获得正在移动的量(值)
如何用多线程实现呢?
发表于 2012-8-14 21:42:37 | 显示全部楼层
处理下消息就可以得到了,怕是不用多线程
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-8-14 21:59:45 | 显示全部楼层
本帖最后由 hnzlf 于 2012-8-14 22:34 编辑

Dim startCol As Long, startRow As Long, endCol As Long, endRow As Long

Private Sub Cell1_MouseLClick(ByVal col As Long, ByVal row As Long, ByVal updn As Long)
    '鼠标左踺点击时的事件移动时不触发
    'col、row 为当前点击的列和行
    'startCol
    '选择区域的起始列号
    'startRow
    '选择区域的起始行号
    'endCol
    '选择区域的结束列号
    'endRow
    '选择区域的结束行号
    Cell1.GetSelectRange startCol, startRow, endCol, endRow
    Text1 = "起始列:" & startCol & ";起始行:" & startRow & "结束列:" & endCol & ";结束行:" & endRow
End Sub

Private Sub Cell1_MouseMoving(ByVal nFlags As Long, ByVal col As Long, ByVal row As Long, ByVal x As Long, ByVal y As Long)
    '鼠标移动时的事件点击时不触发
    'col
    '鼠标所在单元格的列号
    'row
    '鼠标所在单元格的行号
    Text2 = "当前列:" & col & "  当前行:" & row
End Sub
如何把这两个事件结合起来实现在鼠标拖动时显示行列数

点评

tgy
方法同处理无边框窗口的拖动一样  发表于 2012-8-15 00:32
tgy
子类化,再处理消息,就能得到拖动事件  发表于 2012-8-15 00:31
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-8-16 22:53:58 | 显示全部楼层
tgy你好!
VB我是自学的,有好多不是很明白,能否给个例子,或把我的程序发给你,帮给改下。
站内短信你能看到吗?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-5-29 10:39

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表