投稿日 | : 2005/08/06(Sat) 11:16 |
投稿者 | : しも |
Eメール | : |
URL | : |
タイトル | : フレキシブルグリッドで改行キー操作 |
MSFlexGridでEnterで改行させていますが、Shift+Enterで上に改行させたいのですが
出来ません。ちなみに改行は現在以下のようにしています。
With MSFlexGrid1
Select Case KeyCode
Case vbKeyReturn
If .Row < .Rows - 1 Then .Row = .Row + 1
If .Row >= 10 Then
.TopRow = .TopRow + 1
End If
.SetFocus
End Select
End With
vbKeyShiftとvbKeyReturn をandや+でつないだりいろいろ試しているのですが、なかなか
上手くいきません。
解決法があればどうぞ宜しくお願いします。