GetPreferredHeight获取单元格高度

回复 5楼xiechenming的帖子

你好，我测试过的，是可以的，感觉你在代码哪里有重新设置了行高，
或者是哪个属性引起的，可否上传一下你的再现Demo。

补充了代码，效果就是图2的效果，第一行高度被拉开了，但是明显不对

回复 3楼xiechenming的帖子

你在赋值之后加上如下代码
FpSpread1.ActiveSheet.Rows(0).Height = FpSpread1.ActiveSheet.GetPreferredRowHeight(0)
如果你的Spread只是只读的，不会对其收入力的话，那个EditModeOff时间就不需要写了

尝试过了，还是不行。
单元格内的文本是初始化生成的，不需要编辑，委托用不上啊

回复 1楼xiechenming的帖子

你好：
思想就是将每列的WordWrap设置我True，然后用Spread的EditModeOff事件去获取最优行高
测试代码如下，请参考：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　' テキスト型セルを設定します
　　Dim tcell As New FarPoint.Win.Spread.CellType.TextCellType()
　　tcell.WordWrap = True
　　FpSpread1.ActiveSheet.Columns(1).CellType = tcell
End Sub

Private Sub FpSpread1_EditModeOff(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOff
　　' 最も高さのあるテキストの高さに設定します
　　FpSpread1.ActiveSheet.Rows(0).Height = FpSpread1.ActiveSheet.GetPreferredRowHeight(0)
End Sub