MASM32编程状态栏显示字符动画，按钮跑马灯

矫情吗；* 2024-03-08 07:05 76阅读 0赞

## 一、需求分析 ##

由于sysInfo扫描的内容比较多，打算为它增加一点动画效果，提醒用户程序正在运行，耐心等待。

## 二、构建测试窗口 ##

测试窗口上放置有一个按钮，按钮上的初始文字是“开始扫描”；并使用状态栏，状态栏初始状态不显示文字。

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    ; 文 件 名：marquee.asm (GUI程序)
    ; 功    能: 文字动画
    ; 开发环境：Win10 PRO + MASM32 v22
    ; 作    者：PurpleEndurer,广西河池
    ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    
    .586
    .MODEL FLAT,STDCALL
    OPTION CASEMAP:NONE
    
    INCLUDE \masm32\include\windows.inc
    
    INCLUDE \masm32\include\kernel32.inc
    INCLUDELIB \masm32\lib\kernel32.lib
    
    INCLUDE \masm32\include\user32.inc
    INCLUDELIB \masm32\lib\user32.lib
    
    include \MASM32\INCLUDE\shell32.inc
    includelib \MASM32\LIB\shell32.lib
    
    include \masm32\include\comctl32.inc
    includelib \masm32\lib\comctl32.lib
        
    
    ;ssssssssssssssssssssssss
    ;.const
    ;ssssssssssssssssssssssss
    
    c_MainWinStyle   equ NULL
    c_statusBarStyle equ SBARS_SIZEGRIP or WS_CHILD or WS_VISIBLE
    c_BtnStyle       equ WS_CHILD or WS_VISIBLE or BS_DEFPUSHBUTTON
    c_BtnID          equ 198
    c_statusBarID    equ 199
    c_TimerID        equ 1000
    
    
    ;ssssssssssssssssssssssss
    ;PROTO
    ;ssssssssssssssssssssssss
    
    WinMain          proto :HINSTANCE, :HINSTANCE, :LPSTR, :DWORD
    WndProc          proto :HWND, :UINT, :WPARAM, :LPARAM
    ResizeMainWnd    proto
    Marquee          proto
    statusBarMarquee proto
    btnMarquee       proto
    
    
    ;ssssssssssssssssssssssss
    .DATA
    ;ssssssssssssssssssssssss
    g_szClassName label byte
    g_szAppInfo   db "文字动画 作者：PurpleEndurer, 广西河池", 0
    
    g_szBtnClsName  db "button", 0
    g_szScan_btn    db "开始扫描", 0   ;_btn 用于按钮
    g_szStop_btn    db "点击停止", 0
    g_szLoopTxt_btn db "点击停止", 0
    
    g_szScanning_Sb db "—正在扫描……", 0; _Sb用于状态栏
    g_szScanOver_Sb db "扫描完成", 0      ;  
    g_dwLoop_Sb     dword 0
    
    g_hInstance  HANDLE ?
    g_hwndMain   HANDLE ?
    g_hStatusBar HANDLE ?
    g_hBtn       HANDLE ?
    
    ;ssssssssssssssssssssssss
    .CODE
    ;ssssssssssssssssssssssss
    start:
      invoke GetModuleHandle, NULL
      mov    g_hInstance, eax
      invoke WinMain, g_hInstance, NULL, NULL, SW_SHOWDEFAULT
      invoke ExitProcess, eax
      invoke InitCommonControls
    
    
    ;======================================================
    WinMain proc hInst:HINSTANCE, hPrevInst:HINSTANCE, CmdLine:LPSTR, CmdShow:DWORD
    ;======================================================
     LOCAL wc:WNDCLASSEX
     LOCAL msg:MSG
     
     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   hInst
     pop    wc.hInstance
     mov    wc.hbrBackground, COLOR_WINDOW+1
     mov    wc.lpszMenuName, NULL  ;OFFSET MenuName
     mov    wc.lpszClassName, OFFSET g_szClassName
     invoke LoadIcon,NULL,IDI_APPLICATION   ;invoke LoadIcon, hInst, IDI_ICON
     mov    wc.hIcon, eax
     mov    wc.hIconSm, eax
     invoke LoadCursor, NULL, IDC_ARROW
     mov    wc.hCursor, eax
     invoke RegisterClassEx, addr wc
    
     INVOKE CreateWindowEx, c_MainWinStyle, ADDR g_szClassName,ADDR g_szAppInfo,\
               WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, CW_USEDEFAULT,500,400,NULL,NULL, hInst,NULL
     mov    g_hwndMain, eax
     INVOKE ShowWindow, g_hwndMain, SW_SHOWNORMAL
     INVOKE UpdateWindow, g_hwndMain
     .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 uses ebx hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
    ;======================================================
     mov eax, uMsg
     .IF eax==WM_CREATE
        ;创建状态栏
        invoke CreateStatusWindow, c_statusBarStyle, NULL, hWnd, c_statusBarID
        mov    g_hStatusBar, eax
    
        ;创建按钮
        invoke CreateWindowEx, NULL, ADDR g_szBtnClsName, ADDR g_szScan_btn,\
                 c_BtnStyle, 75,70,140,25, hWnd, c_BtnID, g_hInstance, NULL
        mov    g_hBtn, eax
    
     .ELSEIF eax==WM_COMMAND
       mov eax,wParam
       .if ax==c_BtnID
           shr eax,16
           .IF ax==BN_CLICKED
               ;用户点击按钮
               .if  g_dwLoop_Sb==0
                    ;进行扫描状态
                    invoke SetTimer, hWnd, c_TimerID, 1000, NULL
    		            mov    eax, OFFSET g_szStop_btn
    	         .else
    		            ;退出扫描状态
                    invoke KillTimer, hWnd, c_TimerID 
    		            mov    g_dwLoop_Sb, 0
    		            invoke SendMessage, g_hStatusBar, SB_SETTEXT, 0, OFFSET g_szScanOver_Sb
    		            invoke RedrawWindow, g_hStatusBar, NULL, NULL, RDW_INTERNALPAINT    
    		            mov    eax, OFFSET g_szScan_btn				
    	         .endif
    	         invoke SendMessage, g_hBtn ,WM_SETTEXT, 0, eax
           .ENDIF
        .endif     
     .ELSEIF eax==WM_TIMER
        ;定时调用Marquee函数
        invoke Marquee
     .ELSEIF eax==WM_SIZE
        invoke ResizeMainWnd
     .ELSEIF eax==WM_DESTROY
         invoke PostQuitMessage,NULL
     .ELSE
      invoke DefWindowProc,hWnd,uMsg,wParam,lParam
      ret
     .ENDIF
     xor eax,eax
     ret
    WndProc endp
    
    
    ;======================================================
    ResizeMainWnd proc
    ;======================================================
        invoke MoveWindow, g_hStatusBar, 0, 0, 0, 0, TRUE
        ret
    ResizeMainWnd endp
    
    END start

## 三、在状态栏显示字符动画 ##

记得以前DOS时代使用冠群金辰的杀毒软件kill，在扫描时会显示一个扫描形状的字符动画，当时觉得很有意思，映像深刻，这次就把这种效果用在状态栏上。

实现的方法就是当用户点扫描使用定时器定时刷新状态栏的文字。其中的扫描动态效果就是将依次状态栏文字的首字依次更新为—（编码：0AAA1h）、＼（编码：0DCA3h）、｜（编码：0FCA3h）、／（编码：0AFA3h）。

代码如下：

;======================================================
    Marquee proc
    ;======================================================
        invoke statusBarMarquee 
    
        ret
    Marquee endp
    
    
    ;======================================================
    statusBarMarquee proc uses eax
    ;======================================================
        inc g_dwLoop_Sb
        .if g_dwLoop_Sb > 4
            mov g_dwLoop_Sb, 1 
        .endif
    
        mov eax, offset g_szScanning_Sb
    
        .if g_dwLoop_Sb==1
            mov word ptr [eax], 0DCA3h;'＼'
        .elseif g_dwLoop_Sb==2
            mov word ptr [eax], 0FCA3h;'｜'
        .elseif g_dwLoop_Sb==3
            mov word ptr [eax], 0AFA3h;'／'
        .elseif g_dwLoop_Sb==4
             mov word ptr [eax], 0AAA1h;'—'
        .endif
    
        invoke SendMessage, g_hStatusBar, SB_SETTEXT, 0, OFFSET g_szScanning_Sb
        invoke RedrawWindow, g_hStatusBar, NULL, NULL, RDW_INTERNALPAINT    
    
        ret
    statusBarMarquee endp

## 四、按钮跑马灯 ##

窗口上的按钮初始文字是“开始扫描”，当我们点击按钮进入扫描状态时，我们将按钮文字改成“点击停止”并跑马灯。原理也是使用定时器，定期更新按钮上的文字。

代码如下：

;======================================================
    Marquee proc
    ;======================================================
        invoke btnMarquee
        invoke statusBarMarquee 
    
        ret
    Marquee endp
    
    
    ;======================================================
    btnMarquee proc uses eax ;ebx
    ;======================================================
        mov eax, offset g_szLoopTxt_btn
    
        ;保存按钮文本首字
        push word ptr [eax] ;mov bx, word ptr [eax]
    
        inc eax
        inc eax
    
        ; 按钮文字前移
        .while byte ptr [eax]!=0
            push word ptr [eax]
            pop  word ptr [eax-2]
            inc  eax
            inc  eax
        .endw
    
        ;把按钮文本首字放到末尾
        pop word ptr [eax-2] ;mov word ptr [eax-2], bx
    
        invoke SendMessage, g_hBtn ,WM_SETTEXT, 0, OFFSET g_szLoopTxt_btn
        invoke RedrawWindow, g_hBtn, NULL, NULL, RDW_INTERNALPAINT    
    
        ret
    btnMarquee endp

## 五、程序运行效果 ##

如下：

![99d6eb2f8f0726d949c693efbdfc3626.gif][]

###  ###

## 六、改进思路 ##

文字动画在DOS的CGI时代还是颇具吸引力的，放到GUI时代复古一下也是一种怀念。

如果我们追求GUI的效果，可以对状态栏进行子类化，为它创建一个进度条。对按钮子类化，显示gif图片。

## 七、附记 ##

进入Windows时代，Kill就像UCDOS一样淡出视野了。刚才为了确认无误，bing查了一下，冠群金辰的网站还在，只是内容很久没更新了。

不经意间顺带看到一篇关于火绒的文章，才知道火绒的几位创始人都出自瑞星……

[99d6eb2f8f0726d949c693efbdfc3626.gif]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/08/66b5d3bd68424d14a7fa23222eb5dddf.png