锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net英文和数字 vbnet substring

IT技术英文

VB.NET如何限制textbox只能输入数字和大写字母？Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim s As String = TextBox1.Text
If Not ((Mid(s, Len(s), 1) = "0" And Mid(s, Len(s), 1) = "9") Or (Mid(s, Len(s), 1) = "A" And Mid(s, Len(s), 1) = "Z")) Then
s = Microsoft.VisualBasic.Left(s, Len(s) - 1)
TextBox1.Text = s
TextBox1.SelectionStart = Len(TextBox1.Text)
End If
End Sub
VB.NET怎么限制中英文输入长度Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If System.Text.Encoding.Default.GetByteCount(TextBox1.Text) = 11 And e.KeyCharChr(8) Then
e.Handled = True
Else
e.Handled = False
End If
End Sub
这个不太完善 ， 是假设原来文本长度已经有11就不允许继续输入，因为判断当下输入的是汉字还是英文很麻烦 。
e.KeyCharChr(8)这句是保证任何时候Backspace键都要有效 。
希望能对你有所帮助 。
vb.net 让相应的textbox中只能输入“中文字符、英文、数字”每个textbox都有KeyPress事件（event） ， 每次用户输入一个字符时检测，如不满足则清空
我现在不在vs下，你可以找到这个面板 ， 绑定相应vb.net英文和数字的函数
比如只能显示数字
Private Sub NumBox_KeyPress(KeyAscii As Integer)
If Not IsNumeric(NumBox.Text) Then
NumBox.Text = ""
End If
End Sub
只能显示英语（a-z 97-122； A-Z 65-90； 8（退格）和13（换行））
Private Sub EngBox_KeyPress(KeyAscii As Integer)
If Not (KeyAscii = 97 And KeyAscii=122) Or (KeyAscii = 90 And KeyAscii=65) Or = 8 Then
EngBox.Text = ""
End If
End Sub
只能显示汉字（汉字vb.net英文和数字的ASCII值要么小于0，要么是8（退格）和13（换行））
Private Sub ChineseBox_KeyPress(KeyAscii As Integer)
If Not KeyAscii0 Or KeyAscii = 8 Or KeyAscii = 13 Then
ChineseBox.Text=""
End If
End Sub
做vb.net英文和数字了一些小修改 ， 不明白请及时追问，满意敬请采纳，O(∩_∩)O谢谢
vb.net的textbox中可以正常输入英文数字切换到中文输入法一按键就退出程序PrivateSubText1_KeyPress(KeyAsciiAsInteger)If((KeyAscii=48AndKeyAscii=65AndKeyAscii=97AndKeyAscii=122))=FalseThenKeyAscii=0EndSub
vb.net随机产生英文字母的代码1.随机产生英文字母
Randomize() '功 能：初始化随机数发生器
Me.txt1.Text = Chr(Asc("a") + Int(Rnd() * 26))
'Rnd 函数返回小于 1 但大于或等于 0 的值 。
'0 = Rnd() * 2626 是含小数位的数
'Int(Rnd() * 26)转换为整型vb.net英文和数字，就是0~25的随机数
'Asc("a")得到a的ASCii数值，是整数97（A是65）
'a~z的ASCii为97~122  ， 即为a~z之间的字母为97加（0~25）
'Asc("a") + Int(Rnd() * 26)为97到122的随机数
'Chr（）又可以起到转换成字符的功能，Chr(97)表示a （a转换成数值又是Asc("a")=97）
'Chr(Asc("a") + Int(Rnd() * 26))就是a~z的随机数vb.net英文和数字了
Randomize() '再次初始化随机数发生器
Me.txt2.Text = Chr(Asc("A") + Int(Rnd() * 26)) '这里是A~Z的随机数
'也可以换这种写法
Randomize()
Me.txt1.Text = Chr(Int((26 * Rnd()) + 97)) '这里是a~z的随机数
'这是在你知道ASCII码的情况之下（a~z为97~122，A~Z为65~90）
'Rnd()为0~0.9999999.....的随机数
' 26 * Rnd()为0~25.9999...的随机数
'Int((26 * Rnd())为0~25的随机数
'Int((26 * Rnd()) + 97)为97~122的随机数
'Chr(Int((26 * Rnd()) + 97))就是a~z的随机数了
Randomize()
Me.txt2.Text = Chr(Int((26 * Rnd()) + 65)) '这里是A~Z的随机数
'至于同时在一处随机大写或小写，ASCII码的数字又不挨在一起（65-90,97-122） ， 比较麻烦 。想写的话，你可以自己想一下怎么办

推荐阅读


上一篇：国际用什么视频电话，国外怎么打视频电话

下一篇：有一个游戏恋爱的小说，有关恋爱游戏的小说