pls help vb6.0

priyanka · Joined: 04 Oct 2007 Posts: 2

hi all,
im using a phone format as 111-111-1111. But during run time, if the
user changes that as 1123-1133-222222 this i don't want. I want to keep

the format fixed as 111-111-1111. If user is changing that then the "-"

sign is getting appended one after the another.
my code is:

Private Sub txtPhone_Change()

If Len(txtPhone.Text) = 4 Then
txtPhone.SelStart = 5
ElseIf Len(txtPhone.Text) = 3 Then
txtPhone.Text = txtPhone.Text + "-"
txtPhone.SelStart = 5
ElseIf Len(txtPhone.Text) = 7 Then
txtPhone.Text = txtPhone.Text + "-"
txtPhone.SelStart = 9
End If

End Sub

please help to modify this code

Archived from group: microsoft>public>vb>enterprise

- CodeDoctor - · Joined: 04 Oct 2007 Posts: 1

That is one way of accomplishing your goal, however there are a few other
techniques that may work better.

In the KeyDown event of the textbox you are using for the phone number, you
can
first check for the length of text is not 12 or greater.

If the length is 12, then always format it to ###-###-#### regardless of
what is
in there.

Or.

You can use the Mask Edit control. Goto Project / References / Components
and ensure it is added to your project, then use it in place of your text box.

Hope this helps.

- CodeDoctor -

"priyanka" wrote:

> hi all,
> im using a phone format as 111-111-1111. But during run time, if the
> user changes that as 1123-1133-222222 this i don't want. I want to keep
>
> the format fixed as 111-111-1111. If user is changing that then the "-"
>
> sign is getting appended one after the another.
> my code is:
>
> Private Sub txtPhone_Change()
>
>
> If Len(txtPhone.Text) = 4 Then
> txtPhone.SelStart = 5
> ElseIf Len(txtPhone.Text) = 3 Then
> txtPhone.Text = txtPhone.Text + "-"
> txtPhone.SelStart = 5
> ElseIf Len(txtPhone.Text) = 7 Then
> txtPhone.Text = txtPhone.Text + "-"
> txtPhone.SelStart = 9
> End If
>
>
> End Sub
>
>
> please help to modify this code
>
>