limiting the decimal point to 1

[Davek1]

I find that most code to limit the decimal point to one is written similar to this.

If KeyAscii = 46 And InStr(Text1, ".") > 0 Then
KeyAscii = 0
Exit Sub
or
Case 8, 48 To 57, 46 And InStr(TextBox, ".") = 0

The downside is that there must be a integer before the decimal point for it to function. Is there no way to limit the decimal point to one AND have the decimal point be the first digit entered? An example would be something less than 1 like .625

I have tried all that I know so far to no avail. Any ideas?

Thanks

[RhinoBull]

Here is another approach - it's not perfect (just a quick sample) so you may need to work with code written in the Text1_Change() evnt handler:

Option Explicit
 
Private Const GWL_STYLE = (-16)
Private Const ES_NUMBER = &H2000&
 
Private Declare Function GetWindowLong _
    Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
 
Private Declare Function SetWindowLong _
    Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long
 
Private Sub Form_Load()
'========================
Dim curStyle&, newStyle&
 
    'allow numeric entries only
    Text1.Text = ""
    curStyle = GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_NUMBER
    newStyle = SetWindowLong(Text1.hwnd, GWL_STYLE, curStyle)
    
End Sub
 
Private Sub Text1_Change()
    If IsNumeric(Text1.Text) Then
        Text1.Text = Format(Text1.Text, "0.0")
    End If
End Sub

[RhinoBull]

Also, take a look at Martin's NumberTextbox sample.

[jcis]

Using KeyPress it would be

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim lPos As Long
 
    lPos = InStr(Text1.Text, ".")
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
            If lPos And Text1.SelStart >= lPos And Len(Text1.Text) - lPos > 0 Then
                KeyAscii = 0
            End If
        Case Asc(".")
            If lPos Then KeyAscii = 0
        Case Else
            If KeyAscii <> vbKeyBack Then KeyAscii = 0
    End Select
End Sub

[Davek1]

JCIS,
For an input of .625, I still have to enter an integer first. like this > 0.625
I want to avoid the first 0 as it is not a natural thing to input.

I am working with an array and have had to add "index as integer" to the first line to get it to function. Same holds true for the other code variations.

Private Sub text1_KeyPress(index As Integer, KeyAscii As Integer)

Maybe this "index as integer" makes it not work as intended?

Thanks
Dave

[jcis]

I see you are using a control array, but im not sure if I understand what you want, this will allow 1 decimal separator and the number must start with (.)

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Dim lPos As Long
 
    lPos = InStr(Text1.Item(Index).Text, ".")
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
            If Len(Text1.Item(Index).Text) = 0 Then KeyAscii = 0
        Case Asc(".")
            If lPos Then KeyAscii = 0
        Case Else
            If KeyAscii <> vbKeyBack Then KeyAscii = 0
    End Select
End Sub

[LinXG]

Have you thought of using a masked edit box?