テキストボックスのエンターキー無効

質問

VB6.0について質問いたします。
テキストボックスの入力の際に改行を強制的にできないように制御したいのですが次のプログラムでは上手くいきませんでした。

Private Sub Text_KeyDown(KeyCode As Integer, Shift As Integer)
If vbcode = vbKeyReturn Then
Exit Sub
End If
End Sub

エンターキーを押したとき何も実行しないようにするにはどうしたらいいですか？
テキストボックスはスクロールバーを設置してMultiLine プロパティをtrueに設定しています。

回答No.1

Ulrika · ベストアンサー

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then
KeyAscii = 0
End If

End Sub

にすれば良いのでは。
ヘルプにはKeyAscii に０を設定することでキー操作が取り消されるとなってます。

回答No.2

yamadachan

go_osarukuさんの書かれたプログラムですと
KeyDownイベントでenterが押下されたらKeyDownイベント処理を抜けるというプログラムなのでenterが無効になっていませんのでNo1さんの言うようにkeyAsciiを0にしてキーが無効化すれば改行されなくなりますよ^^