• Home
 · 
• Miscellaneous
 · 
• To Restrict the user to Paste Character value to Numeric Text Box using Mouse right click. Good Sim

To Restrict the user to Paste Character value to Numeric Text Box using Mouse right click. Good Sim

To Restrict the user to Paste Character value to Numeric Text Box using Mouse right click. Good Simple Logic

Rate To Restrict the user to Paste Character value to Numeric Text Box using Mouse right click. Good Sim

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'-------------------------------------------------
Private Sub txtAmount_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call fnChkClip
End Sub
'-------------------------------------------------
Private Sub txtAmount_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call fnChkClip(True)
End Sub
'-------------------------------------------------
Public Sub fnChkClip(Optional blnStore As Boolean)
    'To restrict the Copy Paste if it is String
    On Error GoTo LOCALERRORHANDLER
    '------------------------------------------
    If blnStore Then
        If CLIPTEXT <> "" Then
            Clipboard.SetText CLIPTEXT
            CLIPTEXT = ""
        End If
    '------------------------------------------
    Else
        If IsNumeric(Clipboard.GetText) Then
            CLIPTEXT = ""
        Else
            '------------------------------------------
            If Trim(Clipboard.GetText) <> "" Then
                CLIPTEXT = Clipboard.GetText
                Clipboard.Clear
            End If
        End If
    End If
LOCALERRORHANDLER:
End Sub