Tampilkan Isi ComboBox

Januari 30, 2010 at 10:18 pm (Trik)

‘Modul

‘copas ke modul pada vb6

Public Declare Function SendMessageLong Lib “user32″ _ Alias
“SendMessageA” (ByVal hwnd As Long, ByVal wMsg _
As Long, ByVal wParam As Long, ByVal lParam As Long) _
As Long
Public Const CB_SHOWDROPDOWN = &H14F

‘Form

‘Ketik kode ini pada form

Private Sub Form_Load()
r = SendMessageLong(Combo1.hwnd, CB_SHOWDROPDOWN, _
True, 0)
End Sub

1 Komentar

  1. Heru berkata,

    Mei 28, 2010 pada 10:37 am

    Bagus :)

    Balas

Tinggalkan Balasan

Fill in your details below or click an icon to log in:

Gravatar
WordPress.com Logo

You are commenting using your WordPress.com account. ( Log Out / Ubah )

Twitter picture

You are commenting using your Twitter account. ( Log Out / Ubah )

Facebook photo

You are commenting using your Facebook account. ( Log Out / Ubah )

Batal

Connecting to %s

Ikuti

Get every new post delivered to your Inbox.