;运行效果
;win32汇编环境,窗口程序中单选框的一般操作示例
;比如在窗口程序中生成单选框，默认哪项选中，判断当前选中哪一项，让哪项选中，得到选中项的名称等
;直接抄进RadAsm可编译运行。重点部分加备注。
;以下是ASM文件
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.386
.model flat,stdcall
option casemap:none
include windows.inc
include user32.inc
include kernel32.inc
include gdi32.inc
includelib kernel32.lib
includelib user32.lib
includelib gdi32.lib
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.DATA
ClassName db "SimpleWinClass",0
AppName db "窗口程序的模版",0
szButtonClassName db "button",0 ;单选框属于按钮类名
szTitle db "提示",0
szCheckTitle db "请选一位美女",0
szCheckTitle01 db "西施",0
szCheckTitle02 db "绍婵",0
szCheckTitle03 db "妲已",0
szChecked01 db "当前选中的是： 西施",0
szChecked02 db "当前选中的是： 绍婵",0
szChecked03 db "当前选中的是： 妲已",0
szCheshi_Format01 db "得到的数字是 %d",0
szCheshi_Format02 db "得到的字符串的字节数是 %d",0
szButtonTitle01 db "点击查看当前选定了哪一项",0
szButtonTitle02 db "让所有项都处于未选中状态",0
szButtonTitle03 db "选中第3项",0
szButtonTitle04 db "得到第1项的名称",0
szButtonTitle05 db "得到第2个编辑框的密码",0
.DATA?
hInstance HINSTANCE ?
CommandLine LPSTR ?
hID_GROUP dd ? ;组框控件句柄
hID_CHECK01 dd ? ;单选框控件句柄
hID_CHECK02 dd ?
hID_CHECK03 dd ?
hIDB01 dd ? ;按钮控件句柄
hIDB02 dd ?
hIDB03 dd ?
hIDB04 dd ?
.CONST
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>; Equ 等值定义;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ID_CHECK01 equ 11 ;编辑框控件标识符
ID_CHECK02 equ 12
ID_CHECK03 equ 13
IDB01 equ 21 ;按钮控件标识符
IDB02 equ 22
IDB03 equ 23
IDB04 equ 24
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.CODE
start:
invoke GetModuleHandle, NULL
mov hInstance,eax
invoke GetCommandLine
mov CommandLine,eax
invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
invoke ExitProcess, eax
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
LOCAL hwnd:HWND
mov wc.cbSize,SIZEOF WNDCLASSEX
mov wc.style, CS_HREDRAW or CS_VREDRAW
mov wc.lpfnWndProc, OFFSET WndProc
mov wc.cbClsExtra,NULL
mov wc.cbWndExtra,NULL
push hInstance
pop wc.hInstance
mov wc.hbrBackground,COLOR_WINDOW+1
mov wc.lpszMenuName,NULL
mov wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_APPLICATION
mov wc.hIcon,eax
mov wc.hIconSm,eax
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
invoke RegisterClassEx, addr wc
invoke CreateWindowEx,NULL, ADDR ClassName,ADDR AppName,WS_CAPTION or WS_SYSMENU or WS_MINIMIZEBOX ,100,100,250,340, NULL,NULL,hInst, NULL
mov hwnd,eax
invoke ShowWindow, hwnd,CmdShow
invoke UpdateWindow, hwnd
.while TRUE
invoke GetMessage, ADDR msg,NULL,0,0
.break .if (!eax)
invoke TranslateMessage, ADDR msg
invoke DispatchMessage, ADDR msg
.endw
mov eax,msg.wParam
ret
WinMain endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
LOCAL @DEFAULT_GUI_FONT,@OLD_DEFAULT_GUI_FONT
LOCAL @szBuffer[256]:byte
LOCAL @szBuffer01[256]:byte
.if uMsg == WM_CREATE
invoke CreateWindowEx,NULL,ADDR szButtonClassName,ADDR szCheckTitle, WS_TABSTOP OR WS_VISIBLE OR WS_CHILD OR BS_GROUPBOX,10,10,220,105,hWnd,NULL,NULL,NULL ;创建组框控件
mov hID_GROUP,eax
invoke CreateWindowEx,NULL,ADDR szButtonClassName,ADDR szCheckTitle01, WS_TABSTOP OR WS_VISIBLE OR WS_CHILD OR BS_AUTORADIOBUTTON,20,30,200,25,hWnd,ID_CHECK01,NULL,NULL ;创建单选框控件
mov hID_CHECK01,eax
invoke CreateWindowEx,NULL,ADDR szButtonClassName,ADDR szCheckTitle02, WS_TABSTOP OR WS_VISIBLE OR WS_CHILD OR BS_AUTORADIOBUTTON,20,55,200,25,hWnd,ID_CHECK02,NULL,NULL
mov hID_CHECK02,eax
invoke CreateWindowEx,NULL,ADDR szButtonClassName,ADDR szCheckTitle03, WS_TABSTOP OR WS_VISIBLE OR WS_CHILD OR BS_AUTORADIOBUTTON,20,80,200,25,hWnd,ID_CHECK03,NULL,NULL
mov hID_CHECK03,eax
invoke CreateWindowEx,NULL,ADDR szButtonClassName,ADDR szButtonTitle01, WS_TABSTOP OR WS_VISIBLE OR WS_CHILD OR BS_DEFPUSHBUTTON ,20,140,200,25,hWnd,IDB01,NULL,NULL ;创建按钮控件
mov hIDB01,eax
invoke CreateWindowEx,NULL,ADDR szButtonClassName,ADDR szButtonTitle02, WS_TABSTOP OR WS_VISIBLE OR WS_CHILD OR BS_DEFPUSHBUTTON ,20,180,200,25,hWnd,IDB02,NULL,NULL
mov hIDB02,eax
invoke CreateWindowEx,NULL,ADDR szButtonClassName,ADDR szButtonTitle03, WS_TABSTOP OR WS_VISIBLE OR WS_CHILD OR BS_DEFPUSHBUTTON ,20,220,200,25,hWnd,IDB03,NULL,NULL
mov hIDB03,eax
invoke CreateWindowEx,NULL,ADDR szButtonClassName,ADDR szButtonTitle04, WS_TABSTOP OR WS_VISIBLE OR WS_CHILD OR BS_DEFPUSHBUTTON ,20,260,200,25,hWnd,IDB04,NULL,NULL
mov hIDB04,eax
invoke GetStockObject,DEFAULT_GUI_FONT ;调用GetStockObject函数，得到系统默认字体
mov @DEFAULT_GUI_FONT,eax
invoke SendMessage,hID_GROUP,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE ;发送WM_SETFONT消息，设置控件的字体
invoke SendMessage,hID_CHECK01,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE
invoke SendMessage,hID_CHECK02,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE
invoke SendMessage,hID_CHECK03,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE
invoke SendMessage,hIDB01,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE
invoke SendMessage,hIDB02,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE
invoke SendMessage,hIDB03,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE
invoke SendMessage,hIDB04,WM_SETFONT,@DEFAULT_GUI_FONT,TRUE
invoke DeleteObject,@DEFAULT_GUI_FONT ;删除本程序新建的字体
invoke CheckDlgButton,hWnd,ID_CHECK02,BST_CHECKED ;可以先初始化让哪个处于选定状态,初定为第2项
.elseif uMsg == WM_COMMAND
mov eax,wParam
.if lParam != 0
mov edx,wParam
shr edx,16
.if dx == BN_CLICKED
.if ax == IDB01
invoke IsDlgButtonChecked,hWnd,ID_CHECK01 ;检查第1项是否选中
.if eax == BST_CHECKED ;如果选中，则弹出提示
invoke MessageBox,NULL,addr szChecked01,addr szTitle,MB_OK
.endif
invoke IsDlgButtonChecked,hWnd,ID_CHECK02
.if eax == BST_CHECKED
invoke MessageBox,NULL,addr szChecked02,addr szTitle,MB_OK
.endif
invoke IsDlgButtonChecked,hWnd,ID_CHECK03
.if eax == BST_CHECKED
invoke MessageBox,NULL,addr szChecked03,addr szTitle,MB_OK
.endif
.elseif ax == IDB02
invoke CheckDlgButton,hWnd,ID_CHECK01,BST_UNCHECKED ;让3项都未选中
invoke CheckDlgButton,hWnd,ID_CHECK02,BST_UNCHECKED
invoke CheckDlgButton,hWnd,ID_CHECK03,BST_UNCHECKED
.elseif ax == IDB03
invoke CheckDlgButton,hWnd,ID_CHECK03,BST_CHECKED ;选中第3项
invoke CheckDlgButton,hWnd,ID_CHECK01,BST_UNCHECKED
invoke CheckDlgButton,hWnd,ID_CHECK02,BST_UNCHECKED
.elseif ax == IDB04
invoke GetDlgItemText,hWnd,ID_CHECK01,addr @szBuffer,sizeof @szBuffer ;得到第1项的名称
invoke MessageBox,hWnd,addr @szBuffer,addr szTitle,MB_OK or MB_ICONINFORMATION
.endif
.endif
.endif
.elseif uMsg==WM_DESTROY
invoke PostQuitMessage,NULL
.else
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
ret
.endif
xor eax,eax
ret
WndProc endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
end start