Breadcrumbs

[hortencio]

Hi, i would like to know if there is a cod to convert latters from lawcase to upcase while typing any information in the application!!!

[GoodGuy17]

Under the TextChanged event of the textbox, try:

Code: Select all

TextBox1.Text.ToUpper()

[MrAksel]

That won't work ^^ Try this instead

Code: Select all

Dim Updt As Boolean = True
Private Sub TextBox1_TextChanged() Handles TextBox1.TextChanged
   If Updt Then
      Updt = False
      TextBox1.Text = TextBox1.Text.ToUpper()
      Updt = True
   End If
End Sub

[GoodGuy17]

That won't work ^^ Try this instead

Code: Select all

Dim Updt As Boolean = True
Private Sub TextBox1_TextChanged() Handles TextBox1.TextChanged
   If Updt Then
      Updt = False
      TextBox1.Text = TextBox1.Text.ToUpper()
      Updt = True
   End If
End Sub

In that case, just use:

Code: Select all

TextBox1.Text = TextBox1.Text.ToUpper()

I don't see a need for the 'Updt" variable.

[Codex]

The Boolean Updt will always be True, so, like Reboh said, there is no need for the If statement.

[MrAksel]

That won't work ^^ Try this instead

Code: Select all

Dim Updt As Boolean = True
Private Sub TextBox1_TextChanged() Handles TextBox1.TextChanged
   If Updt Then
      Updt = False
      TextBox1.Text = TextBox1.Text.ToUpper()
      Updt = True
   End If
End Sub

In that case, just use:

Code: Select all

TextBox1.Text = TextBox1.Text.ToUpper()

I don't see a need for the 'Updt" variable.

When you use

Code: Select all

TextBox1.Text = TextBox1.Text.ToUpper()

TextBox1_TextChanged will be called again, and again, and again in an unbreakable loop. The Updt variable will prevent this loop.

The Boolean Updt will always be True, so, like Reboh said, there is no need for the If statement.

It will not always be True. It is set to false to prevent the update caused by

Code: Select all

TextBox1.Text = TextBox1.Text.ToUpper()

And set to True again afterwards.

[hortencio]

TextBox1.Text = TextBox1.Text.ToUpper()
this code worked but when i´m writting the cursor goes back of the word, i mean the words come from right to the left.

[MrAksel]

Code: Select all

Dim Updt As Boolean = True
Private Sub TextBox1_TextChanged() Handles TextBox1.TextChanged
   If Updt Then
      Dim Index As Integer = TextBox1.SelectionStart
      Updt = False
      TextBox1.Text = TextBox1.Text.ToUpper()
      Updt = True
      TextBox1.SelectionStart = Index
   End If
End Sub