Question

vb 文本框 输入把全角转化为半角

在文本框输入内容时候，自动将输入符号由全角转化为半角。求最简单的代码！

Answer 1

Private Sub Text1_Change()
Text1 = StrConv(Text1, vbNarrow)
End Sub