vb程序中界面的中英文转换

123456789Private Sub Command1_Click() Dim a As Long a = InputBox("输滚燃入一个正整数"): n = a Dos = s &a Mod 8a = a \ 8 Loop Until a = 0 Print "十进羡备轿制数" &n &"转换成八进制数后兄肆为:"StrReverse(s)End Sub

我用Timer1设为200就是英文樱首薯，你在控制记事本芹雀的时候脊者，直接call Timer1_Timer里的程式

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 Long

Const IME_CONFIG_GENERAL = 1

Const KLF_REORDER = &H8

Const KLF_ACTIVATE = &H1

Dim la(1 To 16) As Long

Dim ActIme As Long

Private Sub Timer1_Timer()

ActIme = "134481924"

ActivateKeyboardLayout ActIme, 1

End Sub

---