• Home
 · 
• Miscellaneous
 · 
• Write Only Digits On your Text boxes which are in control array but WITHOUT USING KEY ASCII OR KEY

Write Only Digits On your Text boxes which are in control array but WITHOUT USING KEY ASCII OR KEY

Write Only Digits On your Text boxes which are in control array but WITHOUT USING KEY ASCII OR KEY CODE.

Rate Write Only Digits On your Text boxes which are in control array but WITHOUT USING KEY ASCII OR KEY

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Dim a As String
    If Len(txtCollection(Index).Text) > 0 Then
        a = Mid(txtCollection(Index).Text, Len(txtCollection(Index).Text), 1) 'txtCollection(index) is a control array of text boxes
        If Not (a = "0" Or a = ".") Then
            If Val(a) = 0 Then
                txtCollection(Index).Text = Mid(g_currfrm.txtCollection(Index).Text, 1, Len(txtCollection(Index).Text) - 1)
                txtCollection(Index).SelStart = Len(txtCollection(Index).Text)
            End If
        End If
    End If
End Sub