针对之前发过的一个帖子发现的一个新问题

收藏

版主好，上周我发过一个帖子：spread的单元格设置成Locked=true以后的单元格样式
现在又发现一个新的问题，能否在帮忙解决一下。
今天怎么上传不了图片。我只能用文字描述了。
问题：
现在按照楼主的方法加了一个LeaveCell的方法，背景色已经设好。
但是当我把鼠标点到这个spread以外的控件上，刚才我在这个spread点击之后设定的背景色还在。怎么把这个背景色在离开这个spread的时候删除？
我之前做过一个模块是一个MultiRow在CellClick的时候会设一个背景色，然后我加了一个Leave方法，在这个方法里面把背景色重设了一遍，可以实现。
现在这个用的是LeaveCell方法，和Leave方法会冲突了的。设置背景色这个用CellClick方法又实现不了。

rbgongming · rbgongming

当光标从Spread离开，点击到其他控件的时候是不触发LeaveCell事件的
思想就是用Leave事件去调用LeaveCell事件。请试一试如下代码！
Private Sub FpSpread1_LeaveCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.LeaveCellEventArgs) Handles FpSpread1.LeaveCell
      '移動前セルの背景色をリセットします
      FpSpread1.ActiveSheet.Cells(e.Row, e.Column).ResetBackColor()
      '移動後セルの背景色を設定します
      If Me.ActiveControl IsNot Nothing AndAlso Me.ActiveControl.Name = FpSpread1.Name Then
         FpSpread1.ActiveSheet.Cells(e.NewRow, e.NewColumn).BackColor = Color.SkyBlue
      End If
End Sub

Private Sub FpSpread1_Leave(sender As Object, e As EventArgs) Handles FpSpread1.Leave
      Dim View As New SpreadView
      With FpSpread1.ActiveSheet
         FpSpread1_LeaveCell(sender, New FarPoint.Win.Spread.LeaveCellEventArgs(View, .ActiveRowIndex, .ActiveColumnIndex, .ActiveRowIndex, .ActiveColumnIndex))
      End With
End Sub

keaitutu · keaitutu

问题已经解决了，谢谢rbgongming

rbgongming · rbgongming

回复 3楼keaitutu的帖子

不用客气，有问题欢迎继续提问。

frank.zhang · frank.zhang

您好，问题已经解决，本帖关闭，如有其它问题，请开新帖。

感谢rbgongming的热情回复。

		自动登录	找回密码
密码			立即注册

[已处理] 针对之前发过的一个帖子发现的一个新问题

4 个回复

评分

活字格认证

微信认证勋章

元老葡萄