Get GetKeyboardLayout language from a thread

Option Explicit  
'Get GetKeyboardLayout language from a thread  
'Original code by Gringo Man  
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  
    
    If TheardLang = "9721" Then  
        MsgBox "English"  
    ElseIf TheardLang = "5425" Then  
        MsgBox "Arabic"  
    End If  
    
End Sub  
    
Private Sub Command1_Click()  
    KeyBoardLanguage  
End Sub 

READ MORE - Get GetKeyboardLayout language from a thread

Visual Basic 6.0 - Beberapa Masalah File Manifest

Penggunaan file manifest untuk meng- Style XP-kan objek-objek Visual Basic 6.0 ternyata memiliki bebearapa masalah, diantaranya:

1. Hilangnya shortcut mnemonic (shortcut underlin/underscore) yang biasa diakses melalui Alt + ...
2. OptionButton dan CheckBox yang disimpan dalam kontainer Frame berubah berwarna hitam mengakibatkan Caption dari dua objek tersebut tidak dapat terbaca.
3. CommandButton yang property style-nya diset pada mode 1-Graphical tidak mau berubah menjadi Style XP.
4. MSCOMCTL.OCX TreeView, ToolBar, dsb tidak mau berubah menjadi Style XP.

Penyelesaian:

• Masalah ke-1: Simpan kode di bawah ini pada module, selanjutnya panggil pada setiap Event Form Load.
  

  Option Explicit 
  
  Private Const WM_CHANGEUISTATE As Long = &H127 
  Private Const UISF_HIDEFOCUS As Integer = &H1 
  Private Const  UISF_HIDEACCEL As Integer = &H2 
  Private Const UIS_CLEAR As Integer = &H2 
   
  Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"  _ 
         ByVal hwnd As Long, _ 
         ByVal wMsg As Long, _ 
         ByVal wParam As Long, _ 
         lParam As Any) As Long 
  
  Public Sub ShowMnemonic(frm As Form) 
     Dim uiState As Long 
     uiState = MakeLong(UIS_CLEAR, UISF_HIDEFOCUS Or UISF_HIDEACCEL) 
     SendMessage frm.hwnd, WM_CHANGEUISTATE, uiState, ByVal 0 
  End Sub 
  
  Private Function MakeLong(ByVal wLow As Integer, ByVal wHigh As Integer) As Long 
     MakeLong = wHigh * &H10000 + wLow 
  End Function 

• Masalah ke-2: Jangan tempatkan OptionButton dan CheckBox secara langsung di atas Frame, tetapi simpanlah kedua objek tersebut di atas PictureBox, selanjutnya pindahkan PictureBox ini ke dalam Frame.
• Masalah ke-3: Mengenai permasalah ini Anda dapat mengunjugi situs Edanmo (Eduardo A. Morcillo).
• Masalah ke-4: Sudah diselesaikan disini.

READ MORE - Visual Basic 6.0 - Beberapa Masalah File Manifest

VB6 Code - Cara Menggunakan NotifyIcon.OCX

Artikel di bawah ini kami beri judul Cara Menggunakan NotifyIcon.OCX, Apa yang dimaksud dengan NotifyIcon? lihat screenshot di bawah ini
.
Nah, sekarang Anda faham, apa yang dimaksud dengan NotifyIcon itu. NotifyIcon.ocx dibuat oleh Bhagwat Singh. NotifyIcon.OCX merupakan sebuah ocx yang bagus, ia dapat mengurangi kekomplekan pemograman. Setidaknya kita tidak direpotkan dengan membuat sebuah modul untuk keperluan Icon Tray dan modul untuk keperluan Baloon Tips. Apa yang harus Anda lakukan adalah mengisi properties-propertiesnya saja, hanya itu saja. Sekarang, bagaimanakah cara mengisi properties-propertiesnya menggunakan pengkodean. Copy dan pastekan code di bawah ini, sebelumnya Anda tambahkan NotifyIcon.ocx ke dalam project Anda.

Option Explicit

Private Const VERSI_KAMUS As String = "Kamus Bahasa Arab v3.0"

Private Sub Form_Load()
 With NotifyIcon1
     .Tip = VERSI_KAMUS
     .BaloonIcon = BaloonIcon.Information
     .ShowIcon
     .BaloonTitle = VERSI_KAMUS
     .BaloonText = VERSI_KAMUS & " - Memudahkan pencarian kosakata bahasa arab dengan fasilitas Windows Pop-Up"
     .ShowBaloon
 End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
 NotifyIcon1.DeleteIcon
End Sub

Catatan:
Kamus Bahasa Arab v1.0 s/d v3.0 (yang paling terakhir di release) seluruhnya menggunakan ocx ini.

READ MORE - VB6 Code - Cara Menggunakan NotifyIcon.OCX

KBA Editor 1.0

Ini merupakan kelanjutan dari posting sebelumnya, mengenai cara menambahkan kosakata ke dalam Kamus Bahasa Arab v3.0. Selain aplikasi-aplikasi yang bisa digunakan untuk menambah kosakata (notepad, wordpad, word, dll) kita pun dapat membuat sendiri aplikasi kecil untuk lebih mempermudah mengisi kosakta, dan ini merupakan salah satu contohnya, saya namakan dengan KBA Editor. Apabila ada kekurangan/bug/error Anda dapat memperbaikinya melalui source codenya.

• Download: KBA Editor 1.0 (Setup)
• Download: KBA Editor 1.0 (Source Code)

Catatan: Satukan folder KBA Editor 1.0 dengan Kamus Bahasa Arab v3.0 pada saat proses installasi. Apabila Anda telah memiliki banyak kosatakata yang disimpan dalam file tambahan.txt, jangan lupa untuk mem-backup (mengkopi salinan) file tambahan.txt.

READ MORE - KBA Editor 1.0