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

简介: MASM32编程状态栏显示字符动画,按钮跑马灯

一、需求分析

由于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

image.png

五、改进思路

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

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

六、附记

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

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


相关文章
|
3月前
|
Windows
MASM32编程状态栏显示字符动画,按钮跑马灯
MASM32编程状态栏显示字符动画,按钮跑马灯
|
5月前
|
开发框架 数据可视化 C#
|
前端开发
【30天30个小项目】菜单悬停动画
【30天30个小项目】菜单悬停动画
72 0
【30天30个小项目】菜单悬停动画
UGUI系列-鼠标移动到按钮上显示信息(Unity3D)
有时候图标不能很好的说明这个功能的解释,就需要一些说明性文字显示。就比如可以在鼠标移动到UI上面的时候显示文字。 那么如何在UGUI上,鼠标移动上去显示文字说明呢。 大家都知道,当鼠标移动到button按钮上面的时候会出现变化,主要是button这个组件在控制
|
计算机视觉
Qt实用技巧:界面切换使用Dialog全屏切换
Qt实用技巧:界面切换使用Dialog全屏切换
Qt-QML-Button-ButtonStyle-实现鼠标滑过点击效果
上次实现的自定义的Button功能是用的自定义的Rectangle来实现的,在慢慢的接触了QML之后,发现QML有自己定义的Button
563 0
Qt-QML-Button-ButtonStyle-实现鼠标滑过点击效果
|
API 数据安全/隐私保护
VB编程:无标题栏窗体移动和自定义鼠标样式
VB编程:无标题栏窗体移动和自定义鼠标样式
253 0
|
开发工具 C语言
Qt编写自定义控件37-发光按钮
一、前言 这个控件是好早以前写的,已经授权过好几个人开源过此控件代码,比如红磨坊小胖,此控件并不是来源于真实需求,而仅仅是突发奇想,类似于星星的闪烁,越到边缘越来越淡,定时器动态改变边缘发光的亮度,产生呼吸的效果,别名叫会呼吸的痛,看到这个歌名,又让我想起了前女友,哎!久久不能忘怀!大致的原理就是使用了锥形渐变QRadialGradient,然后定时器改变该渐变画刷的颜色的透明度值,产生呼吸效果。
1273 0
|
UED
uwp - 做一个相对炫酷的动画按钮/按钮动画
原文:uwp - 做一个相对炫酷的动画按钮/按钮动画   看腻了系统自带的button animation何不尝试下自定义一个较为炫酷的动画顺便提升用户体验。效果图: 动画分为几个部分,分别是:内圆从中心放大(1)并同时渐隐(2),外圆从中心放大(3)并同时渐隐(4),按钮整体从中心缩小放大(5),非常简单对吧,代码也是。
1107 0