文章内容 饮水思源 讨论区 [VB] --------------------------------------------------------------------------------
主选单 本讨论区 主题模式 上一篇 下一篇 登录 --------------------------------------------------------------------------------
发信人: hyhour (time), 信区: VB
标 题: 切换输入法
发信站: 饮水思源站 (Wed Jan 12 16:51:52 2000), 转信需要一个ComboBOX,和一个Text.Option Explicit
Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, _
lpList As Long) As Long
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" _
(ByVal pwszKLID As String) As Long
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function ImmGetDescription Lib "imm32.dll" Alias "ImmGetDescriptionA" (ByVal _
hkl As Long, ByVal lpsz As String, ByVal uBufLen As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal _
flags As Long) As LongConst IME_CONFIG_GENERAL = 1
Const KLF_REORDER = &H8
Const KLF_ACTIVATE = &H1Dim la(1 To 16) As Long
Dim ActIme As LongPrivate Sub Combo1_Click()
ActIme = la(Combo1.ListIndex + 1)
Debug.Print ActIme
Text1.SetFocus
End SubPrivate Sub Form_Load()
Dim astr As String * 256
Dim bstr As String
Dim x, hMem, i As Long
x = GetKeyboardLayoutList(32, la(1))
Combo1.Clear
If x Then
For i = 1 To x
ImmGetDescription la(i), astr, 256
If InStr(astr, Chr(0)) = 1 Then
bstr = ""
Else
bstr = Left$(astr, InStr(astr, Chr(0)))
End If
If Trim(bstr) = "" Then
Combo1.AddItem "英语(美国)"
Else
Combo1.AddItem bstr
End If
Next i
End If
End SubPrivate Sub Text1_GotFocus()
If Combo1.ListCount > 0 Then
ActivateKeyboardLayout ActIme, 1
End If
End Sub
--
※ 修改:·hyhour 於 Jan 12 16:52:49 修改本文·[FROM: 202.120.18.28]
※ 来源:·饮水思源站 bbs.sjtu.edu.cn·[FROM: 202.120.18.28] --------------------------------------------------------------------------------
主选单 本讨论区 主题模式 上一篇 下一篇 登录
主选单 本讨论区 主题模式 上一篇 下一篇 登录 --------------------------------------------------------------------------------
发信人: hyhour (time), 信区: VB
标 题: 切换输入法
发信站: 饮水思源站 (Wed Jan 12 16:51:52 2000), 转信需要一个ComboBOX,和一个Text.Option Explicit
Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, _
lpList As Long) As Long
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" _
(ByVal pwszKLID As String) As Long
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function ImmGetDescription Lib "imm32.dll" Alias "ImmGetDescriptionA" (ByVal _
hkl As Long, ByVal lpsz As String, ByVal uBufLen As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal _
flags As Long) As LongConst IME_CONFIG_GENERAL = 1
Const KLF_REORDER = &H8
Const KLF_ACTIVATE = &H1Dim la(1 To 16) As Long
Dim ActIme As LongPrivate Sub Combo1_Click()
ActIme = la(Combo1.ListIndex + 1)
Debug.Print ActIme
Text1.SetFocus
End SubPrivate Sub Form_Load()
Dim astr As String * 256
Dim bstr As String
Dim x, hMem, i As Long
x = GetKeyboardLayoutList(32, la(1))
Combo1.Clear
If x Then
For i = 1 To x
ImmGetDescription la(i), astr, 256
If InStr(astr, Chr(0)) = 1 Then
bstr = ""
Else
bstr = Left$(astr, InStr(astr, Chr(0)))
End If
If Trim(bstr) = "" Then
Combo1.AddItem "英语(美国)"
Else
Combo1.AddItem bstr
End If
Next i
End If
End SubPrivate Sub Text1_GotFocus()
If Combo1.ListCount > 0 Then
ActivateKeyboardLayout ActIme, 1
End If
End Sub
--
※ 修改:·hyhour 於 Jan 12 16:52:49 修改本文·[FROM: 202.120.18.28]
※ 来源:·饮水思源站 bbs.sjtu.edu.cn·[FROM: 202.120.18.28] --------------------------------------------------------------------------------
主选单 本讨论区 主题模式 上一篇 下一篇 登录
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货