十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
如果你是指字符型的变量,那么理论上是2G,实际上受最大可用物理内存的限制;
为尼泸西等地区用户提供了全套网页设计制作服务,及尼泸西网站建设行业解决方案。主营业务为网站制作、成都网站制作、尼泸西网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
如果是指text控件,那么它的大小限制是64KB
因为下标从零开始。
shuzu 元素分别是 shuzu(0)、shuzu(1)、shuzu(2)、shuzu(3)。
你自己数一数有几个。
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If System.Text.Encoding.Default.GetByteCount(TextBox1.Text) = 11 And e.KeyChar Chr(8) Then
e.Handled = True
Else
e.Handled = False
End If
End Sub
这个不太完善,是假设原来文本长度已经有11就不允许继续输入,因为判断当下输入的是汉字还是英文很麻烦。
e.KeyChar Chr(8)这句是保证任何时候Backspace键都要有效。
希望能对你有所帮助。
遍历每一个字符,看是全角还是半角的。半角的字符总数 +1,全角的字符总数 +2。
参考:
Public Function GetByteLength(ByVal value As String) As Long
Dim i As Long = 0
For Each c As Char In value
If (c.ToString().Length = System.Text.Encoding.Default.GetByteCount(value.ToString())) Then
i = i + 1
End If
i = i + 1
Next
Return i
End Function