Disallowing a null value in text box

[Bountyhuntr]

Hi,


I'm currently toying with a chat client, like msn, but the user can currently spam the send button with nothing typed into box and get the result "example said: " continously, I'm trying to get it to blank out the send button / return key command when the field is empty, like MSN, so they can no longer return blank lines.

I've tryed several codes like:

If txtSend = "" Then
Do whatever

I've tryed calling msgbox/diabling the send button if it happens but it will do it even if i type characters into the box so i'm lost, also tryed various over codes.

It's a single line command box displaying the text typed in there into the main chat window(multiline):

txtMain = txtMain & "User says: " & txtSend & vbCrLf

for example, most likely the worst way to do it.

Any help be great, cheers.

[RhinoBull]

After validate empty string you can set focus back to textbox:

If Trim(txtSend.Text) = "" Then
    txtSend.SetFocus
    Exit Sub
End If

You can also use Validate event handler of your textbox but that may not necessary be what you want - gice it the try anyway.
In the Validate event instead of Exit sub you'll need to set Cancel flag to True:

Private Sub txtSend_Validate(Cancel As Boolean)
    If Trim(txtSend.Text) = "" Then
        Cancel = True
    End If
End Sub

[Bountyhuntr]

Cheers for reply

Private Sub txtSend_Validate(Cancel As Boolean)
    If Trim(txtSend.Text) = "" Then
        Cancel = True
    End If
End Sub

That disallowed me to click send button with nothing typed in box which is good, only problem is it only does that if I click the box to type it in, i can click anywhere else and press Send or if i say somthing i can click send button with nothing in box(it deletes text after u sent from box)

Any ideas?

ps. it's not been long since i started learning VB, maybe i should wait a little longer to do that, but worth a try.

[Siddharth Rout]

Put this in the click event of the Send Button

If Len(Trim(txtSend.Text)) = 0 Then
    MsgBox "No Text To Send"
    txtSend.SetFocus
End If

[Bountyhuntr]

Put this in the click event of the Send Button

If Len(Trim(txtSend.Text)) = 0 Then
    MsgBox "No Text To Send"
    txtSend.SetFocus
End If

It displays the message box while also displaying the blank space which i typed, it also does it no matter what i enter in like on previous codes.


edit:

rhino it works if i remove the code:

Me.txtSend.Text = ""

but looks bad when text is still in box after sent.

[Bountyhuntr]

Put this in the click event of the Send Button

If Len(Trim(txtSend.Text)) = 0 Then
    MsgBox "No Text To Send"
    txtSend.SetFocus
End If

That works combined with rhino's, i removed the text box as it's not needed.

Just only problem is that it still sends the empty space there the first time i click send, after that it works.

p.s cheers for reply on other thread, got single line box now, looks better :P

[yosef_mreh]

use vbnullstring

[RhinoBull]

Just only problem is that it still sends the empty space ... :P

That's because it doesn't exit current procedure - see first code snippet in my previous reply (post #2).

[Bountyhuntr]

That's because it doesn't exit current procedure - see first code snippet in my previous reply (post #2).

I just changed the "TabIndex" to 0 for the textbox so the focus is at textbox when app loads, sorted.

just got to sort out the hotkey for it as I press "return" it still spams nothing, even tryed setting the "default" to true instead of using the keypress function. ;/

cheers.