VB6 Code - Merubah Keyboard Dari Inggris Ke Arab

Bagaimanakah cara memindahkan layout keyboard (misalnya dari english ke arabic atau sebaliknya) melalui pengkodean Visual Basic 6.0? Berikut solusinya:

'------------------------------------------------------------------------------- 
'http://khoiriyyah.blogspot.com 
'Asep Hibban 
'------------------------------------------------------------------------------- 
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" ByVal pwszKLID As String, ByVal flags As Long) As Long 
Private Const KLF_ACTIVATE = &H1 
 
Private Sub Command1_Click() 
   LoadKeyboardLayout "00000401", KLF_ACTIVATE 'pindah ke arab 
   Text1.Alignment = vbRightJustify 
   Text1.SetFocus 
End Sub 
 
Private Sub Command2_Click() 
   LoadKeyboardLayout "00000409", KLF_ACTIVATE 'pindah ke inggris 
   Text1.Alignment = vbLeftJustify 
   Text1.SetFocus 
End Sub 
 
Private Sub Text2_GotFocus() 
   LoadKeyboardLayout "00000409", KLF_ACTIVATE 'pindah ke inggris 
   Text2.Alignment = vbLeftJustify 
End Sub 
 
Private Sub Text3_GotFocus() 
   LoadKeyboardLayout "00000401", KLF_ACTIVATE 'pindah ke arab 
   Text3.Alignment = vbRightJustify 
End Sub 

Kode di atas tentunya sangat berguna sekali pada membuat aplikasi-aplikasi arabic dengan Visual Basic 6.0, dengan demikian kalimat:

Ingat! sebelum Anda mengetik, pindahkah terlebih dahulu pada posisi arabic

sudah tidak diperlukan lagi.

Download: How To Change Keyboard Layout To Arabic