270-55=245???见鬼

[bigbigfans]

代码如下：
Private Sub flex_click()
dim fv_flexrow as long,fv_flexcol as integer
fv_flexrow=flex.row
fv_flexcol=flex.col
With Flex
FlexEditBox.Left = .Left + .ColPos(fv_flexcol) + 10
FlexEditBox.Top = .Top + .RowPos(fv_flexrow) + 40
FlexEditBox.Width = .ColWidth(fv_flexcol) - 15
FlexEditBox.Height = .RowHeight(fv_flexrow) - 55
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
FlexEditBox.Text = fv_flextext
FlexEditBox.Visible = True
FlexEditBox.SetFocus
End With
End Sub
当点击flexgrid的时候，出现一个txtbox编辑单元格的内容。每次我第一次点击时候，txtbox高度比单元格高，我调试的时候，发现，当你第一次点击flexgrid， flex.RowHeight(fv_flexrow)=270,在执行 FlexEditBox.Height = .RowHeight(fv_flexrow) - 55前，FlexEditBox.Height=280，执行后竟为245，以后每次点击flex的时候，FlexEditBox.Height得到的值都为215！退出以后，重新进入问题又出现。

[handsomge]

或者在EnterCell里处理

[junwhj]

到小站下载一个也行。
http://junwhj.myrice.com/index.html

[bigbigfans]

谢谢楼上提供的地址，好东东

[antshome]

在rowcolchange里处理

[handsomge]

试试用CellLeft、CellTop、等代替ColPos等