notebook.txt

来自「驾驶员考试系统,汇编编写,qq332779423」· 文本 代码 · 共 30 行

Tab4Proc proc hWnd:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM

	.if uMsg==WM_INITDIALOG
		invoke CreateWindowEx,0,CTXT("AniGIF"),0,WS_VISIBLE or WS_CHILD or WAGS_AUTOSIZE,10,20,10,10,hWnd,2000,hInstance,0
		invoke SendDlgItemMessage,hWnd,2000,WAGM_LOADGIFFROMFILE,0,CTXT(".\test.gif")
		invoke GetSysColor,COLOR_BTNFACE
		invoke SendDlgItemMessage,hWnd,2000,WAGM_SETBKCOLOR,0,eax
		invoke	SetTimer,hTab4,ID_TIMER2,10000,NULL  ;设置timer
	.ELSEIF uMsg ==  WM_TIMER
		.IF		wParam==ID_TIMER2
			invoke	mciGetCreatorTask,CTXT("Sequencer")
			_Debug		"显示寄存器或 double word 变量","eax 的值",eax
			.if	eax
				invoke PlayMidiFile,hWnd,CTXT("Sample.mid")
			.endif			
		.endif	
	.elseif eax==MM_MCINOTIFY
		invoke mciSendCommand,MidDeviceID,MCI_CLOSE,0,0
		invoke PlayMidiFile,hWnd,CTXT("Sample.mid")			
	.ELSEIF uMsg ==  WM_CLOSE
		invoke	KillTimer, hTab4, ID_TIMER1
	.else
		mov		eax,FALSE
		ret
	.endif
	mov		eax,TRUE
	ret

Tab4Proc endp