| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 按任何一个按键 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122261) |
| -- 作者：Liangcai -- 发布时间：2018/7/21 16:54:00 -- 按任何一个按键 Dim txt As String = e.Form.Controls("学生姓名").Text If txt.Length >= 2 Then If 按任何一个按键 Then e.Form.Controls("学生编号").Value = Nothing End If End If 请老师指点，谢谢！
|
| -- 作者：有点蓝 -- 发布时间：2018/7/21 17:01:00 -- 没有这种用法，你可以加一个提示框 Dim txt As String = e.Form.Controls("学生姓名").Text If txt.Length >= 2 Then msgbox("超出范围") e.Form.Controls("学生编号").Value = Nothing End If |
| -- 作者：Liangcai -- 发布时间：2018/7/21 17:20:00 -- 老师可以这样吗？ If e.KeyCode = Keys.Space AndAlso e.KeyCode = Keys.Enter AndAlso e.KeyCode = Keys.NumPad0 AndAlso e.KeyCode = Keys.NumPad1 AndAlso e.KeyCode = Keys.NumPad2 AndAlso e.KeyCode = Keys.NumPad3 AndAlso e.KeyCode = Keys.NumPad4 AndAlso e.KeyCode = Keys.NumPad5 AndAlso e.KeyCode = Keys.NumPad6 AndAlso e.KeyCode = Keys.NumPad7 AndAlso e.KeyCode = Keys.NumPad8 AndAlso e.KeyCode = Keys.NumPad9 Then
|
| -- 作者：有点蓝 -- 发布时间：2018/7/21 17:24:00 -- 自己试试就知道了 |
| -- 作者：Liangcai -- 发布时间：2018/7/21 23:04:00 -- 谢谢 [此贴子已经被作者于2018/7/25 0:09:57编辑过]
|
| -- 作者：Liangcai -- 发布时间：2018/7/24 21:54:00 -- 老师，这样是可以的，代码能简化吗？ If e.KeyCode=Keys.NumPad0 OrElse e.KeyCode=Keys.D0 OrElse e.KeyCode=Keys.NumPad1 OrElse e.KeyCode=Keys.D1 OrElse e.KeyCode=Keys.NumPad2 OrElse e.KeyCode=Keys.D2 OrElse e.KeyCode=Keys.NumPad3 OrElse e.KeyCode=Keys.D3 OrElse e.KeyCode=Keys.NumPad4 OrElse e.KeyCode=Keys.D4 OrElse e.KeyCode=Keys.NumPad5 OrElse e.KeyCode=Keys.D5 OrElse e.KeyCode=Keys.NumPad6 OrElse e.KeyCode=Keys.D6 OrElse e.KeyCode=Keys.NumPad7 OrElse e.KeyCode=Keys.D7 OrElse e.KeyCode=Keys.NumPad8 OrElse e.KeyCode=Keys.D8 OrElse e.KeyCode=Keys.NumPad9 OrElse e.KeyCode=Keys.D9 Then e.Form.Controls("民族").Text = e.Form.Controls("学生姓名").TextEnd If |
| -- 作者：有点蓝 -- 发布时间：2018/7/24 21:56:00 -- 可以试试select case用法 |
| -- 作者：Liangcai -- 发布时间：2018/7/24 22:04:00 -- 谢谢老师 |