VB6控制粘贴

Private IsCtrlV As Boolean

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyV And Shift = 2 Then

        IsCtrlV = True
    Else
        IsCtrlV = False
    End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If IsCtrlV = True Then
        KeyAscii = 0
    End If

End Sub

 

 Clipboard.Clear '清除剪切板中的内容