fgControls-Library

[kavka]

Hello!

These controls are just what I need, but don't know how to write the code. Here is the problem:

In Textbox1 max length is 2. When that condition is true textbox2 must be focused. A short code please.

THX Kavka

[specci48]

Hello Kavka,

try this:

Sub Globals
End Sub

Sub App_Start
    fgTextBox.New1("TextBox1",0)	
    fgTextBox.MaxLength = 2
    TextBox1.Focus
    Form1.Show
End Sub

Sub TextBox1_KeyPress (key)
    ' backspace pressed ?
    If Asc(key) = 8 Then
	Return
    End If
    If StrLength(TextBox1.Text & key) = 2 Then
	TextBox2.Focus
    End If
End Sub

specci48

[kavka]

specci48, tried that, but does not work. It says:

"Object must first be created using New method."

[specci48]

Ok, seems that you don't know how to handle with external libraries in basic4ppc yet.
You can take he beginning of this thread GPS application - Part I as an example for that.

As an addition, I provided my full example with this post.


Hope that helps you to little...

specci48

[kavka]

Your code works. I did all the same (library and all). I don't know what the problem is.

THX, Kavka

[Bobbes]

Hi Kavka,
here is a little programm. I hope it is usefull for you.

Bobbes

[kavka]

Bobbes! Thanx for the code. My next question is: Is it possible to define maxlenght for each textbox separately. (Textbox1 maxlenght is 2, Textbox2 maxlenght is 5).

Thx, Kavka

[specci48]

Add a second fgTextBox object (e.g. fgTextBox2) to the project and this additionally

    fgTextBox2.New1("TextBox2",0)	
    fgTextBox2.MaxLength = 5

e.g. to the App_Start sub.


specci48

[kavka]

Thx, Kavka

[Bobbes]

Hi Kavka,
the frist prog was very buggy, here is the Update

Best wishes
Bobbes