Question

VB 限制text文本框中只可以输入全角文字

想要在text中输入全角文字，包括标点符号，没有英文数字、空格等等，需要怎么写

Answer 1

'自定义长度函数
Private Function getlong(s As String)
   Dim TempByte() As Byte
   TempByte = StrConv(s, vbFromUnicode)
   getlong = UBound(TempByte) + 1
End Function

Private Sub Text1_Change()
Dim s As String
s = Text1.Text

Dim mystr As String
mystr = ""

For i = 1 To Len(s)
    If getlong(Mid(s, i, 1)) = 1 Then
        MsgBox "非全角字符"
    Else
        mystr = mystr & Mid(s, i, 1)
    End If
    
    
Next

Text1.Text = mystr
End Sub