テキストボックス内でEnterによる改行するには？

解決

なお 2003-07-09 15:27:37 No: 78592

win2k vb6.0

テキストボックスで複数行入力したい為にMultiLine プロパティを
設定してCtrl+Enterで改行できるのですが、Enterのみで改行させたい為、
下記のコードでEnterを押したのですが入力した文字が下がりうまく
改行できません。ご教授よろしくお願いします。

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       Text1.Text = Text1.Text & vbCrLf
    End If
End Sub

batchman 2003-07-09 18:08:18 No: 78593

同じフォーム上にDefaultプロパティがTrueになったコマンドボタンが配置されてないですか？

DefaultプロパティをFalseにすれば、コードをなにも書かなくてもEnterで改行しますけども．．．．

なお 2003-07-09 23:26:41 No: 78594

batchmanさんありがとうございました。何も書かずにEnterを押せば
改行いたしました。助かりました。