Text 466, 83 rader
Skriven 2005-04-06 01:08:00 av "rick Rothstein" <ricknos (1:278/230)
Ärende: Re: VB5  Format numbers in Text Boxes
=============================================


What if the user clicks in the middle of the entry to edit the number
there?

Rick


"Randy Birch" <rgb_removethis@mvps.org> wrote in message
news:fMKdnQmPBrq6-c7fRVn-oA@rogers.com...
> Does not at simple:
>
> lengthm.SelStart= len(lengthm.Text)
>
> immediately after the Format code not suffice?
>
> --
>
> Randy Birch
> MS MVP Visual Basic
> http://vbnet.mvps.org/
> ----------------------------------------------------------------------
------
> Read. Decide. Sign the petition to Microsoft.
> http://classicvb.org/petition/
> ----------------------------------------------------------------------
------
>
>
>
> "Anon y mous" <anon@onanonanon.com> wrote in message
> news:56mdnc5J5t3R0s7fRVn-vg@comcast.com...
> :I have a series of text boxes in which users can input numerical
data-  I
> am
> : using key up to filter out non-numeric entries.
> :
> : My only problem is that there are numerous interrelated
calculations-
> using
> : all 5-6 boxes  and if I use number format - the cursor jumps around
and
> does
> : not stay at the end of the text entry for each keystroke
> : example
> : Lengthyds = Format(Lengthyds, "0.0000")
> :
> : example:
> :
> : Private Sub lengthm_Change()
> : If IsNumeric(lengthm.Text) Then
> :
> :   Lengthft = Lengthyds * 3
> :    'Lengthft = Format(Lengthft, "0.00")
> :    Areasqm = widthcm / 100 * lengthm
> :    'Areasqm = Format(Areasqm, "0.00")
> :    Lengthyds = lengthm / 0.9144
> :    'Lengthyds = Format(Lengthyds, "0.00")
> :    Else
> :      MsgBox "You must enter a valid number"
> :    End If
> : End Sub
> :
> : I had to take out all the format commands because it became very
> irritating
> : to try to enter data in the text boxes.
> :
> : Is there a better way to format calculations to 2, 3 or 4 decimal
places
> as
> : desired in the various other boxes that are recalculated with each
key
> : entry?
> :
> : Thanks
> :
> :
>



--- UseNet To RIME Gateway @ 4/6/05 1:03:23 AM ---
 * Origin: MoonDog BBS, Brooklyn,NY, 718 692-2498, 1:278/230 (1:278/230)