谢谢cangwu_lee(橙子) ,我原来用msflexgrid就是用text实现的,现在领导要求用vsflexgrid,我把text去掉了。谢谢小磊;我用 Private Sub VSFlexGrid1_DblClick() With VSFlexGrid1 .EditCell .EditSelStart = 0 .EditSelLength = Len(.EditText) End With End Sub 现在可以实现,但是用startedit事件没有成功,不知道是什么地方写错了
楼主你用双击事件也是实现不了的,根本不触发事件,startedit也不行,虽然触发事件, 应该是用 Private Sub VSFlexGrid1_RowColChange() With VSFlexGrid1 .EditCell .EditSelStart = 0 .EditSelLength = Len(.EditText) End With End Sub 这个事件可以解决,就没有问题了。
.EditSelLength
.EditSelStart属性实现
.EditSelLength=len(vsflexgrid.TextMatrix(row,col)
楼主试试看
Private Sub VSFlexGrid1_DblClick()
With VSFlexGrid1
.EditCell
.EditSelStart = 0
.EditSelLength = Len(.EditText)
End With
End Sub
现在可以实现,但是用startedit事件没有成功,不知道是什么地方写错了
这样的话用双击进入可以实现就不用startedit了,成功就好呵呵
应该是用
Private Sub VSFlexGrid1_RowColChange()
With VSFlexGrid1
.EditCell
.EditSelStart = 0
.EditSelLength = Len(.EditText)
End With
End Sub
这个事件可以解决,就没有问题了。