找回密码
 立即注册

QQ登录

只需一步，快速开始

首页 › Spread.NET专区 › WinForms 求助中心 › 查看内容
发新帖

beitesting

中级会员

28

主题

92

帖子

794

积分

中级会员

积分
794

活字格认证

最新发帖

[已处理] Spread激活单元格的表示问题

beitesting
中级会员   /  发表于：2016-7-7 10:19  /   查看：4229  /  回复：8
版本：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
　　|　　


8 个回复

倒序浏览
dexteryao讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于：2016-7-7 10:47:19
沙发
您好，您的描述我没太清楚您的目的，
如果您是希望指定行到第一行显示，可以使用
fpSpread1.ShowRow(0, 20, VerticalPosition.Top);
这样第21行会显示到第一行
回复 使用道具 举报
beitesting
中级会员   /  发表于：2016-7-7 11:13:49
板凳
dexteryao 发表于 2016-7-7 10:47
您好，您的描述我没太清楚您的目的，
如果您是希望指定行到第一行显示，可以使用
fpSpread1.ShowRow(0,  ...

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

我想实现的效果：
  当我单击第一行的时候，第一行能够表示。但是现在的效果是第一行没有表示。
回复 使用道具 举报
beitesting
中级会员   /  发表于：2016-7-7 11:27:26
地板
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

  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

  18.     'Windows フォーム デザイナーで必要です。
  19.     Private components As System.ComponentModel.IContainer

  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)

  58.     End Sub

  60.     Friend WithEvents FpSpread1 As FarPoint.Win.Spread.FpSpread
  61.     Friend WithEvents FpSpread1_Sheet1 As FarPoint.Win.Spread.SheetView
  62. End Class



  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.单击第一行的任意一个单元格
回复 使用道具 举报
dexteryao讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于：2016-7-7 12:12:22
5#
您的问题我重现了，你设置了Me.FpSpread1.EditModePermanent = True 又想可以点击选择locked 的单元格，这个是做不到的。

如果您是希望locked 的单元格可以正常选择，并且当点上一个没有loced 的单元格自动进入编辑状态。您可以在cellClick事件中判断这个单元室否是locked 是的话什么都不做，不是得话设置 Me.FpSpread1.EditMode = True 进入编辑状态
回复 使用道具 举报
beitesting
中级会员   /  发表于：2016-7-7 15:06:17
6#
dexteryao 发表于 2016-7-7 12:12
您的问题我重现了，你设置了Me.FpSpread1.EditModePermanent = True 又想可以点击选择locked 的单元格，这 ...

如果当前激活的单元格是7行的单元格，当我单击第一行的时候，第一行就能够正常表示。
这个是怎么做到的？
回复 使用道具 举报
dexteryao讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于：2016-7-7 16:51:13
7#
因为第六行刚好能被看到，Spread自动将他显示出来，而第七行始终看不到，所以就不显示，你可以把高度再设置小一点，第六行也就不自动显示了。
Me.FpSpread1.Size = New Size(379, 130)
回复 使用道具 举报
beitesting
中级会员   /  发表于：2016-7-7 17:22:31
8#
dexteryao 发表于 2016-7-7 16:51
因为第六行刚好能被看到，Spread自动将他显示出来，而第七行始终看不到，所以就不显示，你可以把高度再设置 ...

如果改动SPread的大小就会导致，在最后的行后有空白的区域。
我利用下面的方案解决了该问题。
  1.     Private isClickLockCell As Boolean = False
  2.     Private intTopRow As Integer = 0

  4.     Private Sub FpSpread1_CellClick(sender As Object, e As CellClickEventArgs) Handles FpSpread1.CellClick

  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)

  11.         End If
  12.     End Sub

  14.     Private Sub FpSpread1_TopChange(sender As Object, e As TopChangeEventArgs) Handles FpSpread1.TopChange

  16.         If isClickLockCell = True Then
  17.             isClickLockCell = False
  18.             Me.FpSpread1.ShowRow(0, intTopRow, VerticalPosition.Top)
  19.         End If

  21.     End Sub
复制代码

评分

参与人数 1金币 +500 收起 理由
dexteryao + 500 很给力!

查看全部评分

回复 使用道具 举报
dexteryao讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于：2016-7-7 17:33:24
9#

这个解决方案不错
回复 使用道具 举报
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册
产品与服务
活字格低代码平台
Wyn 商业智能软件
SpreadJS纯前端表格控件
技术服务体系
技术博客
低代码技术
客户与案例
典型客户
成功案例
用户访谈
合作与生态
合作伙伴网络
葡萄城市场
葡萄城与国产化
活字格用友客开工具
品牌活动
葡萄城公开课
品牌战略发布会
赋能开发者高峰论坛
企业级低代码发展研讨会
企业级低代码应用大赛
表格技术研讨会
了解葡萄城
葡萄城简介
愿景使命
研发与创新
荣誉奖项
加入我们
联系方式
联系我们
400-657-6008

葡萄城社区二维码

关注“葡萄城社区”

赋能开发者

西安葡萄城软件有限公司
专业的软件开发技术和低代码平台提供商

陕ICP备2020018819号  |   陕公网安备：61019002000258  |   隐私政策  |   网站地图  

邮箱： info.xa@grapecity.com  |  © 2024 葡萄城软件，保留所有权利

Archiver| 手机版| 小黑屋|

返回顶部