加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

[VB.NET]Text控制只可以填写数字

发布时间:2020-12-16 23:59:16 所属栏目:大数据 来源:网络整理
导读:Private Sub TxtPrice_KeyPress(省略) Handles TxtPrice.KeyPress '处理TEXT只可以输入数字和.键 Dim c As Char c=e.KeyChar If Not ( Char .IsDigit(c) Or Char .IsControl(c) Or Asc(e.KeyChar)=46) Then '46表示按下的是.键 e.Handled= True 'e.handled表
  1. PrivateSubTxtPrice_KeyPress(省略)HandlesTxtPrice.KeyPress
  2. '处理TEXT只可以输入数字和.键
  3. DimcAsChar
  4. c=e.KeyChar
  5. IfNot(Char.IsDigit(c)OrChar.IsControl(c)OrAsc(e.KeyChar)=46)Then
  6. '46表示按下的是.键
  7. e.Handled=True
  8. 'e.handled表示取消keypress事件
  9. EndIf
  10. EndSub

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读