Spread（3.0）在Enter事件Msgbox表示时，Enter事件触发两次

Spread的版本：Spread For WinForms 3.0

问题：
Spread（3.0）在Enter事件Msgbox表示后，将焦点移动到其他控件，此时Enter事件触发两次，如何解决Enter事件触发两次的问题?

   

1.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
   
2.         Me.FpSpread1.EditModePermanent = True
   
3.         Me.FpSpread1.EditModeReplace = True
   
4.         Me.FpSpread1.EditMode = True
   
5.     End Sub
   
6. 
   
7.     Private Sub FpSpread1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.Enter
   
8.         MsgBox("OK")
   
9.         Me.TextBox1.Focus()
   
10.     End Sub

复制代码

问题：通过鼠标单击Spread，将焦点从其他控件移动到Spread时，Msgbox表示两次
想要的结果：Msgbox只表示一次。

先谢谢啦！！

回复 2楼beitesting的帖子

目前在安装 Spread for WinForms 3 环境，安装成功后给出测试结果。

回复 2楼beitesting的帖子

你好，
很抱歉，触发 FpSpread Enter 事件这个过程我们无法干预。
分别使用了 Spread 8.0 和 3.0 测试，8.0 没有出现调用两次的问题。

建议进行产品升级，下载链接：
http://www.gcpowertools.com.cn/d ... /SpreadStudiov8.zip

谢谢

谢谢

这个问题我已经解决了，不过还是要谢谢您。
下面是解决方案：

1.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
   
2.         'Me.FpSpread1.EditModePermanent = True
   
3.         'Me.FpSpread1.EditModeReplace = True
   
4.         'Me.FpSpread1.EditMode = True
   
5.     End Sub
   
6. 
   
7.     Private Sub FpSpread1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.Enter
   
8.         MsgBox("OK")
   
9.         Me.TextBox1.Focus()
   
10.     End Sub
    
11.     Private Sub FpSpread1_LeaveCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.LeaveCellEventArgs) Handles FpSpread1.LeaveCell
    
12.         Me.FpSpread1.EditModePermanent = True
    
13.         Me.FpSpread1.EditModeReplace = True
    
14.         Me.FpSpread1.EditMode = True
    
15.     End Sub
    
16. 
    
17.     Private Sub FpSpread1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FpSpread1.MouseDown
    
18.         Me.FpSpread1.EditModePermanent = False
    
19.         Me.FpSpread1.EditModeReplace = False
    
20.     End Sub

复制代码

回复 6楼beitesting的帖子

好的，感谢你提供问题解决方法。

为了表示感谢，给您分发 300 金币。可以用于兑换论坛奖品。
金币规则：点击进入
礼品列表：点击进入