[RESOLVED] Closing A Form

The code below checks to see if there are any spaces in the Username. The problem I have is when there is text in this field with a space in it, this procedure is run and I can not close the form.

Code:

---

Private Sub txtUserName_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUserName.LostFocus

     
  For i = 0 To txtUserName.TextLength - 1

    If txtUserName.Text.Substring(i, 1) = Chr(32) Then
      MsgBox("Please Do Not Leave Spaces In User Name!    " & vbCr & vbCr & "Please Enter Different Username.    ", MsgBoxStyle.Exclamation, "New User")
      Exit For
    End If

  Next           

  txtUserName.Text = ""
  txtUserName.Focus()

End Sub

---

What I want to happen is when the form is being closed, it ignores this procedure altogether. I could delete the text in the field first and then close the form, or I could not allow a space to be entered in this field.

I have tried "FormClosing" without success.

Any Ideas.

Don't use the LostFocus event for this. Use the Validate event instead.

Also instead of the loop you can do this:

Code:

---

If TxtUserName.Text.Contains(" ") Then
    Messagebox.Show("Please Do Not Leave Spaces In User Name!" & Environment.NewLine & "Please Enter Different Username.", "User Name")
    e.Cancel = True
End If

---

It'll probably help if you read this too: HowTo: Use validation events in VB .NET

This seems like it might be part of a login form. Could the code be moved elsewhere? I prefer to do cleanup in a button click event. Alternatively, you could move it into Form Closing (unless that would be too late), and cancel the closing as needed. In that case, you'd actually have to ask a question (Do you really want to close?) rather than just show a messagebox. That might be enough of a solution, anyways.

Many thanks for that Joggalo. That has tided my code up alot.

Computerman :wave: