Spread激活单元格的表示问题

版本：Spread8.0J Windows Form 条件：      1. EditModePermanent属性为True      2. OperationMode属性为Normal，      3. 一页表示的行数5行，1～5行的单元格的Locked属性为True，6行的单元格的Locked属性为False 问题：      当激活单元格为6行B列时（TopRow为2行），通过滚动条使第一行在当前页能够表示（TopRow为1行），然后用鼠标单击第一行的单元格后，此时，当前Spread的TopRow变更为了2行。如何使当单击第一行的单元格后，TopRow为1行？ 　 A B C D 1 　 　 　 　 2 　 　 　 　 3 　 　 　 　 4 　 　 　 　 5 　 　 　 　 6 　 　|

您好，您的描述我没太清楚您的目的，
如果您是希望指定行到第一行显示，可以使用
fpSpread1.ShowRow(0, 20, VerticalPosition.Top);
这样第21行会显示到第一行

dexteryao 发表于 2016-7-7 10:47
您好，您的描述我没太清楚您的目的，
如果您是希望指定行到第一行显示，可以使用
fpSpread1.ShowRow(0,  ...

前提条件：
  一页能够正好显示5行数据，并且1～5行所有的单元格都是Locked属性为True。
  第6行的所有单元格的Locked属性为False。当前激活的单元格为第6行的单元格。

我想实现的效果：
  当我单击第一行的时候，第一行能够表示。但是现在的效果是第一行没有表示。

dexteryao 发表于 2016-7-7 10:47
您好，您的描述我没太清楚您的目的，
如果您是希望指定行到第一行显示，可以使用
fpSpread1.ShowRow(0,  ...

1. 示例代码：
   
2. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
   
3. Partial Class Form1
   
4.     Inherits System.Windows.Forms.Form
   
5. 
   
6.     'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
   
7.     <System.Diagnostics.DebuggerNonUserCode()> _
   
8.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
   
9.         Try
   
10.             If disposing AndAlso components IsNot Nothing Then
    
11.                 components.Dispose()
    
12.             End If
    
13.         Finally
    
14.             MyBase.Dispose(disposing)
    
15.         End Try
    
16.     End Sub
    
17. 
    
18.     'Windows フォーム デザイナーで必要です。
    
19.     Private components As System.ComponentModel.IContainer
    
20. 
    
21.     'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
    
22.     'Windows フォーム デザイナーを使用して変更できます。  
    
23.     'コード エディターを使って変更しないでください。
    
24.     <System.Diagnostics.DebuggerStepThrough()> _
    
25.     Private Sub InitializeComponent()
    
26.         Me.FpSpread1 = New FarPoint.Win.Spread.FpSpread()
    
27.         Me.FpSpread1_Sheet1 = New FarPoint.Win.Spread.SheetView()
    
28.         CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).BeginInit()
    
29.         CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
    
30.         Me.SuspendLayout()
    
31.         '
    
32.         'FpSpread1
    
33.         '
    
34.         Me.FpSpread1.AccessibleDescription = ""
    
35.         Me.FpSpread1.Location = New System.Drawing.Point(33, 31)
    
36.         Me.FpSpread1.Name = "FpSpread1"
    
37.         Me.FpSpread1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.FpSpread1_Sheet1})
    
38.         Me.FpSpread1.Size = New System.Drawing.Size(330, 141)
    
39.         Me.FpSpread1.TabIndex = 0
    
40.         '
    
41.         'FpSpread1_Sheet1
    
42.         '
    
43.         Me.FpSpread1_Sheet1.Reset()
    
44.         Me.FpSpread1_Sheet1.SheetName = "Sheet1"
    
45.         '
    
46.         'Form1
    
47.         '
    
48.         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
    
49.         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    
50.         Me.ClientSize = New System.Drawing.Size(468, 303)
    
51.         Me.Controls.Add(Me.FpSpread1)
    
52.         Me.Name = "Form1"
    
53.         Me.Text = "Form1"
    
54.         CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).EndInit()
    
55.         CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
    
56.         Me.ResumeLayout(False)
    
57. 
    
58.     End Sub
    
59. 
    
60.     Friend WithEvents FpSpread1 As FarPoint.Win.Spread.FpSpread
    
61.     Friend WithEvents FpSpread1_Sheet1 As FarPoint.Win.Spread.SheetView
    
62. End Class
    
63. 
    
64. 
    
65. 
    
66. Public Class Form1
    
67.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
68.         Me.FpSpread1.Reset()
    
69.         Me.FpSpread1.ActiveSheet.OperationMode = FarPoint.Win.Spread.OperationMode.Normal
    
70.         Me.FpSpread1.EditModePermanent = True
    
71.         Me.FpSpread1.EditModeReplace = True
    
72.         Me.FpSpread1.Size = New Size(379, 141)
    
73.         Me.FpSpread1.ActiveSheet.Cells(0, 0, 4, Me.FpSpread1.ActiveSheet.ColumnCount - 1).Locked = True
    
74.         Me.FpSpread1.ActiveSheet.SetActiveCell(5, 0)
    
75.     End Sub
    
76. End Class

复制代码

再现步骤：
1.通过滚动滚动条，是第一行能够表示
2.单击第一行的任意一个单元格

您的问题我重现了，你设置了Me.FpSpread1.EditModePermanent = True 又想可以点击选择locked 的单元格，这个是做不到的。

如果您是希望locked 的单元格可以正常选择，并且当点上一个没有loced 的单元格自动进入编辑状态。您可以在cellClick事件中判断这个单元室否是locked 是的话什么都不做，不是得话设置 Me.FpSpread1.EditMode = True 进入编辑状态

dexteryao 发表于 2016-7-7 12:12
您的问题我重现了，你设置了Me.FpSpread1.EditModePermanent = True 又想可以点击选择locked 的单元格，这 ...

如果当前激活的单元格是7行的单元格，当我单击第一行的时候，第一行就能够正常表示。
这个是怎么做到的？

因为第六行刚好能被看到，Spread自动将他显示出来，而第七行始终看不到，所以就不显示，你可以把高度再设置小一点，第六行也就不自动显示了。
Me.FpSpread1.Size = New Size(379, 130)

dexteryao 发表于 2016-7-7 16:51
因为第六行刚好能被看到，Spread自动将他显示出来，而第七行始终看不到，所以就不显示，你可以把高度再设置 ...

如果改动SPread的大小就会导致，在最后的行后有空白的区域。
我利用下面的方案解决了该问题。

1.     Private isClickLockCell As Boolean = False
   
2.     Private intTopRow As Integer = 0
   
3. 
   
4.     Private Sub FpSpread1_CellClick(sender As Object, e As CellClickEventArgs) Handles FpSpread1.CellClick
   
5. 
   
6.         If Me.FpSpread1.ActiveSheet.Cells(e.Row, e.Column).Locked = True AndAlso
   
7.             Me.FpSpread1.ActiveSheet.ActiveRowIndex = Me.FpSpread1.GetViewportBottomRow(0) Then
   
8.             isClickLockCell = True
   
9.             intTopRow = Me.FpSpread1.GetViewportTopRow(0)
   
10. 
    
11.         End If
    
12.     End Sub
    
13. 
    
14.     Private Sub FpSpread1_TopChange(sender As Object, e As TopChangeEventArgs) Handles FpSpread1.TopChange
    
15. 
    
16.         If isClickLockCell = True Then
    
17.             isClickLockCell = False
    
18.             Me.FpSpread1.ShowRow(0, intTopRow, VerticalPosition.Top)
    
19.         End If
    
20. 
    
21.     End Sub

复制代码

这个解决方案不错