.版本 2 .子程序 _按钮1_被单击 .局部变量 hWnd, 整数型, , , 窗口句柄 .局部变量 hDC, 整数型, , , 设备场景 .局部变量 Rect, RECT, , , 矩形 .局部变量 nColor, 整数型, , , 颜色值 .局部变量 nWidth, 整数型, , , 宽度 .局部变量 nHeight, 整数型, , , 高度 .局部变量 hBrush, 整数型, , , 画刷句柄 .局部变量 i, 整数型, , , 循环变量 hWnd ＝ 图片框1.取窗口句柄 () nWidth ＝ 图片框1.宽度 hDC ＝ GetDC (hWnd) .计次循环首 (图片框1.宽度, i) Rect ＝ 构造矩形 (i － 1, 0, i, 图片框1.高度) nColor ＝ 取颜色值 (255 － MulDiv (i, 255, nWidth), 255 － MulDiv (i, 255, nWidth), 255 － MulDiv (i, 255, nWidth)) hBrush ＝ CreateSolidBrush (nColor) ' 创建画刷 FillRect (hDC, Rect, hBrush) ' 填充矩形 DeleteObject (hBrush) ' 删除画刷 .计次循环尾 () ReleaseDC (hWnd, hDC) ' 释放资源