Foxtable(狐表)用户栏目专家坐堂 → 身份证号控件的keydown事件里面允许输入ctrl+V


  共有2289人关注过本帖树形打印复制链接

主题:身份证号控件的keydown事件里面允许输入ctrl+V

美女呀,离线,留言给我吧!
susu312
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
身份证号控件的keydown事件里面允许输入ctrl+V  发帖心情 Post By:2018/9/5 20:41: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

 

 

老师,如何让这个控件可以使用ctrl+V?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
  发帖心情 Post By: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键还是不管用


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/6 9:45:00 [只看该作者]

我测试,没问题。上传实例测试。

 回到顶部