Block the copy pasting in textbox

[Dolsy_bendal]

Hi there,

I am having a small issue regarding the text box of my program developed in the Visual Basic 6. My problem is that i don't want to allow anybody to enter in my text box to make copying and pasting. But i don't know how to do that because i am a fresher. So any one with the solution an come forward to help me with the same. Waiting for the reply.

A thanks may be appreciated.

[kelfro]

Hi,

If your are thinking about user trying to get into the SQL Statements into your in your program then it is better to move to the stored procedure. This is because when we give a value to the to a stored procedure it is known as the literal string so that it can not be executed. So make a change and see whether it is working or not.

Thanks in advance.

[Devasis]

Here is the code for the same so use it and try your luck. Say thanks if it works.

Private Sub txtPassw_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = vbCtrlMask And (Chr(KeyCode) = "v" Or Chr(KeyCode) = "V") Then
txtPassw.Locked = True
Else
txtPassw.Locked = False
End If
End Sub
Private Sub txtPassw_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
txtPassw.Locked = True
Else
txtPassw.Locked = False
End If
End Sub

[Glenny]

Try this also and see that it is working or not

Private Sub txtPassw_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = vbCtrlMask And (Chr(KeyCode) = "v" Or Chr(KeyCode) = "V") Then
        txtPassw.Locked = True
    Else
        txtPassw.Locked = False
    End If
End Sub


Private Sub txtPassw_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        txtPassw.Locked = True
    Else
        txtPassw.Locked = False
    End If
End Sub

Source:microsoft.com