Cara Mengecek Bahasa Keyboard Yang Sedang di Gunakan dengan Kode VB6

Cara Mengecek Bahasa Keyboard Yang Sedang di Gunakan dengan Kode VB6 - Kali ini tip dan trik akan menulis sebuah tip yang mungkin jarang orang untuk mengetahuinya terutama dalam hal pengecekan bahasa yang digunakan keyboard, tip tersebut adalah Cara Mengecek Bahasa Keyboard Yang Sedang di Gunakan dengan Kode VB6.

Bahasa keyboard yang digunakan di komputer Standar adalah English.Selain bahasa Standar, Anda juga bisa menambahkan bahasa yang lain yaitu Bahasa Arab sehingga di komputer Anda menggunakan 2 bahasa yaitu bahasa standar English dan satunya lagi adalah Bahasa Arab.

Pada pertemuan kali ini Saya ingin berbagi tips bagaimana cara mengecek bahasa keyboard yang Anda sedang gunakan di komputer Anda dengan menggunakan kode VB.Berikut adalah lankah-langkahnya :

Cara Mengecek Bahasa Keyboard Yang Sedang di Gunakan dengan Kode VB6

Buka Form VB6 Anda dan tanamkan 1 buah Commandbutton di dalam Form ,setelah itu Anda ketik kode di bawah ini di jendela kode :

Code

Option Explicit
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Public Sub KeyBoardLanguage()

    Dim TheardId As Long
    Dim TheardLang As Long
    Dim processid As Long

    TheardId = GetWindowThreadProcessId(hwnd, processid)
    TheardLang = GetKeyboardLayout(ByVal TheardId)
    TheardLang = TheardLang Mod 10000

    Select Case TheardLang
        Case "9721"
            MsgBox "English"
        Case "5425"
            MsgBox "Arabic"
        Case Else
            MsgBox "I don't know atuh, cari weh ku anjeun sorangan", vbInformation, "Don't Know"
    End Select

End Sub

Private Sub Command1_Click()
KeyBoardLanguage
End Sub

Simpan hasil pekerjaan dan jalankan program.

Demikian tip singkat  Cara Mengecek Bahasa Keyboard Yang Sedang di Gunakan dengan Kode VB6. Selamat mencoba semoga berhasil.

Related Post: Windows