by Pruthiv M Mehta (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 2nd August 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Write Only Digits On your Text boxes which are in control array but WITHOUT USING KEY ASCII OR KEY CODE.
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
No comments have been posted about Write Only Digits On your Text boxes which are in control array but WITHOUT USING KEY ASCII OR KEY . Why not be the first to post a comment about Write Only Digits On your Text boxes which are in control array but WITHOUT USING KEY ASCII OR KEY .