ComboBox Terbuka Ketika Focus

Biasanya ketika ingin melihat isi dari ComboBox harus meng-klik tanda panahnya terlebih dulu. Berikut ini adalah trik kode agar ComboBox terbuka secara otomatis ketika focus.

Buat sebuah Form baru dengan sebuah ComboBox dan beberapa kontrol lain.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

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

Lalu tambahkan kode berikut di bagian 'Combo1_GotFocus'.

SendMessage Combo1.hWnd, 335, 1, 0

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Lalu tambahkan kode berikut di bagian 'ComboBox1_GotFocus'.

SendMessage(ComboBox1.Handle.ToInt32, 335, 1, 0)