VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -