Trao đổi với tôi

www.hdphim.info

12/30/16

[Simply Solo] Bài thánh ca buồn guitar solo

12/29/16

[MASM], TUT COMBOBOX

TUT COMBOBOX

Author: Benina 2006

Trước khi đọc tut này, các bạn nên đọc qua tut số 9,10 trong lọat tuts Iczelion để nắm các kiến thức cơ bản.Tut này tôi viết rất đơn giản, nó là tut lưu trữ cho tôi.

Dowload source : http://masm32vn.com/files/combobox.rar
Hay http://h1.ripway.com/benina/files/combobox.rar
A. Lý thuyết:

1. Một Combo Box là  gì:

A combo box is a unique type of control, defined by the COMBOBOX class, that combines much of the functionality of a list box and an edit control.

This overview describes the types and styles of combo box, the parts of a combo box, the use of an owner-drawn combo box, and how to subclass a combo box. Additional features of combo boxes are also discussed.

2.Các đặc tính cơ bản cần quan tâm của một combobox:

-String : của item được chọn hiển thị trong hộp chọn combobox.

Các thông điệp sử dụng để truyền thông: CB_ADDSTRING; CB_DELETESTRING; CB_INSERTSTRING; CB_SELECTSTRING; CB_LIMITTEXT
Lấy các thuộc tính string như chiều dài và chuổi string: CB_GETLBTEXT; CB_GETLBTEXTLEN

-Index: chỉ mục thành phần của item của combobox
Các thông điệp dùng để truyền thông: CB_GETCURSEL; CB_SETCURSEL; CB_SELECTSTRING; CB_FINDSTRING; CB_GETTOPINDEX; CB_RESETCONTENT;
Chú ý: item đầu tiên có index là 0

-Data: là một giá trị 32-bits liên quan đến item
Các thông điệp dùng để truyền thông:
CB_SETITEMDATA; CB_GETITEMDATA


3. Cách truyền thông tin và lấy thông tin từ combobox.

Ta dùng hàm SendMessage để truyền thông cho combobox





Hàm SendMessage gởi message được chỉ định đến một  window hay windows. Hàm này gọi thủ tục window được chỉ định và ko return cho đến khi window procedure thực hiện xong thông điệp message. Hàm PostMessage, trái lại, post một message đến một chuổi thông điệp của thread (thread's message queue) và return ngay lập tức.

LRESULT SendMessage(

    HWND hWnd,         // handle of destination window
    UINT Msg,  // message to send
    WPARAM wParam,            // first message parameter
    LPARAM lParam     // second message parameter
   );      


Parameters

hWnd

Chỉ định window mà window procedure của nó sẽ nhận message. Nếu tham số này là  HWND_BROADCAST, message được gởi đến tất cả các top-level windows trong system, bao gồm các unowned windows disabled (mất hiệu lực) hay invisible (ko trông thấy), overlapped windows (các windows bị đè), và pop-up windows; nhưng message ko được gởi đến child windows.

Msg

Chỉ định thông điệp được gởi

wParam

Chỉ định các thông tin chỉ định thông điệp add thêm

lParam

Chỉ định các thông tin chỉ định thông điệp add thêm



Return Values

Giá trị trả về chỉ định kết quả of message xử lý và dựa trên message sent.

Remarks

Các ứng dụng cần để truyền thông sử dụng HWND_BROADCAST sẽ dùng hàm RegisterWindowMessage để  đạt được chỉ một thông điệp cho sự truyền thông inter-application.
Nếu window chỉ định đã được cài đặt bởi calling thread, thủ tục window procedure được gọi ngay lập tức như một subroutine. Nếu window chỉ định đã được cài đặt bởi một thread khác, Windows bật thread đó và calls window procedure thích hợp. Messages gởi giữa các threads được xử lý chỉ khi thread nhận thực thi code thu lại thông điệp (message retrieval code). Thread gởi đi bị blocked cho đến khi thread nhận được xử lý message.


Ví dụ :

invoke SendMessage,hCombo,CB_GETCOUNT,0,0

4. Một số thông điệp làm việc trên combobox dùng cho hàm SendMessage.

a/Thao tác trên String của combobox

CB_ADDSTRING : Thêm string vào list box của combobox
CB_DELETESTRING: Xóa string trong list box của combobox
CB_INSERTSTRING: Chèn string vào list box của combobox
CB_SELECTSTRING: Tìm trong list của combobox cho một item bắt đầu với các ký tự như string được chỉ định. Nếu một item phù hợp như vậy, nó sẽ được chọn và được copy đến edit control
CB_LIMITTEXT: Giới hàn chiều dài một string mà người dùng có thể đánh vào trong hộp Edit box của combobox
Lấy các thuộc tính string như chiều dài và chuổi string:
CB_GETLBTEXT: : Nhận một string từ trong list của combobox
CB_GETLBTEXTLEN

b/Thao tác trên Index của item combobox:

CB_GETCURSEL: Nhận index của item được chọn hiện hành
CB_SETCURSEL: Chọn một string trong list của combobox là string hiện hành
CB_FINDSTRING: Tìm trong list của combobox cho một item có string giống string chỉ định, giá trị trả về là index của item tìm được.
CB_GETTOPINDEX: to retrieve the zero-based index of the first visible item in the list box portion of a combo box. Initially the item with index 0 is at the top of the list box, but if the list box contents have been scrolled, another item may be at the top.(lấy index của item đầu tiên trong list box)
CB_RESETCONTENT: to remove all items from the list box and edit control of a combo box. (Xóa tất cả các items)
CB_GETCOUNT : Nhận tổng số các items

C/Thao tác trên data cuả item combobox:

CB_SETITEMDATA: Set một số 32-bits liên quan đến item chỉ định
CB_GETITEMDATA: Set một số 32-bits liên quan đến item chỉ định

Tham khảo thêm trong Win32 Reference.

B. Thực hành :

Ví dụ này làm rõ cách truyền thông với combobox như : add thêm 1 item với string mà user đánh vào trong hộp “Edit a New Item” (tôi ko code phần check string user đánh vào là null, đây là một bài tập cho bạn đọc). Select 1 item trong combobox lúc đó trong phần “Combobox Item Properties” sẽ tự động hiện thị các đặc tính của item hiện hành. Delete item hiện hành khỏi list combobox. Xóa tất cả các items của combobox. Get và Set data cho item.

1. Trong RadASM ta cài đặt 1 project mới dùng template là DialogAsMain

2.Ta sọan thảo giao diện ví dụ như sau:


ComboCount là tộng số items của combobox
Current Index, String, String length là các đặc tính của item hiện hành
Hộp “Edit a New Item” để người dùng đánh 1 string vào dùng để Add 1 item cho combobox.
Các Button hành động giống tên của nó.

3.Khai báo các ID và biến trong file .inc

;-----Khai bao cac ID cua dialog---------------------------
IDC_CBO1    equ 1001
IDC_EDTCount         equ 1009
IDC_EDTIndex         equ 1022
IDC_EDTString         equ 1010
IDC_EDTLen            equ 1011
IDC_EDTText           equ 1012

IDC_BTNDelete       equ 1013
IDC_BTNAdd            equ 1014
IDC_BTNClearAll     equ 1015
IDC_BTNGet            equ 1017
IDC_BTNSet equ 1018
IDC_BTNExit            equ 1019
;-----------------------------------------------------------

4.Khai báo các biến sau đây để dùng trong ví dụ chúng ta sau này:

Trong .const chúng ta edit lại biến sau

.const
................
AppName                                           db 'Example Combobox',0 ; Edit lai
...............

Chúng ta tạo thêm các biến sau:

;------------khai bao cac bien ---------------
.data

String1                        db 'Item 1',0
String2                        db 'Item 2',0

ItemSet                       db 'Item is set!',0
NoSelection    db 'This item doesnt contain data yet, or is 0.',10,13,'Please add Item data first.' ,0
;---------------------------------------------

Vá cuối cùng trong .data? ta thêm biến sau

.data?
..........................
hCombo                                              dd ?

5.Trong phần xử lý thông điệp WM_INITDIALOG

Ta cần lấy handle của Combobox

;/* Combobox setup */
invoke GetDlgItem,hWin, IDC_CBO1
                        mov hCombo,eax

Sau đó ta thêm các lệnh sau đế setup combobox
;--------------------------------------
                        ;/* Setup combobox startup*/
                        invoke SendMessage,hCombo,CB_ADDSTRING,0,offset String1
                        invoke SendMessage,hCombo,CB_ADDSTRING,0,offset String2
                       
                        ;/*Set last item to current item of combobox*/
                        invoke SendMessage,hCombo,CB_GETCOUNT,0,0
                        mov edx,eax
                        dec edx                      
                        invoke SendMessage,hCombo,CB_SETCURSEL,edx,0   
                        call FillItem
                        ;--------------------------------------

6. Hàm FillItem để lắp các giá trị cho các thành phần giao diện edit box, combobox trong giao diện ví dụ của chúng ta.

FillItem proc
LOCAL buffer[256]:BYTE
                                                                                               
                        ;/* loading infos about the selected item into "Combobox Item Properties" */
                        ;/*Set Count box*/
                        invoke SendMessage,hCombo,CB_GETCOUNT,0,0
                        mov edx,eax
                        invoke dwtoa,edx,addr buffer
                        invoke SendDlgItemMessage,hWnd,IDC_EDTCount,WM_SETTEXT,0,addr buffer
                        ;/* Set Index box*/
                        invoke SendMessage, hCombo, CB_GETCURSEL, 0, 0
                        mov     ebx, eax
                        invoke dwtoa,ebx,addr buffer
                        invoke SendDlgItemMessage,hWnd,IDC_EDTIndex,WM_SETTEXT,0,addr buffer
                        ;/* Set String box*/
                        invoke  SendMessage, hCombo, CB_GETLBTEXT, ebx, addr buffer
                        invoke SendDlgItemMessage,hWnd,IDC_EDTString,WM_SETTEXT,0,addr buffer
                        ;/*Set String Lenght*/
                        invoke SendMessage,hCombo,CB_GETLBTEXTLEN,ebx,0
                        mov edx,eax
                        invoke dwtoa,edx,addr buffer
                        invoke SendDlgItemMessage,hWnd,IDC_EDTLen,WM_SETTEXT,0,addr buffer
                        ;/*--------------------------------------------------------------------------*/
                        ;Set null for Edit Text
                        invoke SendDlgItemMessage,hWnd,IDC_EDTText,WM_SETTEXT,0,0             
            ret

FillItem endp

7. Tham khảo trước hàm dwtoa để dùng sau này:

Là một hàm trong thư viện masm32.lib của masm32

Vì vậy trước khi dùng nó chúng ta phải khai báo:

include masm32.inc
includelib masm32.lib

Hàm này chuyển đổi 1 DWORD thành một string ascii. Tham khảo phần Help của masm32


dwtoa

dwtoa proc public uses esi edi dwValue:DWORD, lpBuffer:PTR BYTE

Note that the parameter lpBuffer is an address of DWORD size.

Description
dwtoa convert a DWORD value to an ascii string.

Parameters
            1. dwValue The DWORD value to convert.

            2. lpBuffer The address of the buffer to put the converted DWORD into.

Return Value
There is no return value.

Comments
The buffer for the converted value should be large enough to hold the string including the terminating zero



Đây là source của hàm này:

; #########################################################################

    ; -----------------------------------------
    ; This procedure was written by Tim Roberts
    ; -----------------------------------------

      .386
      .model flat, stdcall  ; 32 bit memory model
      option casemap :none  ; case sensitive

    .code

; #########################################################################

dwtoa proc public uses esi edi dwValue:DWORD, lpBuffer:PTR BYTE

    ; -------------------------------------------------------------
    ; convert DWORD to ascii string
    ; dwValue is value to be converted
    ; lpBuffer is the address of the receiving buffer
    ; EXAMPLE:
    ; invoke dwtoa,edx,ADDR buffer
    ;
    ; Uses: eax, ecx, edx.
    ; -------------------------------------------------------------

    moveax, dwValue
    mov edi, [lpBuffer]

    ; Special case zero.

    .if (eax == 0)
      mov byte ptr [edi], '0'
      mov byte ptr [edi][1], 0
      ret
    .endif

    ; Is the value negative?

    .if(sdword ptr eax < 0)
      mov byte ptr [edi], '-'; store a minus sign
      inc edi
      neg eax; and invert the value
    .endif

    mov esi, edi; save pointer to first digit

    mov ecx, 10
    .while (eax > 0); while there is more to convert...
      xor edx, edx
      div ecx; put next digit in edx
      add dl, '0'; convert to ASCII
      mov [edi], dl; store it
      inc edi
    .endw

    mov byte ptr [edi], 0; terminate the string

    ; We now have all the digits, but in reverse order.

    .while (esi < edi)
      dec edi
      mov al, [esi]
      mov ah, [edi]
      mov [edi], al
      mov [esi], ah
      inc esi
    .endw
   
    ret

dwtoa endp

; #########################################################################

end


8. Sọan thảo phần xử lý thông điệp WM_COMMAND như sau:


.elseif eax==WM_COMMAND                       
                                mov                         eax,wParam
                                mov                         edx,eax
                                shr                          edx,16
                                and                          eax,0FFFFh
                                .if edx==BN_CLICKED                     
                                                .if eax==IDM_FILE_EXIT
                                                                invoke SendMessage,hWin,WM_CLOSE,0,0
                                                .elseif eax==IDM_HELP_ABOUT
                                                                invoke ShellAbout,hWin,addr AppName,addr AboutMsg,NULL                              
                                                .elseif eax==IDC_BTNExit                ;Exit  program
                                                                invoke SendMessage,hWin,WM_CLOSE,0,0
                                                .elseif eax==IDC_BTNAdd                ;Add a new item
                               
                                                                ;-----------------------------------------------------------------                       
                                                                ;/* Add a item for combobox */
                                                                invoke GetDlgItemText,hWnd,IDC_EDTText, addr buffer, sizeof buffer    
                                                                invoke SendMessage,hCombo,CB_ADDSTRING,0,addr buffer                                               
                                                                ;/*Set last item to current item of combobox*/
                                                                invoke SendMessage,hCombo,CB_GETCOUNT,0,0
                                                                mov edx,eax
                                                                dec edx                  
                                                                invoke SendMessage,hCombo,CB_SETCURSEL,edx,0                              
                                                                ;/*Fill Properties*/                                           
                                                                call FillItem
                                                                ;-----------------------------------------------------------------
                                               
                                                .elseif eax==IDC_BTNDelete           ;Delete a current item       
                                                               
                                                                ;-----------------------------------------------------------------
                                                                ;/* Delete a current item  */
                                                                invoke SendMessage,hCombo,CB_GETCURSEL,0,0
                                                                invoke SendMessage,hCombo,CB_DELETESTRING,eax,0                                       
                                                                ;/*Set last item to current item of combobox*/
                                                                invoke SendMessage,hCombo,CB_GETCOUNT,0,0
                                                                mov edx,eax
                                                                dec edx                   ;because the first item index is 0    
                                                                invoke SendMessage,hCombo,CB_SETCURSEL,edx,0
                                                                ;/*Fill Properties*/                           
                                                                call FillItem
                                                                ;-----------------------------------------------------------------
                                                               
                                                .elseif eax==IDC_BTNClearAll       ;Delete all items
                                               
                                                                ;-----------------------------------------------------------------
                                                                ;/* Delete all items  */
                                                                invoke SendMessage,hCombo,CB_RESETCONTENT,0,0
                                                                ;/*Fill Null for Properties and Edit Text*/
                                                                invoke SendDlgItemMessage,hWin,IDC_EDTCount,WM_SETTEXT,0,0
                                                                invoke SendDlgItemMessage,hWin,IDC_EDTIndex,WM_SETTEXT,0,0
                                                                invoke SendDlgItemMessage,hWin,IDC_EDTString,WM_SETTEXT,0,0
                                                                invoke SendDlgItemMessage,hWin,IDC_EDTLen,WM_SETTEXT,0,0
                                                                invoke SendDlgItemMessage,hWin,IDC_EDTText,WM_SETTEXT,0,0
                                                                ;------------------------------------------------------------------
                                                               
                                                .elseif eax==IDC_BTNSet ;Set item data
                                               
                                                                ;--------------------------------------------------------------------
                                                                ;Set Item Data
                                                                invoke SendMessage, hCombo, CB_GETCURSEL, 0, 0
                                                                mov edx,eax
                                                                ;we move the DWORD value 100 into a selected item and store it there
                                                                mov mValue,100
                                                                invoke SendMessage,hCombo,CB_SETITEMDATA,edx, [mValue]
                                                                invoke MessageBox,hWin,offset ItemSet,offset AppName,MB_OK
                                                                ;--------------------------------------------------------------------
                                               
                                                .elseif eax==IDC_BTNGet ;Get item data
                                               
                                                                ;--------------------------------------------------------------------
                                                                ;Get Item Data
                                                                invoke SendMessage, hCombo, CB_GETCURSEL, 0, 0
                                                                mov edx,eax
                                                                ;we retrieve the stored data, if empty then you get a 0
                                                                invoke SendMessage,hCombo,CB_GETITEMDATA,edx,0
                                                                mov mValue,eax
                                                                .if eax==0
                                                invoke MessageBox,hWin,offset NoSelection,offset AppName,MB_ICONEXCLAMATION
                                                jmp Exit
                                                                .endif
                                                invoke dwtoa, mValue,addr buffer
                                                invoke MessageBox,hWin,addr buffer,offset AppName,MB_ICONINFORMATION
                                                                Exit:
                                                                ;--------------------------------------------------------------------   
                                                .endif     
                                .elseif edx==CBN_SELCHANGE                     ;Change selected item
                                               
                                                .if eax==IDC_CBO1
                                                ;Get selected item with error handler
                                                                invoke SendMessage, hCombo, CB_GETCURSEL, 0, 0
                                                .if eax == CB_ERR
                                                                jmp     NoSel
                                                .endif
                               mov     ebx, eax
                                                call FillItem
                                                .endif
                                                NoSel:
                                                ;USer didnt made any choice
                .endif
           



Phân tích tóm tắt:

 *Xứ lý thông điệp click vào các button (BN_CLICKED)
-Button Exit :

Ta gởi thông điệp WM_CLOSE cho Windows để exit chương trình

-Button Add Item:
                                                                ;-----------------------------------------------------------------                       
                                                                ;/* Add a item for combobox */
                                                                invoke GetDlgItemText,hWnd,IDC_EDTText, addr buffer, sizeof buffer    
                                                                invoke SendMessage,hCombo,CB_ADDSTRING,0,addr buffer                                               
                                                                ;/*Set last item to current item of combobox*/
                                                                invoke SendMessage,hCombo,CB_GETCOUNT,0,0
                                                                mov edx,eax
                                                                dec edx                  
                                                                invoke SendMessage,hCombo,CB_SETCURSEL,edx,0                              
                                                                ;/*Fill Properties*/                                           
                                                                call FillItem
                                                                ;-----------------------------------------------------------------
Đầu tiên lấy string trong hộp edit user đánh vào, sau đó Add string vào list combox bằng cách gởi thông điệp CB_ADDSTRING. Tiếp theo set item hiện hành là item sau cùng mới add vào. Và cuối cùng là fill các thông tin của item hiện hành vào các editbox properties

-Button Delete Item:
                                                                ;-----------------------------------------------------------------
                                                                ;/* Delete a current item  */
                                                                invoke SendMessage,hCombo,CB_GETCURSEL,0,0
                                                                invoke SendMessage,hCombo,CB_DELETESTRING,eax,0                                       
                                                                ;/*Set last item to current item of combobox*/
                                                                invoke SendMessage,hCombo,CB_GETCOUNT,0,0
                                                                mov edx,eax
                                                                dec edx                   ;because the first item index is 0                    
                                                                invoke SendMessage,hCombo,CB_SETCURSEL,edx,0
                                                                ;/*Fill Properties*/                           
                                                                call FillItem
                                                                ;-----------------------------------------------------------------
                                                               
Dùng CB_GETCURSEL để lấy index của item hiện hành, tiếp theo dùng CB_DELETESTRING đế xóa string. Set item hiện hành là item cuối cùng trong list combobox. Và cuối cùng là fill thông tin vào các editbox properties bằng hàm FillItem.

-Button Clear All Items:
                                                                ;-----------------------------------------------------------------
                                                                ;/* Delete all items  */
                                                                invoke SendMessage,hCombo,CB_RESETCONTENT,0,0
                                                                ;/*Fill Null for Properties and Edit Text*/
                                                                invoke SendDlgItemMessage,hWin,IDC_EDTCount,WM_SETTEXT,0,0
                                                                invoke SendDlgItemMessage,hWin,IDC_EDTIndex,WM_SETTEXT,0,0
                                                                invoke SendDlgItemMessage,hWin,IDC_EDTString,WM_SETTEXT,0,0
                                                                invoke SendDlgItemMessage,hWin,IDC_EDTLen,WM_SETTEXT,0,0
                                                                invoke SendDlgItemMessage,hWin,IDC_EDTText,WM_SETTEXT,0,0
                                                                ;------------------------------------------------------------------

Dùng CB_RESETCONTENT để xóa tất cả các items của combobox. Và sau đó là set giá trị Null cho tất cả các editbox giao diện.

-Button Set Item:

                                                                ;--------------------------------------------------------------------
                                                                ;Set Item Data
                                                                invoke SendMessage, hCombo, CB_GETCURSEL, 0, 0
                                                                mov edx,eax
                                                                ;we move the DWORD value 100 into a selected item and store it there
                                                                mov mValue,100
                                                                invoke SendMessage,hCombo,CB_SETITEMDATA,edx, [mValue]
                                                                invoke MessageBox,hWin,offset ItemSet,offset AppName,MB_OK
                                                                ;--------------------------------------------------------------------

Lấy item hiện hành trên combobox, dùng CB_SETITEMDATA để set giá trị 100h cho data item hiện hành. Xuất ra một hộp thọai MessageBox thông báo cho người dùng biết.

-Button Get Item:

                                                                ;--------------------------------------------------------------------
                                                                ;Get Item Data
                                                                invoke SendMessage, hCombo, CB_GETCURSEL, 0, 0
                                                                mov edx,eax
                                                                ;we retrieve the stored data, if empty then you get a 0
                                                                invoke SendMessage,hCombo,CB_GETITEMDATA,edx,0
                                                                mov mValue,eax
                                                                .if eax==0
                                                invoke MessageBox,hWin,offset NoSelection,offset AppName,MB_ICONEXCLAMATION
                                                jmp Exit
                                                                .endif
                                                invoke dwtoa, mValue,addr buffer
                                                invoke MessageBox,hWin,addr buffer,offset AppName,MB_ICONINFORMATION
                                                                Exit:
                                                                ;--------------------------------------------------------------------   

Dùng CB_GETITEMDATA để lấy item data của item hiện hành. Xuất ra hộp thông báo cho người dùng biết giá trị item data, hoặc thông báo cho người dùng item data chưa được set.

*Xử lý thông điệp thay đổi thành phần item được chọn trong combobox (CBN_SELCHANGE):

                                .elseif edx==CBN_SELCHANGE                     ;Change selected item
                                               
                                                .if eax==IDC_CBO1
                                                ;Get selected item with error handler
                                                                invoke SendMessage, hCombo, CB_GETCURSEL, 0, 0
                                                .if eax == CB_ERR
                                                                jmp     NoSel
                                                .endif
                               mov     ebx, eax
                                                call FillItem
                                                .endif
                                                NoSel:
                                                ;USer didnt made any choice
                .endif

Phần code này đơn giản ko cần giải thích.
Đến đây là hết. Tut này tui chỉ để lưu trữ nên ko viết chi tiết mong các bạn thông cảm. Và nói thêm 1 chút , phần code trên tôi có tham khảo 1 source trên NET tôi wên mất link rồi, sorry tác giả.


http://masm32vn.com (thanz NTA)
http://h1.ripway.com/benina/
 http://benina.250free.com
Benina 04/06/2006
Update 04/06/2006
Mail: benina@walla.com

(Không đồng ý bất kỳ ai sử dụng tài liệu này cho mục đích thương mại nếu ko được phép của người dịch)