如何检查是否超过了文本字段的最大长度?
我的问题:
我限制了文本字段 8 符号并显示超过时的弹出暗示 />8/, 而且没有实现 /=8/. 使用功能
不允许用户超过 8 字符,所以我的功能 >8 从未执行过。
如果我拒绝这个功能
而不是我使用
限制输入,我的功能 >8 表演,但行为不同
/保留后者,不是第一个 8 输入和我丢失了声音警报/.
能够何时可以检查它会更清洁
超过不影响第一个 8 输入。
重现:
在 Visual Studio 在构造函数模式下,将文本字段和弹出尖端拖动到新表单。
使用以下内容:
代码
:
我限制了文本字段 8 符号并显示超过时的弹出暗示 />8/, 而且没有实现 /=8/. 使用功能
.Maxlength
不允许用户超过 8 字符,所以我的功能 >8 从未执行过。
如果我拒绝这个功能
.Maxlength
而不是我使用
.Substring
限制输入,我的功能 >8 表演,但行为不同
.Substring
/保留后者,不是第一个 8 输入和我丢失了声音警报/.
能够何时可以检查它会更清洁
.Maxlength
超过不影响第一个 8 输入。
重现:
在 Visual Studio 在构造函数模式下,将文本字段和弹出尖端拖动到新表单。
使用以下内容:
代码
:
Public Class Form1
Private Sub Textbox1_TextChanged/ByVal sender As System.Object, ByVal e As System.EventArgs/ Handles TextBox1.TextChanged
TextBox1.MaxLength = 8
If /Not IsNumeric/TextBox1.Text/ And TextBox1.Text.Length > 0/ Then
If ToolTip1.GetToolTip/TextBox1/ = "" Then
ToolTip1.ToolTipTitle = "Input must be numeric!"
ToolTip1.Active = True
ToolTip1.IsBalloon = True
ToolTip1.ToolTipIcon = ToolTipIcon.Warning
ToolTip1.Show/vbNewLine, TextBox1, 45, -40/
End If
ElseIf TextBox1.Text.Length > 8 Then
'TextBox1.Text = TextBox1.Text.Substring/0, 8/
ToolTip1.IsBalloon = True
ToolTip1.ToolTipTitle = "8 character maximum!"
ToolTip1.Active = True
ToolTip1.ToolTipIcon = ToolTipIcon.Warning
ToolTip1.Show/vbNewLine, TextBox1, 45, -40/
Else
ToolTip1.Active = False
ToolTip1.Hide/TextBox1/
End If
End Sub
End Class
没有找到相关结果
已邀请:
3 个回复
喜特乐
赞同来自:
钥匙
, 如果它无效:
EDIT
有次要功能 "bug" 在
, 由于它允许具有空格和多个空格的数字数字 "."
解决一切:
窦买办
赞同来自:
詹大官人
赞同来自: