是不是文本框只能输入汉语?Private Sub Text1_Validate(Cancel As Boolean) if 0<ASC(Text1.text)<255 then Cancel=true End Sub
写法错了,应该是 Private Sub Text1_Validate(Cancel As Boolean) If Asc(Text1.Text) > 0 And Asc(Text1.Text) < 255 Then Cancel = True End Sub
GetKeyboardLayoutList 函数可以取得所有输入法 GetKeyboardLayoutname可以返回当前输入法的KeyboardlayoutName activateKeyboardlayout函数设置当前输入法 LoadKeyboardLayout函数改变输入法的顺序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 ActivateKeyboardLayout Lib ″user32″ _ (ByVal hkl As Long, ByVal flags As Long) As Long Private Declare Function LoadKeyboardLayout Lib ″user32″ Alias ″LoadKeyboardLayoutA″ _ (ByVal pwszKLID As String, ByVal flags As Long) As Long
if 0<ASC(Text1.text)<255 then Cancel=true
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
If Asc(Text1.Text) > 0 And Asc(Text1.Text) < 255 Then Cancel = True
End Sub
GetKeyboardLayoutname可以返回当前输入法的KeyboardlayoutName
activateKeyboardlayout函数设置当前输入法
LoadKeyboardLayout函数改变输入法的顺序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 ActivateKeyboardLayout Lib ″user32″ _
(ByVal hkl As Long, ByVal flags As Long) As Long
Private Declare Function LoadKeyboardLayout Lib ″user32″ Alias ″LoadKeyboardLayoutA″ _
(ByVal pwszKLID As String, ByVal flags As Long) As Long