投稿日 | : 2005/08/11(Thu) 23:21 |
投稿者 | : しも |
Eメール | : |
URL | : |
タイトル | : フレキシブルグリッドで上手く改行したい |
こんにちは。
今MSflexgridとテキストボックスの2つのオブジェクトがあります。
ここのサンプルを真似てテキストボックスでセルを編集できるようにしているのですが、
テキストボックスでEnterキーを押したときに下のセルに移りそのまま編集できるように
しようとしているのですが、次のコードを書くと、下のセルに移動した後に、文字の先頭で
改行されます。これを取り除くにはどうしたらよいでしょうか?宜しくお願いします。
Private Sub TextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
With MSFlexGrid1
Case vbKeyReturn
If .Row < .Rows - 1 Then .Row = .Row + 1
If .Row >= 10 Then
.TopRow = .TopRow + 1
End If
TextBox1.Text = .Text
End With