Private Sub Text1_GotFocus()
Text1.IMEMode = 1
End Sub
Text1.IMEMode = 1
End Sub
解决方案 »
- vb6.0中RichTextBox或TextBox的相关问题。
- 怎样根据窗口标题栏得到改窗口的所有子句柄?我下面的代码只能得到一个子句柄,大家看看该怎么改
- WebBrowser1控件编程,当打开某页面时会错误,弹出“脚本运行错误,并提示是否继续运行”WebBrowser如何屏蔽这样的错误弹出窗口?
- 请问这种1174051407156时间怎样转换?
- 怎样把一个用VB编写的EXE和它相关的DLL文件做成一个EXE文件?
- 如何得到自定义控件的HDC!
- 有难度的问题,大家讨论。
- 数据库加密的问题!请指教!急!
- 各位大侠,请问在VB里面有没有宏语句!
- 100分求设计思路,看看VB能不能实现??
- 怎样在VB中对ACCESS数据库中的记录进行筛选?
- 请CSDN检查我的得分,如果有一贴是倒分,请立即封杀我,否则立即给我把那条疯狗宰了,免得那畜生乱叫!
该属性返回或者设置的数值用来确定被选定的对象的 IME (Input Method Editor,输入方法编辑器)状态。注意 只有 Visual Basic 的远东地区版本中才会出现该属性。object.IMEMode [= value]IMEMode 属性的语法包括以下几个部分:部分 描述
object 一个对象表达式,其值为“应用于”列表中的一个对象。
value 一个整数,它指定了将要被对象使用的 IME 模式。
设置值value 的设置值包括:设置 描述
0 无(缺省设置)。该值表明“无 IME 控制”。当 IMEMode 属性被设置为 0 时,可以使用 IMEStatus 函数确定当前的 IME 状态。
1 IME 打开。该数值表明 IME 已经被打开,可以输入汉字或日文字符。该设置仅对日文、简体汉字和繁体汉字 IME 有效。
2 IME 关闭。该模式表明 IME 被关闭,因此对象将处于英文输入模式。该设置仅对日文、简体汉字和繁体汉字 IME 有效。
3 IME 被禁止。该模式类似于 IMEMode = 2,区别仅在于数值 2 没有禁止 IME。在本设置下,用户不能够通过键盘将 IME 打开,而且 IME 浮动窗口被隐藏。该设置仅对日文 IME 有效。
4 日文平假名双字节字符(DBC)。该设置仅对日文 IME 有效。
5 日文片假名 DBC. 这些设置仅对日文 IME 有效。
6 日文片假名单字节字符 (SBC)。这些设置仅对日文 IME 有效。
7 字母数字 DBC。该些设置仅对日文 IME 有效。
8 字母数字 SBC。该些设置仅对日文 IME 有效。
9 Hangeul DBC。该些设置仅对朝鲜语 IME 有效。
10 Hangeul SBC。该些设置仅对朝鲜语 IME 有效。
说明在设计时,可以使用对象的“属性”窗口来设置对象的 IMEMode 属性。在运行时,可以通过代码返回或者设置 IMEMode 属性。如果对象拥有焦点的时候改变了 IMEMode 属性的设置,对象的 IME 状态将发生相应的改变。如果将 IMEMode 属性设置为 0 (无),那么无论对象的当前状态如何设置,结果总是返回 0。如果将 IMEMode 属性设置为 0 以外的任何有效值, IMEMode 属性将返回当前的 IME 状态。对于日文 IME,只能使用设置值 0 到 8。设置 9 和 10 对于日文系统是无效的。对于朝鲜语 IME,只能使用设置 0 以及 7 到 10。设置 1 到 6 对于朝鲜语系统是无效的。对于简体汉字和繁体汉字 IME,只能使用设置 0 到 2。设置 3 到 10 对于汉字系统是无效的。
Public Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, lpList As Long) As Long
Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Public Declare Function ImmGetDescription Lib "imm32.dll" Alias "ImmGetDescriptionA" (ByVal hkl As Long, ByVal lpsz As String, ByVal uBufLen As Long) As Long
Private Lng_ItemSave(1 To 16) As Long
Private Lng_ItemCount As Long
Private Str_ItemInformation(1 To 16) As String
Private Lng_Item_Id As Long‘调用时Lng_Select = Lng_Get_Item_Id(Str_Input_Method) '为返回字符串如:1、2....ActivateKeyboardLayout Lng_Select, 1