| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 窗口_画矩形 | 本函数为微凉提供 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 窗口句柄 | 整数型 | 要画矩形的窗口的句柄 | 矩形粗细 | 整数型 | 默认为3 | 矩形颜色 | 整数型 | 默认为红色 | 是否闪烁 | 逻辑型 |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 窗口矩形A | RECT | |||||
| 屏幕句柄A | 整数型 | |||||
| 屏幕场景A | 整数型 | |||||
| 旧混合模式A | 整数型 | |||||
| 新画笔A | 整数型 | |||||
| 旧画笔A | 整数型 | |||||
如果真 (矩形粗细 ＝ 0)
矩形粗细 ＝ 3
如果真 (矩形颜色 ＝ 0)矩形颜色 ＝ #红色 屏幕句柄A ＝ GetDesktopWindow () ' 取得桌面句柄
屏幕场景A ＝ GetWindowDC (屏幕句柄A) ' 取得桌面设备场景
旧混合模式A ＝ SetROP2 (屏幕场景A, 10) ' 10:R2_NOTXORPEN
GetWindowRect (窗口句柄, 窗口矩形A) ' 获得窗口矩形
如果真 (窗口矩形A.Left ＜ 0)窗口矩形A.Left ＝ 0如果真 (窗口矩形A.Top ＜ 0)窗口矩形A.Top ＝ 0新画笔A ＝ CreatePen (0, 矩形粗细, 矩形颜色) ' 建立新画笔,载入DeskDC。取颜色值 (237, 15, 40)
旧画笔A ＝ SelectObject (屏幕场景A, 新画笔A)
Rectangle (屏幕场景A, 窗口矩形A.Left, 窗口矩形A.Top, 窗口矩形A.Right, 窗口矩形A.Bottom) ' 在窗口周围画矩形
如果真 (是否闪烁 ＝ 真)程序_延时 (100, ) ' 刷新时间Rectangle (屏幕场景A, 窗口矩形A.Left, 窗口矩形A.Top, 窗口矩形A.Right, 窗口矩形A.Bottom) ' 刷新画矩形SetROP2 (屏幕场景A, 旧混合模式A)SelectObject (屏幕场景A, 旧画笔A)
DeleteObject (新画笔A)
ReleaseDC (屏幕句柄A, 屏幕场景A)
词条作者信息 使用例程