爱爱小说网 > 其他电子书 > windows环境下32位汇编语言程序设计 >

第22章

windows环境下32位汇编语言程序设计-第22章

小说: windows环境下32位汇编语言程序设计 字数: 每页3500字

按键盘上方向键 ← 或 → 可快速上下翻页,按键盘上的 Enter 键可回到本书目录页,按键盘上方向键 ↑ 可回到本页顶部!
————未阅读完?加入书签已便下次继续阅读!




szText1        db    'Hello; World!';0

szText2        db    '嘿,你看到标题栏变了吗?';0

szText3        db    '自定义';0

;》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》

; 代码段

;》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》

               de

;》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》

_ProcDlgMain   proc      uses ebx edi esi hWnd;wMsg;wParam;lParam

               local     @szBuffer'128':byte

 

               mov       eax;wMsg

               。if       eax  WM_CLOSE

                          invoke          EndDialog;hWnd;NULL

                          invoke          DeleteObject;hBmp1

                          invoke          DeleteObject;hBmp2

               。elseif   eax  WM_INITDIALOG

;********************************************************************

; 设置标题栏图标

;********************************************************************

                     invoke   LoadIcon;hInstance;ICO_MAIN

                     invoke   SendMessage;hWnd;WM_SETICON;ICON_BIG;eax

;********************************************************************

; 初始化组合框

;********************************************************************

                     invoke   SendDlgItemMessage;hWnd;

                              IDC_TITLETEXT;CB_ADDSTRING;0;addr szText1

                      invoke   SendDlgItemMessage;hWnd;

                              IDC_TITLETEXT;CB_ADDSTRING;0;addr szText2

                      invoke   SendDlgItemMessage;hWnd;

                              IDC_TITLETEXT;CB_ADDSTRING;0;addr szText3

                      invoke   SendDlgItemMessage;hWnd;

                              IDC_TITLETEXT;CB_SETCURSEL;0;0

                      invoke   GetDlgItem;hWnd;IDC_CUSTOMTEXT

                      invoke   EnableWindow;eax;FALSE

                     invoke   LoadBitmap;hInstance;IDB_1

                      mov      hBmp1;eax

                      invoke   LoadBitmap;hInstance;IDB_2

                     mov      hBmp2;eax

;********************************************************************

; 初始化单选钮和复选框

;********************************************************************

                      invoke   CheckDlgButton;hWnd;IDC_SHOWBMP;BST_CHECKED

                     invoke   CheckDlgButton;hWnd;IDC_ALOW;BST_CHECKED

                      invoke   CheckDlgButton;hWnd;

                               IDC_THICKFRAME;BST_CHECKED

;********************************************************************

; 初始化滚动条

;********************************************************************

                     invoke   SendDlgItemMessage;hWnd;

                               IDC_SCROLL;SBM_SETRANGE;0;100

;********************************************************************

      。elseif  eax  WM_MAND

                        mov ax;wParam

;********************************************************************

; 由于印刷宽度有限,WM_MAND消息处理代码的缩进格式有所影响,请读者注意

;********************************************************************

。if   ax     IDCANCEL

      invoke   EndDialog;hWnd;NULL

      invoke   DeleteObject;hBmp1

      invoke   DeleteObject;hBmp2

;********************************************************************

; 更换图片

;********************************************************************

。elseifax    IDOK

      mov      eax;hBmp1

      xchg     eax;hBmp2

      mov      hBmp1;eax

      invoke   SendDlgItemMessage;hWnd;IDC_BMP;STM_SETIMAGE;IMAGE_BITMAP;eax

;********************************************************************

; 设置是否“总在最前面”

;********************************************************************

。elseifax    IDC_ONTOP

      invoke   IsDlgButtonChecked;hWnd;IDC_ONTOP

      。if      eax  BST_CHECKED

               invoke  SetWindowPos;hWnd;HWND_TOPMOST;0;0;0;0;

                       SWP_NOMOVE or SWP_NOSIZE

      。else

               invoke  SetWindowPos;hWnd;HWND_NOTOPMOST;0;0;0;0;

                        SWP_NOMOVE or SWP_NOSIZE

      。endif

;********************************************************************

; 演示隐藏和显示图片控件

;********************************************************************

。elseifax    IDC_SHOWBMP

      invoke   GetDlgItem;hWnd;IDC_BMP

      mov      ebx;eax

      invoke   IsWindowVisible;ebx

      。if      eax

               invoke ShowWindow;ebx;SW_HIDE

      。else

               invoke ShowWindow;ebx;SW_SHOW

      。endif

;********************************************************************

; 演示允许和灰化“更换图片”按钮

;********************************************************************

。elseifax    IDC_ALOW

      invoke   IsDlgButtonChecked;hWnd;IDC_ALOW

      。if      eax  BST_CHECKED

               mov   ebx;TRUE

      。else

               xor   ebx;ebx

      。endif

      invoke   GetDlgItem;hWnd;IDOK

      invoke   EnableWindow;eax;ebx

;********************************************************************

。elseifax    IDC_MODALFRAME

      invoke   GetWindowLong;hWnd;GWL_STYLE

      and eax;not WS_THICKFRAME

      invoke   SetWindowLong;hWnd;GWL_STYLE;eax

。elseifax    IDC_THICKFRAME

      invoke   GetWindowLong;hWnd;GWL_STYLE

      or       eax;WS_THICKFRAME

      invoke   SetWindowLong;hWnd;GWL_STYLE;eax

;********************************************************************

; 演示处理下拉式组合框

;********************************************************************

。elseif ax   IDC_TITLETEXT

      shr      eax;16

;********************************************************************



 
来源:电子工业出版社 作者:罗云彬 上一页         回书目         下一页          
上一页         回书目         下一页          
  


第5章 使用资源


5。4 对 话 框(6)

    
      。if      ax    CBN_SELENDOK

               invoke  SendDlgItemMessage;hWnd;

                       IDC_TITLETEXT;CB_GETCURSEL;0;0

               。if     eax    2

                        invoke   GetDlgItem;hWnd;IDC_CUSTOMTEXT

                        invoke   EnableWindow;eax;TRUE                               。else

                        mov      ebx;eax

                        invoke   SendDlgItemMessage;hWnd;IDC_TITLETEXT;

                                 CB_GETLBTEXT;ebx;addr @szBuffer

                        invoke   SetWindowText;hWnd;addr @szBuffer

                        invoke   GetDlgItem;hWnd;IDC_CUSTOMTEXT

                        invoke   EnableWindow;eax;FALSE

               。endif

      。endif

;********************************************************************

; 在文本框中输入文字

;********************************************************************

。elseifax    IDC_CUSTOMTEXT

      invoke   GetDlgItemText;hWnd;IDC_CUSTOMTEXT;

               addr @szBuffer;sizeof @szBuffer

      invoke   SetWindowText;hWnd;addr @szBuffer

。endif

;********************************************************************

; 恢复代码的缩进格式,请读者注意

;********************************************************************

; 处理滚动条消息

;********************************************************************

      。elseif  eax    WM_HSCROLL

                            mov     eax;wParam

                            。if     ax    SB_LINELEFT

                                    dec     dwPos

                            。elseif ax    SB_LINERIGHT

                                    inc     dwPos

                            。elseif ax    SB_PAGELEFT

                                    sub     dwPos;10

                            。elseif ax    SB_PAGERIGHT

                                    add     dwPos;10

                            。elseif  ax     SB_THUMBPOSITION || ax  SB_THUMBTRACK

                                    mov     eax;wParam

                                    shr     eax;16

                                    mov     dwPos;eax

                            。else

                                    mov     eax;TRUE

                                    ret

                            。endif

                            cmp     dwPos;0

                            jge     @F

                            mov     dwPos;0

                            @@:

                            cmp     dwPos;100

                            jle     @F

                            mov     dwPos;100

                            @@:

                            invoke  SetDlgItemInt;hWnd;IDC_VALUE;dwPos;FALSE

                            invoke  SendDlgItemMessage;hWnd;

                                    IDC_SCROLL;SBM_SETPOS;dwPos;TRUE

;********************************************************************             。else

                            mov     eax;FALSE

                            ret

                    。endif         

                    mov     eax;TRUE

                    ret

        

_ProcDlgMain        endp

;》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》

start:

                    invoke  GetModuleHandle;NULL

                    mov     hInstance;eax

                    invoke  DialogBoxParam;hInstance;DLG_MAIN;

                            NULL;offset _ProcDlgMain;NULL

                    invoke  ExitProcess;NULL

;》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》

                    end     start

2。 子窗口控件的通用使用方法

由于子窗口控件实际上就是窗口,大部分窗口函数对它们都是适用的,如可以用EnableWindow在灰化和允许状态之间切换,可以用ShowWindow在显示和隐藏之间切换,可以用GetWindowText和SetWindowText来改变上面的文字,也可以用MoveWindow来改变大小和移动位置等。在Control。asm中用“显示图片”复选框切换图片框的隐藏和显示,用的就是ShowWindow函数,处理“允许更换图片”复选框时切换“更换图片”按钮的状态,用的是EnableWindow函数。

除了可以用对子窗口控件使用窗口的通用函数外,还可以使用针对它们的专用函数。下面介绍一些常用的函数。

在资源脚本文件中定义的是控件的ID,当这些子窗口控件被创建以后同样会有一个窗口句柄,但既然它们不是由我们自己创建的,那么怎么知道它们的窗口句柄呢?有一个函数可以从ID中获取子窗口句柄:

invoke  GetDlgItem;hDlg;dwIDDlgItem

mov hDlgItem;eax

函数的输入参数是对话框句柄和ID值,返回值是子窗口句柄;反过来,有两种方法可以从子窗口句柄获取ID:

(1) invoke  GetDlgCtrlID;hWndCtrl   ;输入子窗口句柄,返回值是控件ID

(2) invoke  GetWindowLong;hWndCtrl;GWL_ID

当需要向控件发送消息的时候,当然可以先用GetDlgItem获取子窗口句柄再用SendMessage函数,但有一个函数更为简便:

invoke  SendDlgItemMessage;hDlg;dwIDDlgItem;Msg;wParam;lParam

这个函数可以直接向控件发送消息,只需要在参数中指定对话框句柄和子窗口ID(注意:并没有PostDlgItemMessage这样的函数!)。

如果要想知道在一个控件上按下了Tab键或Shift+Tab键会跳到哪一个控件上去,也就是说下一个或上一个Tab停留位在哪里,可以使用GetNextDlgTabItem函数:

invoke  GetNextDlgTabItem;hDlg;hCtl;bPrevious

。if     eax

         mov hWinNext;eax

。endif

返回目录 上一页 下一页 回到顶部 2 2

你可能喜欢的