フレキシブルグリッド上で矢印キーを認識するには？ (ID:77705)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 満たさないといけない条件をよくよく考えてみたら、 キーイベントでやらなくても出来るような気がするのですが．．． こんなのでどうでしょう？ Private mlngLeaveRow As Long Private mlngEnterRow As Long Private mbolEdit As Boolean Private Sub MSFlexGrid1_EnterCell() If mbolEdit = False Then mlngEnterRow = MSFlexGrid1.Row End Sub Private Sub MSFlexGrid1_LeaveCell() If mbolEdit = False Then mlngLeaveRow = MSFlexGrid1.Row End Sub Private Sub MSFlexGrid1_RowColChange() Dim lngCol As Long If mbolEdit Then Exit Sub mbolEdit = True MSFlexGrid1.Redraw = False lngCol = MSFlexGrid1.Col MSFlexGrid1.Col = 1 MSFlexGrid1.Row = mlngLeaveRow MSFlexGrid1.CellBackColor = vbWindowBackground MSFlexGrid1.Row = mlngEnterRow MSFlexGrid1.CellBackColor = vbRed MSFlexGrid1.Col = lngCol MSFlexGrid1.Redraw = True mbolEdit = False End Sub