.版本 2 .程序集 窗口程序集1 .程序集变量 hdc, 整数型 .程序集变量 按下, 逻辑型 .程序集变量 Penhandle, 整数型, , , ' 本源码来自三叶资源网(www.sanye.cx) .程序集变量 右键被按下, 逻辑型 .程序集变量 k, PAINTSTRUCT .程序集变量 idSaved, 整数型 .程序集变量 whdc, 整数型 .子程序 __启动窗口_鼠标左键被按下, 逻辑型, , ' 本源码来自三叶资源网(www.sanye.cx) .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .局部变量 坐标, POINTAPI .局部变量 i, , 静态 MoveToEx (hdc, 横向位置, 纵向位置, 坐标) ' 移动画笔 按下 ＝ 真 ' 本源码来自三叶资源网(www.sanye.cx) i ＝ i ＋ 1 TextOut (hdc, 横向位置, 纵向位置, 到文本 (i), 取文本长度 (到文本 (i))) ' 输出文字 .子程序 __启动窗口_将被销毁 ReleaseDC (取窗口句柄 (), hdc) ' 释放设备资源 ReleaseDC (取窗口句柄 (), whdc) ' 释放设备资源 DeleteObject (Penhandle) ' 删除画笔对象 .子程序 __启动窗口_鼠标位置被移动, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .局部变量 坐标, POINTAPI .局部变量 矩形, 矩形_ .如果真 (按下) LineTo (hdc, 横向位置, 纵向位置) ' 画直线 .如果真结束 .如果真 (右键被按下) 矩形.左边 ＝ 横向位置 － 10 矩形.顶边 ＝ 纵向位置 － 10 矩形.右边 ＝ 横向位置 ＋ 10 矩形.底边 ＝ 纵向位置 ＋ 10 InvalidateRect (取窗口句柄 (), 矩形, 1) ' 删除区域 .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .子程序 __启动窗口_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 按下 ＝ 假 ' 本源码来自三叶资源网(www.sanye.cx) .子程序 __启动窗口_鼠标右键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 右键被按下 ＝ 真 .子程序 __启动窗口_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 右键被按下 ＝ 假 .子程序 _按钮1_被单击 ' RestoreDC (hdc, idSaved) ' Rectangle (hdc, 10, 10, 50, 40) 时钟1.时钟周期 ＝ 50 hdc ＝ GetDC (取窗口句柄 ()) ' 设备初使化... whdc ＝ GetWindowDC (取窗口句柄 ()) Penhandle ＝ CreatePen (#PS_SOLID, 3, #紫色) ' 创建画笔，宽度为3，类型（PS_SOLID）为实线，颜色为紫色 SelectObject (hdc, Penhandle) ' 把画笔载入HDC（设备场景） SelectObject (whdc, Penhandle) ' 把画笔载入HDC（设备场景） SetBkColor (hdc, 取颜色值 (244, 244, 244)) ' 把设备的背景颜色设为和窗口底色一样 SetTextColor (hdc, #红色) ' 把设备的前景设为红色 ' idSaved ＝ SaveDC (hdc) 编辑框1.可视 ＝ 假 按钮1.可视 ＝ 假 .子程序 进度条 .参数 进度值, 整数型 .参数 进度内容, 文本型, 可空 .局部变量 矩形, RECT .局部变量 矩形2, RECT .局部变量 hBrush, 整数型 .局部变量 Color, 小数型 .局部变量 i, 整数型 .局部变量 y, 整数型 矩形.Left ＝ 30 矩形.Top ＝ 2 矩形.Right ＝ 400 ' 本源码来自三叶资源网(www.sanye.cx) 矩形.Bottom ＝ 28 Rectangle (whdc, 矩形.Left, 矩形.Top, 矩形.Right, 矩形.Bottom) 矩形2.Left ＝ 32 矩形2.Top ＝ 矩形.Top ＋ 2 矩形2.Right ＝ (矩形.Right － 矩形.Left － 4) ÷ 100 × 进度值 ＋ 矩形2.Left 矩形2.Bottom ＝ 矩形.Bottom － 2 Color ＝ 255 y ＝ (矩形2.Right － 矩形2.Left) ＼ 2 DrawText (whdc, 进度内容, 取文本长度 (进度内容), 矩形2, 6) .计次循环首 (y, i) 矩形2.Left ＝ 30 ＋ i × 2 矩形2.Right ＝ 矩形2.Left ＋ 1 hBrush ＝ CreateSolidBrush (取颜色值 (75, 208, Color)) FillRect (whdc, 矩形2, hBrush) DeleteObject (hBrush) Color ＝ Color － 0.5 .如果真 (Color ＜ 0) Color ＝ 225 .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .计次循环尾 () ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _时钟1_周期事件 .局部变量 i, , 静态 i ＝ i ＋ 1 进度条 (i, “梦飞鸟设计 已经完成” ＋ 到文本 (i) ＋ “% ”) .如果真 (i ＞ 99) i ＝ 0 ' 时钟1.时钟周期 ＝ 0 .如果真结束 .子程序 __启动窗口_创建完毕