关于Spread WinForm 5 设置EditModePermanent

原来程序在VSNET2003下下使用Spread WInForm 1.0开发的，现在升级到VSNET2008，Spread也升级为5.0。在Grapecity上找到的产品介绍上说5.0是向下兼容的。但是我们现在发现一个很严重的问题，那就是相同操作下触发的事件和1.0的不一致。

特别是EditModePermanent设为True后，出现了很多奇怪的现象。
下面是测试程序。
窗体上有一个Spread和一个按钮。
Spread中B列是设置为Locked=True的。
操作如下
VSNET2003，Spread WinForm 1.0

1、焦点在A列单元格上，鼠标点击B列的单元格，  焦点还是在A列单元格上。
触发事件：
2011/08/06 11:54:37 766-[FpSpread1_GotFocus]-Start

2、焦点在A列单元格上，鼠标点击C列的单元格，  焦点落在C列单元格上。
触发事件：
2011/08/06 11:54:37 766-[FpSpread1_LeaveCell]-Start
2011/08/06 11:54:37 790-[FpSpread1_EnterCell]-Start

VSENT2008，Spread WinForm 5.0

1、焦点在A列单元格上，鼠标点击B列的单元格，  焦点落在按钮上。
触发事件：
2011/08/06 11:56:09 031-[FpSpread1_Leave]-Start
2011/08/06 11:56:09 031-[FpSpread1_Validating]-Start

2、焦点在A列单元格上，鼠标点击C列的单元格，  焦点落在C列单元格上。
触发事件：
2011/08/06 11:56:52 968-[FpSpread1_LeaveCell]-Start
2011/08/06 11:56:52 968-[FpSpread1_GotFocus]-Start
2011/08/06 11:56:52 968-[FpSpread1_Leave]-Start
2011/08/06 11:56:52 968-[FpSpread1_Validating]-Start
2011/08/06 11:56:52 984-[FpSpread1_Enter]-Start
2011/08/06 11:56:52 984-[FpSpread1_GotFocus]-Start
2011/08/06 11:56:52 984-[FpSpread1_EnterCell]-Start

测试代码如下

1. Public Class Form1
   
2. 
   
3.     Inherits System.Windows.Forms.Form
   
4. 
   
5. 
   
6. 
   
7. #Region " Windows フォーム デザイナで生成されたコード "
   
8. 
   
9. 
   
10. 
    
11.     Public Sub New()
    
12. 
    
13.         MyBase.New()
    
14. 
    
15. 
    
16. 
    
17.         ' この呼び出しは Windows フォーム デザイナで必要です。
    
18. 
    
19.         InitializeComponent()
    
20. 
    
21. 
    
22. 
    
23.         ' InitializeComponent() 呼び出しの後に初期化を追加します。
    
24. 
    
25. 
    
26. 
    
27.     End Sub
    
28. 
    
29. 
    
30. 
    
31.     ' Form は、コンポーネント一覧に後処理を実行するために dispose をオーバーライドします。
    
32. 
    
33.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    
34. 
    
35.         If disposing Then
    
36. 
    
37.             If Not (components Is Nothing) Then
    
38. 
    
39.                 components.Dispose()
    
40. 
    
41.             End If
    
42. 
    
43.         End If
    
44. 
    
45.         MyBase.Dispose(disposing)
    
46. 
    
47.     End Sub
    
48. 
    
49. 
    
50. 
    
51.     ' Windows フォーム デザイナで必要です。
    
52. 
    
53.     Private components As System.ComponentModel.IContainer
    
54. 
    
55. 
    
56. 
    
57.     ' メモ : 以下のプロシージャは、Windows フォームデザイナで必要です。
    
58. 
    
59.     'Windows フォーム デザイナを使って変更してください。
    
60. 
    
61.     ' コード エディタを使って変更しないでください。
    
62. 
    
63.     Friend WithEvents FpSpread1 As FarPoint.Win.Spread.FpSpread
    
64. 
    
65.     Friend WithEvents FpSpread1_Sheet1 As FarPoint.Win.Spread.SheetView
    
66. 
    
67.     Friend WithEvents Button1 As System.Windows.Forms.Button
    
68. 
    
69.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    
70. 
    
71.         Me.FpSpread1 = New FarPoint.Win.Spread.FpSpread
    
72. 
    
73.         Me.FpSpread1_Sheet1 = New FarPoint.Win.Spread.SheetView
    
74. 
    
75.         Me.Button1 = New System.Windows.Forms.Button
    
76. 
    
77.         CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).BeginInit()
    
78. 
    
79.         CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
    
80. 
    
81.         Me.SuspendLayout()
    
82. 
    
83.         '
    
84. 
    
85.         'FpSpread1
    
86. 
    
87.         '
    
88. 
    
89.         Me.FpSpread1.Location = New System.Drawing.Point(32, 8)
    
90. 
    
91.         Me.FpSpread1.Name = "FpSpread1"
    
92. 
    
93.         Me.FpSpread1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.FpSpread1_Sheet1})
    
94. 
    
95.         Me.FpSpread1.Size = New System.Drawing.Size(480, 104)
    
96. 
    
97.         Me.FpSpread1.TabIndex = 0
    
98. 
    
99.         '
    
100. 
     
101.         'FpSpread1_Sheet1
     
102. 
     
103.         '
     
104. 
     
105.         Me.FpSpread1_Sheet1.Reset()
     
106. 
     
107.         'Formulas and custom names must be loaded with R1C1 reference style
     
108. 
     
109.         Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
     
110. 
     
111.         Me.FpSpread1_Sheet1.Columns.Get(1).BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
     
112. 
     
113.         Me.FpSpread1_Sheet1.Columns.Get(1).Locked = True
     
114. 
     
115.         Me.FpSpread1_Sheet1.RowHeader.Columns.Default.Resizable = False
     
116. 
     
117.         Me.FpSpread1_Sheet1.SheetName = "Sheet1"
     
118. 
     
119.         Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
     
120. 
     
121.         '
     
122. 
     
123.         'Button1
     
124. 
     
125.         '
     
126. 
     
127.         Me.Button1.Location = New System.Drawing.Point(72, 128)
     
128. 
     
129.         Me.Button1.Name = "Button1"
     
130. 
     
131.         Me.Button1.TabIndex = 1
     
132. 
     
133.         Me.Button1.Text = "Button1"
     
134. 
     
135.         '
     
136. 
     
137.         'Form1
     
138. 
     
139.         '
     
140. 
     
141.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
     
142. 
     
143.         Me.ClientSize = New System.Drawing.Size(616, 262)
     
144. 
     
145.         Me.Controls.Add(Me.Button1)
     
146. 
     
147.         Me.Controls.Add(Me.FpSpread1)
     
148. 
     
149.         Me.Name = "Form1"
     
150. 
     
151.         Me.Text = "Form1"
     
152. 
     
153.         CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).EndInit()
     
154. 
     
155.         CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
     
156. 
     
157.         Me.ResumeLayout(False)
     
158. 
     
159. 
     
160. 
     
161.     End Sub
     
162. 
     
163. 
     
164. 
     
165. #End Region
     
166. 
     
167. 
     
168. 
     
169. 
     
170. 
     
171.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     
172. 
     
173.         _DebugWriteLog(System.Reflection.MethodBase.GetCurrentMethod.Name, "Start")
     
174. 
     
175.         Me.FpSpread1.EditModePermanent = True
     
176. 
     
177.     End Sub
     
178. 
     
179. 
     
180. 
     
181.     Private Sub FpSpread1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.Enter
     
182. 
     
183.         _DebugWriteLog(System.Reflection.MethodBase.GetCurrentMethod.Name, "Start")
     
184. 
     
185. 
     
186. 
     
187.     End Sub
     
188. 
     
189. 
     
190. 
     
191.     Private Sub FpSpread1_EnterCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EnterCellEventArgs) Handles FpSpread1.EnterCell
     
192. 
     
193.         _DebugWriteLog(System.Reflection.MethodBase.GetCurrentMethod.Name, "Start")
     
194. 
     
195. 
     
196. 
     
197.     End Sub
     
198. 
     
199. 
     
200. 
     
201.     Private Sub FpSpread1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.GotFocus
     
202. 
     
203.         _DebugWriteLog(System.Reflection.MethodBase.GetCurrentMethod.Name, "Start")
     
204. 
     
205.     End Sub
     
206. 
     
207. 
     
208. 
     
209.     Private Sub FpSpread1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.Leave
     
210. 
     
211.         _DebugWriteLog(System.Reflection.MethodBase.GetCurrentMethod.Name, "Start")
     
212. 
     
213. 
     
214. 
     
215.     End Sub
     
216. 
     
217. 
     
218. 
     
219.     Private Sub FpSpread1_LeaveCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.LeaveCellEventArgs) Handles FpSpread1.LeaveCell
     
220. 
     
221.         _DebugWriteLog(System.Reflection.MethodBase.GetCurrentMethod.Name, "Start")
     
222. 
     
223. 
     
224. 
     
225.     End Sub
     
226. 
     
227. 
     
228. 
     
229.     Private Sub FpSpread1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles FpSpread1.Validating
     
230. 
     
231.         _DebugWriteLog(System.Reflection.MethodBase.GetCurrentMethod.Name, "Start")
     
232. 
     
233. 
     
234. 
     
235.     End Sub
     
236. 
     
237. 
     
238. 
     
239.     Private Sub _DebugWriteLog(ByVal methodName As String, ByVal logContent As String)
     
240. 
     
241.         Dim logTime As String = Now.ToString("yyyy/MM/dd HHss fff")
     
242. 
     
243.         Dim logMessage As String = String.Format("{0}-[{1}]-{2}", logTime, methodName, logContent)
     
244. 
     
245.       System.Console.WriteLine(logMessage)
     
246. 
     
247.     End Sub
     
248. 
     
249. End Class

复制代码

这个事件触发机制让我们很受伤，而且也没有道理。
因为很多的验证是在Validating去做的。
点击Locked=True的列焦点直接就出Spread了。

请教我们该怎么去修改代码，让程序返回到原来的事件处理流程？
通过Spread的什么设置可以实现，或者是外部代码实现？

而且严重的是当点击C列焦点依旧在Spread内部时，Leave和Validating事件就会被触发。这个绝对没有道理呀！

你好，我在Spread 5 WinForm英文版中的试验结果如下：
1、英文版中没有GetForus事件
2、点击Locked = True的单元格不触发任何事件
3、焦点在A1上，点击C1时触发以下两个事件
2011/08/11 1702 113-[FpSpread1_LeaveCell]-Start
2011/08/11 1702 164-[FpSpread1_EnterCell]-Start

难道是日语版的问题？？
我去看看具体的版本，郁闷呀：（

我用的版本是

SPREAD for Windows Forms 5.0J
Version : 5.0.2007.2008（ServicePack 1）

请帮帮忙！！！看看是什么问题，如何解决！！
谢谢了！！

我在VS2008下做的开发