找回密码
 立即注册

QQ登录

只需一步,快速开始

喀喀坤

论坛元老

17

主题

45

帖子

4240

积分

论坛元老

积分
4240

活字格认证

喀喀坤
论坛元老   /  发表于:2013-11-8 12:00  /   查看:5808  /  回复:5
Vb6.0+Spread7.0  如果获取光标所在cell(当前cell)的值和光标离开后的值!谢谢!

5 个回复

倒序浏览
iceman
社区贡献组   /  发表于:2013-11-8 13:46:00
沙发
回复 1楼喀喀坤的帖子

使用的是 Spread Com 版本吧?获取方式如下:

  1. Private Sub fpSpread1_LeaveCell(ByVal Col As Long, ByVal Row As Long, ByVal NewCol As Long, ByVal NewRow As Long, Cancel As Boolean)
  2.     Dim curtext As String
  3.     Dim pretext As String
  4.    
  5.     Me.fpSpread1.Row = Row
  6.     Me.fpSpread1.Col = Col
  7.     curtext = fpSpread1.Text
  8.    
  9.        Me.fpSpread1.Row = NewRow
  10.     Me.fpSpread1.Col = NewCol
  11.     pretext = fpSpread1.Text
  12.    
  13. End Sub

复制代码


可以通过设置 Spread 的Row 和Col 属性,来制定当前单元格,进而获取文本值。
回复 使用道具 举报
喀喀坤
论坛元老   /  发表于:2013-11-8 14:35:00
板凳
回复 2楼iceman的帖子

谢谢iceman,这个好像是获取两个不同cell的值,是我没表达清楚,不好意思,有没有办法获得同一个cell编辑前后的不同值,比如一个cell的开始值是2,我编辑后变成3,获取2跟3这两个值!
回复 使用道具 举报
iceman
社区贡献组   /  发表于:2013-11-8 18:12:00
地板
回复 3楼喀喀坤的帖子

代码如下:

  1. Private Sub fpSpread1_EditMode(ByVal Col As Long, ByVal Row As Long, ByVal Mode As Integer, ByVal ChangeMade As Boolean)
  2.    
  3.     Dim textBeforeEdit As String
  4.     Dim textAfterEdit As String
  5.     Me.fpSpread1.Row = Row
  6.     Me.fpSpread1.Col = Col
  7.    
  8.    
  9.     '编辑模式开启
  10.     If Mode = 1 Then
  11.         textBeforeEdit = Me.fpSpread1.Text
  12.     '编辑模式结束
  13.     ElseIf Mode = 0 Then
  14.         textAfterEdit = Me.fpSpread1.Text
  15.     End If

  16. End Sub
复制代码
回复 使用道具 举报
喀喀坤
论坛元老   /  发表于:2013-11-11 16:00:00
5#
回复 4楼iceman的帖子

谢谢!
回复 使用道具 举报
iceman
社区贡献组   /  发表于:2013-11-11 16:11:00
6#
回复 5楼喀喀坤的帖子

客气
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部