如何区别英文字符和中文字符

[singer314]

本人想做一文本框，要求当文本框里面输入的文本超过文本框的宽度时，文本框的高度自动增加，就变成多行的了，当输入是英文时比较好办，可以定义一个文本框宽度和字符数目的关系，当字符输入超过某一数目时增加文本框高度，但如果是中英文混的就难办了，因为一个中文字和一个英文子都是一个字符，但他们的宽度又是不一样的。如何区别英文字符和中文字符呢？

[咸清]

英文的字符值都比较小，你可以通过ASC码表查到英文的字符的范围

[帝企鹅已被占用]

中文是2个么

[SYSSZ]

用 Like 运算符作字符比较.

[cBirdNO1NO1]

推荐用ASC识别

[贝隆]

这个不需要吧？
把文本框设置成多行的，它会自动换行的，换行时每行的最后一个字符都是vbcrf，通过它可以得到一共有多少行，再根据行数来设置文本框的高度。

[cbm6666]

参考 6F

http://topic.csdn.net/u/20091214/11/13659f6f-37db-4f11-8c3f-4831f752f7f1.html?99913

[luofenghen]

都可以

[singer314]

你这个方法可能只有在输入完毕后，再来计算行数，再来调整文本框高度，可是我要一个在输入的时候动态调整高度的方法啊[Quote=引用 5 楼 veron_04 的回复:]

[Quote=引用 5 楼 veron_04 的回复:]
这个不需要吧？
把文本框设置成多行的，它会自动换行的，换行时每行的最后一个字符都是vbcrf，通过它可以得到一共有多少行，再根据行数来设置文本框的高度。
[/Quote]

[king06]

Private Function WhatChar(ByVal vStr As String) As Integer
    Dim gbascii As Byte
    Dim intChar As Integer
    If Asc(vStr) < 0 Then
        gbascii = AscB(StrConv(vStr, vbFromUnicode))

        If gbascii - 160 > 15 Then
            intChar = 0 ' 汉字
        Else
            intChar = 2 ' 全角符号
        End If
    Else
        intChar = 1 ' 半角英文或数字
    End If
    WhatChar = intChar
End Function

[vbman2003]

貌似也可以用另类方法解决输入中动态增加text控件的高度，下面是一个测试示例：

Option Explicit

Dim Num As Long
Dim TxtHeight As Long

Const TxtWidth = 3000

Private Sub Form_Load()
    Num = 1
    TxtHeight = Me.TextHeight(Text1.Text)
    Text1.Width = TxtWidth
    Text1.Height = 320
    'Text1.MultiLine = True 在属性窗口中设置
End Sub

Private Sub Text1_Change()
    If Me.TextWidth(Text1.Text) >= (Num * TxtWidth) Then
        Num = Num + 1
        Text1.Height = Text1.Height + TxtHeight
    End If
End Sub

不完善，一个想法而已....

[vbman2003]

Text1.MultiLine = True 时换行并没有vbcrlf之类，否则用textheight就简单多了....

[yachong]

textbox的高度自适应
http://topic.csdn.net/u/20080712/22/539becc9-855e-4e73-b441-290460a139fe.html

[yachong]

中英文混排，用LenB(strconv(text1.text,vbfromunicode))即可知道总字节数
但是英文跟汉字不同，汉字一个字就是一个词，TextBox的自动断行很简单，可以从任意一个汉字断行。
而英文单词不能从单词中间断开，楼主这种靠计算字符数调整高度的方法似乎行不通。

[赵4老师]

?lenb(strconv("a啊",vbFromUnicode))
3