以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  身份证号控件的keydown事件里面允许输入ctrl+V  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124414)
--  作者：susu312
--  发布时间：2018/9/5 20:41:00
--  身份证号控件的keydown事件里面允许输入ctrl+V

If e.KeyCode =Asc("X") OrElse e.KeyCode =Asc("x") OrElse e.KeyCode >= Asc("0") AndAlso e.keycode <= Asc("9") OrElse e.keycode >= 96 AndAlso e.keycode <= 106  Then
    If e.sender.text.length > 17 Then
        e.cancel = True
    End If

ElseIf e.KeyCode <> Keys.back Then
    e.cancel = True

End If

 

 

老师，如何让这个控件可以使用ctrl+V?
--  作者：有点甜
--  发布时间：2018/9/5 20:55:00
--  

If e.KeyCode =Asc("X") OrElse e.KeyCode =Asc("x") OrElse e.KeyCode >= Asc("0") AndAlso e.keycode <= Asc("9") OrElse e.keycode >= 96 AndAlso e.keycode <= 106  Then
    If e.sender.text.length > 17 Then
        e.cancel = True
    End If   
ElseIf e.KeyCode <> Keys.back Then
    e.cancel = True   
End If

If e.Control AndAlso e.KeyCode = keys.v Then
    e.cancel = False
End If
--  作者：susu312
--  发布时间：2018/9/6 9:42:00
--  
以下是引用有点甜在2018/9/5 20:55:00的发言：

If e.KeyCode =Asc("X") OrElse e.KeyCode =Asc("x") OrElse e.KeyCode >= Asc("0") AndAlso e.keycode <= Asc("9") OrElse e.keycode >= 96 AndAlso e.keycode <= 106  Then
    If e.sender.text.length > 17 Then
        e.cancel = True
    End If   
ElseIf e.KeyCode <> Keys.back Then
    e.cancel = True   
End If

If e.Control AndAlso e.KeyCode = keys.v Then
    e.cancel = False
End If

老师 ，上面的代码按上ctr1+V键还是不管用
--  作者：有点甜
--  发布时间：2018/9/6 9:45:00
--  
我测试，没问题。上传实例测试。