VB中第三方控件,我的要求好实现吗?
我用了一个第三方控件,其有两个事件,一个是”鼠标左键点击单元格时响应该事件“可得到左键点击的单元格一个是”鼠标移动时触发该事件“可得到移动的量现在我需要按下鼠标左键移动时...
我用了一个第三方控件,其有两个事件,
一个是”鼠标左键点击单元格时响应该事件“
可得到左键点击的单元格
一个是”鼠标移动时触发该事件“
可得到移动的量
现在我需要按下鼠标左键移动时获得正在移动的量(值)
代码
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
如何把这两个事件结合起来实现在鼠标拖动时显示行列数
不是Spread 表格控件,是用友华表的CELL,初学,给CELL信息了,可能本人太菜,没人理,哎! 展开
一个是”鼠标左键点击单元格时响应该事件“
可得到左键点击的单元格
一个是”鼠标移动时触发该事件“
可得到移动的量
现在我需要按下鼠标左键移动时获得正在移动的量(值)
代码
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
如何把这两个事件结合起来实现在鼠标拖动时显示行列数
不是Spread 表格控件,是用友华表的CELL,初学,给CELL信息了,可能本人太菜,没人理,哎! 展开
2个回答
展开全部
使用的三方控件名称是什么?是 Spread 表格控件吗?Spread 可以轻松实现你的需求。
追问
不是Spread 表格控件,是用友华表的CELL,初学,给CELL信息了,可能本人太菜,没人理,哎!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询