x ＝ 取设备句柄 (0) ' 获取当前屏幕信息
SelectObject (x, CreatePen (画笔风格, 画笔宽度, 画笔颜色)) ' 选择当前创建的画笔
' 利用画线拼接矩形
MoveToEx (x, 矩形数据.左边, 矩形数据.顶边, 点) ' 设置起始坐标
LineTo (x, 矩形数据.右边, 矩形数据.顶边) ' 线到终点坐标
上一篇 文本数组去重复
下一篇 简易快捷的数据读写模块
Hi,欢迎访问爱享IT资料源码下载站
Hi,欢迎访问爱享IT资料源码下载站
x ＝ 取设备句柄 (0) ' 获取当前屏幕信息
SelectObject (x, CreatePen (画笔风格, 画笔宽度, 画笔颜色)) ' 选择当前创建的画笔
' 利用画线拼接矩形
MoveToEx (x, 矩形数据.左边, 矩形数据.顶边, 点) ' 设置起始坐标
LineTo (x, 矩形数据.右边, 矩形数据.顶边) ' 线到终点坐标