API制作窗体状态栏

系统结构:创建栏宽,添加文本,改变状态栏位置,这个程序是以下面VB代码创建一个简单的状态栏程序而来的,CreateStatusWindow,SendMessage,SendMessageA,MoveWindow,

======窗口程序集1
           |  |
           |  |------ _创建按钮_被单击
           |  |
           |  |------ 创建栏宽
           |  |
           |  |------ 添加文本
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ 改变状态栏位置
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _插入按钮_被单击
           |  |
           |  |------ _删除按钮_被单击
           |  |
           |  |------ _列表框_列表项被选择
           |  |
           |  |------ _内容文本编辑框_按下某键
           |  |
           |  |------ _内容文本编辑框_内容被改变
           |  |
           |  |------ _栏目数值编辑框_内容被改变
           |  |
           |  |------ _栏目数值编辑框_按下某键
           |  |
           |  |------ _插入按钮_按下某键
           |  |
           |  |
======VB代码程序集
           |  |
           |  |------ 这个程序是以下面VB代码创建一个简单的状态栏程序而来的
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateStatusWindow
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   SendMessageA
           |  |
           |  |---[dll]------   MoveWindow

调用的DLL命令:

.DLL命令 CreateStatusWindow, 整数型, "comctl32.dll"
    .参数 style, 整数型
    .参数 lpszText, 文本型
    .参数 hwndParent, 整数型
    .参数 wID, 整数型

.DLL命令 SendMessage, 整数型, , "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型, 数组

.DLL命令 SendMessageA, 整数型, , "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 文本型

.DLL命令 MoveWindow, 整数型
    .参数 hwnd, 整数型
    .参数 X, 整数型
    .参数 Y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 bRepaint, 整数型