求自动将输入法转为半角的代码

xdcow

用户不一定知道或者要搞忘记,将数字记录为全角.
有没有代码在控件获得焦点时自动将用户的输入法转为半角输入

Grant

TextBox.IMEMode 属性
全部显示
全部隐藏

  注释
与语言相关的信息

可以使用 IMEMode 属性在焦点 （焦点：一种接受通过鼠标或键盘操作或 SetFocus 方法进行的用户输入的能力。焦点可由用户或由应用程序设置。具有焦点的对象通常由突出显示的标题或标题栏指示。）切换到控件时设置控件的“日文汉字转换模式”。可读/写。
语法

表达式.IMEMode

表达式   一个代表 TextBox 对象的变量。

说明


IMEMode 属性使用下列设置。

设置 说明 Visual Basic
随意 不设置“日文汉字转换模式”（默认值）。 0
开启 打开“日文汉字转换模式”。 1
关闭 关闭“日文汉字转换模式”。 2
禁用 禁用“日文汉字转换模式”。 3
平假名 设置全角平假名。 4
全角片假名 设置全角片假名。 5
半角片假名 设置半角片假名。 6
全角字母/数字 设置全角字母/数字。 7
半角字母/数字 设置半角字母/数字。 8
HangulFull 设置全角 Hangul。 9
Hangul 设置半角 Hangul。 10

Grant

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

这样也行

xdcow

Grant 发表于 2012-5-5 15:57
Private Sub Text1_Change()
Text1 = StrConv(Text1, vbNarrow)
End Sub

StrConv相当的好用，谢谢。赞一个