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

VB 2019-07-10
  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
  11. EndSub

相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选...
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...