| 投稿日 | ： 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を代入したのですが上手くいきません。どのようにしたら良いでしょうか