win32汇编环境,窗口程序中自定义工具栏的使用示例

news2025/2/6 5:43:06

;运行效果

;win32汇编环境,窗口程序中自定义工具栏的使用示例
;工具栏一般放在菜单下面，相当于一个个小的对话框，当然你放在其它地方也可以。
;原理是，创建一张BMP位图，比如下例用一张168*24的图，平均分成7部分，每部分相当于1个按钮的功能。图像可以用PS之类的创建。然后创建工具栏控件，之后类似于把图贴上去。
;直接抄进RadAsm可编译运行。重要部分加备注。
;下面为asm文件
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.386
.model flat,stdcall
option casemap:none
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Include 文件定义
include windows.inc
include user32.inc
include kernel32.inc
include Comctl32.inc

includelib user32.lib
includelib kernel32.lib
includelib Comctl32.lib
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 自定义函数声明
DlgProc proto :DWORD,:DWORD,:DWORD,:DWORD ;对话框窗口函数
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 数据段
.data
DlgName db "MyDialog",0

sz db "提示",0
sz01 db "点了第1个按钮",0
sz02 db "点了第2个按钮",0
sz03 db "点了第3个按钮",0
.data?
hInstance HINSTANCE ?
hWinToolbar   dd   ?
.const
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Equ 等值定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ICO_MAIN equ 1000 ;图标
ID_TOOLBAR equ   1
BMP_BIG   equ   5000

IDM_OPEN equ 2001
IDM_EXIT equ 2002
IDM_MSG equ 2003
IDM_DAORU equ 2004
IDM_DAOCHU equ 2005
IDM_ZIYUAN equ 2006
IDM_CHONGDIWEI equ 2007

;TBBUTTON 结构,可设置工具栏中各项信息，各项包含参数可以上网查询
stToolbar   equ   this byte
TBBUTTON   <0,IDM_OPEN,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0,-1>
TBBUTTON   <1,IDM_MSG,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0,-1>
TBBUTTON   <2,IDM_DAORU,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0,-1>
TBBUTTON   <3,IDM_DAOCHU,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0,-1>
TBBUTTON   <4,IDM_ZIYUAN,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0,-1>
TBBUTTON   <5,IDM_CHONGDIWEI,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0,-1>
TBBUTTON   <6,IDM_EXIT,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0,-1>
NUM_BUTTONS   EQU   7
; 代码段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.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 @szBuffer[256]:byte

.if uMsg == WM_INITDIALOG
invoke LoadIcon,hInstance,ICO_MAIN
invoke SendMessage,hWnd,WM_SETICON,ICON_BIG,eax
invoke CreateToolbarEx,hWnd,WS_VISIBLE or WS_CHILD or TBSTYLE_FLAT or TBSTYLE_TOOLTIPS,ID_TOOLBAR,7,hInstance,BMP_BIG,offset stToolbar,7,24,24,168,24,sizeof TBBUTTON ;用CreateToolbarEx函数直接生成工具栏控件
           mov   hWinToolbar,eax
.elseif   uMsg == WM_COMMAND
           mov   eax,wParam
           .if   eax == IDM_OPEN
           invoke MessageBox,NULL,addr sz01,addr sz,MB_OK
           .elseif eax == IDM_MSG
           invoke MessageBox,NULL,addr sz02,addr sz,MB_OK
           .elseif eax == IDM_DAORU
           invoke MessageBox,NULL,addr sz03,addr sz,MB_OK
           .endif
   .elseif   uMsg ==   WM_NOTIFY ;处理工具栏信息
           mov   ebx,lParam
           .if   [ebx + NMHDR.code] == TTN_NEEDTEXT
               assume   ebx:ptr TOOLTIPTEXT
               mov   eax,[ebx].hdr.idFrom
               mov   [ebx].lpszText,eax
               push   hInstance
               pop   [ebx].hinst
               assume   ebx:nothing
           .elseif   ([ebx + NMHDR.code] == TBN_QUERYINSERT) || ([ebx + NMHDR.code] == TBN_QUERYDELETE)
               mov   eax,TRUE
               ret
           .elseif   [ebx + NMHDR.code] == TBN_GETBUTTONINFO ;当鼠标停留时，显示该按钮的功能信息
               assume   ebx:ptr TBNOTIFY
               mov   eax,[ebx].iItem
               .if   eax < NUM_BUTTONS
                   mov   ecx,sizeof TBBUTTON
                   mul   ecx
                   add   eax,offset stToolbar
                   invoke   RtlMoveMemory,addr [ebx].tbButton,eax,sizeof TBBUTTON
                   invoke   LoadString,hInstance,[ebx].tbButton.idCommand,addr @szBuffer,sizeof @szBuffer
                   lea   eax,@szBuffer
                   mov   [ebx].pszText,eax
                   invoke   lstrlen,addr @szBuffer
                   mov   [ebx].cchText,eax
                   assume   ebx:nothing
                   mov   eax,TRUE
                   ret
               .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 BMP_BIG 5000

#define   IDM_OPEN   2001
#define   IDM_EXIT 2002
#define IDM_MSG 2003
#define IDM_DAORU 2004
#define IDM_DAOCHU 2005
#define IDM_ZIYUAN    2006
#define IDM_CHONGDIWEI 2007

//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ICO_MAIN ICON "Main.ico"
BMP_BIG BITMAP "Barbmp.bmp"

//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
stringtable   discardable
BEGIN
   IDM_OPEN   "打开文件"
   IDM_EXIT   "退出程序"

IDM_MSG "基本信息"
IDM_DAORU "导入表信息"
IDM_DAOCHU "导出表信息"
IDM_ZIYUAN "资源信息"
IDM_CHONGDIWEI "重定位信息"
END
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.coloradmin.cn/o/2293622.html

如若内容造成侵权/违法违规/事实不符，请联系多彩编程网进行投诉反馈，一经查实，立即删除！