multiline

[adzzzz]

how do i stop a multiline edit box from entering a cf/vbcrlf watever wen i press enter?

[crptcblade]

Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = IIf(KeyAscii = vbCrLf,0,KeyAscii)
End Sub

[ZeroCool]

edit box?
do you mean Textbox?

[adzzzz]

that gives me a type mismatch m8

[crptcblade]

Originally posted by adzzzz
that gives me a type mismatch m8

Sorry, I keep forgetting that vbCrLf is the actual character(s), not the number . Try replacing vbCrLf with vbKeyReturn.

[macai]

Private Sub Text1_Change()
 Text1.Text = Replace(Text1.Text, vbNewLine, "")
End Sub

This
help?

[Megatron]

Try

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then KeyAscii = 0
End Sub