师父救命啊！在vsflexgrid表格中用键盘方向键移动焦点，刷新后如何不改变焦点的位置？

[haorong]

（我用键盘的方向键在VSFlexGrid1表格上移动焦点（光标），如果我目前将焦点的位置停留在表格的某个位置上，刷新后能否不改变焦点的位置，依然停留在刚刚的位置上。）
问题？用键盘方向键移动焦点，我是将代码添加在RowColChange()事件中是否正确？
RowColChange()事件 '在当前单元改变为一个不同的单元时该事件发生
dim A,B As Long
A=VSFlexGrid1.Row' 活动单元的坐标
B=VSFlexGrid1. Col' 活动单元的坐标
刷新后在读取坐标值
VSFlexGrid1.Row = A
VSFlexGrid1.Col = B
为什么刷新后在读取坐标值却不起作用？

还请大家在帮我看一下，感谢。

[嗷嗷叫的老马]

帮顶一下

[zzyong00]

dim A As Long,B As Long定义成全局变量试试

[嗷嗷叫的老马]

Option Explicit

Dim R As Long, C As Long

Private Sub Command1_Click()
VSFlexGrid1.Row = R
VSFlexGrid1.Col = C
VSFlexGrid1.SetFocus
End Sub

Private Sub VSFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
R = VSFlexGrid1.Row
C = VSFlexGrid1.Col
Debug.Print R & "/" & C
End Sub

Private Sub VSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
VSFlexGrid1_KeyUp 0, 0
End Sub

//

没有发现问题,是不是你代码没对?

[haorong]

myjian:你好！非常感谢．问题解决了
师傅真是没叫错．