每个textbox都有KeyPress事件(event),每次用户输入一个字符时检测,如不满足则清空
我现在不在vs下,你可以找到这个面板,绑定相应的函数
比如只能显示数字
Private?Sub?NumBox_KeyPress(KeyAscii?As?Integer)
If?Not?IsNumeric(NumBox.Text)?Then
NumBox.Text?=?""
End?If
End?Sub
Private?Sub?EngBox_KeyPress(KeyAscii?As?Integer)
EngBox.Text?=?""
Private?Sub?ChineseBox_KeyPress(KeyAscii?As?Integer)
ChineseBox.Text=""
做了一些小修改,不明白请及时追问,满意敬请采纳,O(∩_∩)O谢谢
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
e.Handled = True
Else
e.Handled = False
End If
End Sub
这个不太完善,是假设原来文本长度已经有11就不允许继续输入,因为判断当下输入的是汉字还是英文很麻烦.
希望能对你有所帮助.
Imports Spire.Doc
Imports Spire.Doc.Documents
Imports System.Drawing
Namespace SetRowSpace
Class Program
? ? Shared? Sub Main(ByVal args() As String)
? ? ? ? '创建文档
? ? ? ? Document doc? =? New Document()
? ? ? ? '添加section
? ? ? ? Dim s As Section =? doc.AddSection()
? ? ? ? '添加段落
? ? ? ? Dim para As Paragraph =? s.AddParagraph()
? ? ? ? para.AppendText("这是测试文字,这是测试文字,这是测试文字,这是测试文字,这是测试文字," +
? ? ? ? ? ? "这是测试文字,这是测试文字,这是测试文字,这是测试文字,这是测试文字,这是测试文字,"+
? ? ? ? ? ? "这是测试文字,这是测试文字,这是测试文字,这是测试文字.")
? ? ? ? '设置段落中行距
? ? ? ? '创建段落样式
? ? ? ? Dim style As ParagraphStyle =? New ParagraphStyle(doc)
? ? ? ? style.Name = "paraStyle"
? ? ? ? style.CharacterFormat.FontName = "宋体"
? ? ? ? doc.Styles.Add(style)
? ? ? ? '应用段落样式
? ? ? ? para.ApplyStyle("paraStyle")
? ? ? ? '保存文档
? ? ? ? System.Diagnostics.Process.Start("SetLineSpacing.docx")
? ? End Sub
End Class
End Namespace
以上就是土嘎嘎小编为大家整理的vb.net限制中文的简单介绍vb.net限制中文的简单介绍相关咨询咨询主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!