www.pc3enter.tk
چهارشنبه 10 شهریور 1389, 17:53 عصر
دوتا دکمه قرار بدهید داخل فروم و بعد این را کپی کنید و صفحه را کامل پاک و این کد را پیست کنید
Private Const hkl_next = 1
Private Const hkl_prev = 0
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Dim oldkb As Long
Private Sub Command1_Click()
oldkb = GetKeyboardLayout(0)
ActivateKeyboardLayout hkl_next, ByVal 0&
End Sub
Private Sub Command2_Click()
ActivateKeyboardLayout oldkb, ByVal 0&
End Sub
Private Const hkl_next = 1
Private Const hkl_prev = 0
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Dim oldkb As Long
Private Sub Command1_Click()
oldkb = GetKeyboardLayout(0)
ActivateKeyboardLayout hkl_next, ByVal 0&
End Sub
Private Sub Command2_Click()
ActivateKeyboardLayout oldkb, ByVal 0&
End Sub