win32汇编环境,对话框程序中基础列表框的应用举例

;运行效果

;win32汇编环境,对话框程序中基础列表框的应用举例
;比如在对话框程序中生成列表框,增加子项,删除某项,取得指定项内容等
;直接抄进RadAsm可编译运行。重点部分加备注。
;以下是ASM文件
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.386 
.model flat,stdcall 
option casemap:none 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Include 文件定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
include    windows.inc 
include    user32.inc 
include    kernel32.inc
include    gdi32.inc
 
includelib user32.lib 
includelib kernel32.lib 
includelib gdi32.lib

; 自定义函数声明
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
DlgProc proto :DWORD,:DWORD,:DWORD,:DWORD   ;对话框窗口函数

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 数据段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.data 
DlgName    db "MyDialog",0
 
szTitle     db "提示",0 

szAddLib01  db "刘备",0 
szAddLib02  db "关羽",0 
szAddLib03  db "张飞",0 
szAddLib04  db "孙策",0
szAddLib05  db "吕布",0

szFormat    db    '总项数是 %d',0

.data? 
hInstance HINSTANCE             ? 

.const 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Equ 等值定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ICO_MAIN      equ 1000    ;图标
ID_GROUP01    equ 11
IDL01         equ 21

IDB01         equ 31   
IDB02         equ 32 
IDB03         equ 33  
IDB04         equ 34 
IDB05         equ 35       
  
; 代码段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.code 
start: 
         invoke GetModuleHandle, NULL 
         mov    hInstance,eax 
         invoke DialogBoxParam, hInstance, ADDR DlgName,NULL, addr DlgProc, NULL 
         invoke ExitProcess,eax 

DlgProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM 
        LOCAL   @DEFAULT_GUI_FONT,@OLD_DEFAULT_GUI_FONT
        LOCAL   @szBuffer[256]:byte
        
        .if     uMsg == WM_INITDIALOG 
                invoke    LoadIcon,hInstance,ICO_MAIN    
            invoke    SendMessage,hWnd,WM_SETICON,ICON_BIG,eax
            
                invoke  GetStockObject,DEFAULT_GUI_FONT 
                mov @DEFAULT_GUI_FONT,eax
                
                invoke  GetDlgItem,hWnd,ID_GROUP01                                                      ;调用GetStockObject函数,得到系统默认字体                                                                         
                invoke  SendMessage,eax,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE                               ;发送WM_SETFONT消息,设置控件的字体 
                invoke  GetDlgItem,hWnd,IDL01                                                                                                                                                  
                invoke  SendMessage,eax,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE

                invoke  GetDlgItem,hWnd,IDB01                                                                                                                                                 
                invoke  SendMessage,eax,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE
                invoke  GetDlgItem,hWnd,IDB02                                                                                                                                                 
                invoke  SendMessage,eax,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE
                invoke  GetDlgItem,hWnd,IDB03                                                                                                                                                 
                invoke  SendMessage,eax,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE
                invoke  GetDlgItem,hWnd,IDB04                                                                                                                                                 
                invoke  SendMessage,eax,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE
                invoke  GetDlgItem,hWnd,IDB05                                                                                                                                                 
                invoke  SendMessage,eax,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE
                
                
                invoke    SendDlgItemMessage,hWnd,IDL01,LB_ADDSTRING,0,addr szAddLib01
                invoke  SendDlgItemMessage,hWnd,IDL01,LB_SETCURSEL,0,0                                   ;设置为焦点项
                invoke    SendDlgItemMessage,hWnd,IDL01,LB_ADDSTRING,0,addr szAddLib02
                invoke    SendDlgItemMessage,hWnd,IDL01,LB_ADDSTRING,0,addr szAddLib03
                        
        invoke  DeleteObject,@DEFAULT_GUI_FONT                                                   ;删除本程序新建的字体
        .elseif uMsg == WM_COMMAND                                                                
                mov eax,wParam
                mov edx,wParam         
                shr edx,16
                .if ax == IDB01
                        .if dx == BN_CLICKED
                                invoke SendDlgItemMessage,hWnd,IDL01,LB_ADDSTRING,0,addr szAddLib04      ;从后面增加新项
                        .endif
                .elseif ax == IDB02 
                        .if dx == BN_CLICKED
                                invoke GetDlgItem,hWnd,IDL01                                             ;得到列表控件的句柄
                                invoke SendMessage,eax,LB_GETCURSEL,0,0                                  ;得到当前选中项的索引,从0开始
                                invoke SendDlgItemMessage,hWnd,IDL01,LB_DELETESTRING,eax,0               ;删除指定项,eax是焦点项 
                        .endif
                .elseif ax == IDB03 
                        .if dx == BN_CLICKED
                                invoke SendDlgItemMessage,hWnd,IDL01,LB_INSERTSTRING,1,addr szAddLib05   ;插入某项,索引从0开始,1就是第2项
                        .endif 
                .elseif ax == IDB04 
                        .if dx == BN_CLICKED
                                invoke SendDlgItemMessage,hWnd,IDL01,LB_GETCOUNT,0,0                     ;获取总项数
                                invoke wsprintf,addr @szBuffer,addr szFormat,eax                                                                                                     
                                invoke MessageBox,hWnd,addr @szBuffer,addr szTitle,MB_OK or MB_ICONINFORMATION  

                        .endif     
                .elseif ax == IDB05 
                        .if dx == BN_CLICKED
                                invoke GetDlgItem,hWnd,IDL01                                                                        
                                invoke SendMessage,eax,LB_GETCURSEL,0,0 
                                mov ebx,eax                                 
                                invoke SendDlgItemMessage,hWnd,IDL01,LB_GETTEXT,ebx,addr @szBuffer   ;addr前不能使用eax,所以用ebx转一下                                                                                                        
                                invoke MessageBox,hWnd,addr @szBuffer,addr szTitle,MB_OK or MB_ICONINFORMATION  
                        .endif     
                .endif
        .elseif uMsg == WM_CLOSE 
                invoke EndDialog, hWnd,NULL 
        .else 
                mov eax,FALSE 
                ret 
        .endif 
                mov eax,TRUE 
        ret 
DlgProc endp 

end start 
 

;下面为rc文件内容
#include "resource.h"           //提示缺少该文件,可以在资源里下载
#define    ICO_MAIN      1000    //图标
#define ID_GROUP01    11
#define IDL01         21

#define IDB01       31          //按钮标识符
#define IDB02       32
#define IDB03       33
#define IDB04       34
#define IDB05       35
  
ICO_MAIN    ICON        "Main.ico"

//定义对话框
MyDialog DIALOG 10, 10, 110, 200 
STYLE  DS_CENTER | WS_CAPTION | WS_MINIMIZEBOX | 
WS_SYSMENU | WS_VISIBLE | WS_OVERLAPPED | DS_MODALFRAME | DS_3DLOOK 
CAPTION "对话框程序模版" 

BEGIN 
     CONTROL "只能选一项",ID_GROUP01,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP|BS_GROUPBOX,10,5,90,75  //组框,就是周围的框,装饰作用
     CONTROL "",IDL01,"LISTBOX",WS_BORDER|WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,15,15,80,60                 //定义列表框,此为基础列表框,更多类型可查阅相关文档

     CONTROL "新增孙策",IDB01,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,10,90,90,14          
     CONTROL "删除选中项",IDB02,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,10,110,90,14          
     CONTROL "将吕布插入第2项",IDB03,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,10,130,90,14          
     CONTROL "得到总项数",IDB04,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,10,150,90,14     
     CONTROL "得到选中项的名称",IDB05,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,10,170,90,14

END 


 

提供的源码资源涵盖了Java应用等多个领域,每个领域都包含了丰富的实例和项目。这些源码都是基于各自平台的最新技术和标准编写,确保了在对应环境下能够无缝运行。同时,源码配备了详细的注释和文档,帮助用户快速理解代码结构和实现逻辑。 适用人群: 适合毕业设计、课程设计作业。这些源码资源特别适合大学生群体。无论你是计算机相关专业的学生,还是对其他领域编程感兴趣的学生,这些资源都能为你提供宝贵的学习和实践机会。通过学习和运行这些源码,你可以掌握各平台开发的基础知识,提升编程能力和项目实战经验。 使用场景及目标: 在学习阶段,你可以利用这些源码资源进行课程实践、课外项目或毕业设计。通过分析和运行源码,你将深入了解各平台开发的技术细节和最佳实践,逐步培养起自己的项目开发和问题解决能力。此外,在求职或创业过程,具备跨平台开发能力的大学生将更具竞争力。 其他说明: 为了确保源码资源的可运行性和易用性,特别注意了以下几点:首先,每份源码都提供了详细的运行环境和依赖说明,确保用户能够轻松搭建起开发环境;其次,源码的注释和文档都非常完善,方便用户快速上手和理解代码;最后,我会定期更新这些源码资源,以适应各平台技术的最新发展和市场需求。 所有源码均经过严格测试,可以直接运行,可以放心下载使用。有任何使用问题欢迎随时与博主沟通,第一时间进行解答!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

一品人家

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值