PEMROGRAMAN API [SendMessage]

PEMROGRAMAN API [SendMessage]

l  Function ini berfungsi untuk mengirimkan message tertentu ke window atau Windows

l  Function ini memanggil window procedure untuk window tertentu, dan tidak mereturn sebelum window procedure tersebut selesai memproses message

l  Berbeda dengan PostMessage, yang harus masuk ke dalam message queue

l  Message akan diproses sesuai dengan urutan queue

l  Dipakai sejak Windows NT 3.1 dan Windows 95 ke atas

l  Disimpan dalam user32.dll

DEKLARASI

Declare Function SendMessage Lib "user32" Alias "SendMessageA"

                (             

                ByVal hwnd As Long,

                ByVal wMsg As Long,

                ByVal wParam As Long,

                lParam As Any

                )

As Long

PENJELASAN PARAMETER

l  hWnd

l  Menentukan window mana yang akan menerima message

l  Bila diisi HWND_BORADCAST, maka message akan dikirimkan ke seluruh top-level windows dalam sistem

l  Msg

l  Pesan yang akan dikirimkan

l  wParam

l  Message tambahan

l  lParam

l  Sama dengan wParam, message tambahan

RETURN VALUE

l  Return value function ini berisi result dari message yang terproses

l  Tergantung juga pada message yang dikirimkan

CONTOH PENGGUNAAN

l  Berikut ini adalah contoh penggunaan SendMessage terhadap listbox

l  Memilih item dalam listbox dengan menggunakan API

KONSTANTA YANG DIPAKAI

Const LB_FINDSTRING = &H18F

ISI LISTBOX

Private Sub Form_Load()

                With List1

        .AddItem "Computer"

        .AddItem "Screen"

        .AddItem "Modem"

        .AddItem "Printer"

        .AddItem "Scanner"

        .AddItem "Sound Blaster"

        .AddItem "Keyboard"

        .AddItem "CD-Rom"

        .AddItem "Mouse"

  End With

End Sub

PEMANGGILAN API

Private Sub Text1_Change()

                List1.ListIndex =               

                                SendMessage

                                                (

                                                List1.hwnd, LB_FINDSTRING, -1,

                                                ByVal CStr(Text1.Text)

                                                )

End Sub

DESAIN FORM

RUNNING PROGRAM