TextBox????

[rlamrf]

Friend's,

How change the textbox for other textbox automaticly and
make this textbox stay marked how use select all of the
internet explorer??

Tnk's

[tumblingdown]

pardon?


td.

I certainly hope I understood this right.

'Copy string of text1 to text2 when typing to text1
'(do not add this to the text2 if you're using in text1!)
Private Sub Text1_Change ()
    Text2.Text = Text1.Text
End Sub

'Selecting everything
Private Sub Command1_Click ()
    Text1.SelStart = 1
    Text1.SelLength = Len(Text1.Text)
End Sub

This was just a guess...Internet Explorer? What it has to do with this?

Anyway, I hope this helps and was the thing,

[Asaf_99]

Originally posted by MerryVIP
I certainly hope I understood this right.

'Copy string of text1 to text2 when typing to text1
'(do not add this to the text2 if you're using in text1!)
Private Sub Text1_Change ()
    Text2.Text = Text1.Text
End Sub

'Selecting everything
Private Sub Command1_Click ()
    Text1.SelStart = 1
    Text1.SelLength = Len(Text1.Text)
End Sub

This was just a guess...Internet Explorer? What it has to do with this?

Anyway, I hope this helps and was the thing,

Still didn't understan!
I think the prblem is that the SelStart is 1 instead of 0.

[rlamrf]

Friend's,

I'm beginning in VB and my english is terrible!!!

I'm want change of textbox for other textbox automaticly,
select the lenght of the textbox next. simulation one TAB
when the lenght = MaxLength.


ex.:

If Len(N(0).Text) = N(0).MaxLength Then
N(1).SetFocus
End If

Please, help me to make better is code!!!

tnk's

Oh, you're meaning that if textbox text length is, for example, three, then it goes to the next textbox?

For following example, you need to add Text1, Text2 and Command1. Set MaxLength of textboxes to 5 or anything you want. Empty textboxes text (text?.text = ""). Then paste following code:

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    If Len(Text1.Text) >= Text1.MaxLength Then Text2.SetFocus
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 8 And Len(Text2.Text) < 1 Then
        Text1.SelStart = Len(Text1.Text)
        Text1.SetFocus
    End If
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
    If Len(Text2.Text) >= Text2.MaxLength Then Command1.SetFocus
End Sub

Private Sub Command1_Click ()
    End
End Sub

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 8 Then
        Text2.SelStart = Len(Text2.Text)
        Text2.SetFocus
    End If
End Sub

Where are you from? I'm a Finn. There is maybe someone who can speak same language you do.

Don't worry about your English skills yet, I was like you about two-three years ago

Try reading a book, an English one, it's very good way to learn the language.

Hope all this helps,

[rlamrf]

Tnk's Merry,

I'm from Brazil, and don't like study english, but I'm going try...


Merry again I'm not got make textbox stay selected..

Most something about this case!!!

Tnk's

Obs.: How make appear the icons in message??

[Jop]

Hi... MerryVIP, kedaman is finnish too...

and rlamrf, to make the smileys and others, look here:
http://209.207.250.147/index.php?action=showsmilies

[rlamrf]

Tnk's, and my case!!!