[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2005/08/11(Thu) 23:21
投稿者名：しも
Ｅメール：
ＵＲＬ　：
タイトル：フレキシブルグリッドで上手く改行したい
こんにちは。
今MSflexgridとテキストボックスの２つのオブジェクトがあります。
ここのサンプルを真似てテキストボックスでセルを編集できるようにしているのですが、
テキストボックスで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

投稿時間：2005/08/12(Fri) 00:27
投稿者名：のびた
Ｅメール：
ＵＲＬ　：
タイトル：Re: フレキシブルグリッドで上手く改行したい
KeyCodeに0を代入するとか
または、TextBox1のMultiLineプロパティをFalseにするとか

投稿時間：2005/08/12(Fri) 10:30
投稿者名：しも
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: フレキシブルグリッドで上手く改行したい
ご回答有難う御座います。
> KeyCodeに0を代入するとか
> または、TextBox1のMultiLineプロパティをFalseにするとか

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
KeyCode=0
End With

MultiLineはtrueで使用したいので上のようにKeyCodeを0にしたのですが、上手くいきません。
あと色々な場所にKeyCode0を代入したのですが上手くいきません。どのようにしたら良いでしょうか

投稿時間：2005/08/12(Fri) 12:20
投稿者名：たけ
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: フレキシブルグリッドで上手く改行したい
>MultiLineはtrueで使用したいので

テキストボックス内の改行のためのENTERキー押下と
セル移動のためのENTERキー押下はどうやって見分けるの？

投稿時間：2005/08/14(Sun) 23:24
投稿者名：しも
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: フレキシブルグリッドで上手く改行したい
少々複雑になりそうなので、もう一度仕様を見直します。
他に方法があるかも知れませんし。
ご回答有難う御座いました。