如何在vba中用GDI函数LineTo在屏幕上画线?

api 中的gdi  函数 LineTo 可以在屏幕上画线。

它的语法如下:

它将直接连接当前位置和nXEnd和nYEnd所代表的结束位置两点成线。如果运行成功,结束位置将成为下一个当前位置。

代码如下:

GetDC(0)获得是整个屏幕的DC,它的当前位置是屏幕的左上角。

由于 LineTo 函数的起始位置默认位于屏幕或者客户区的左上角,如果要改变默认的起始位置,可以使用MoveToEx函数,设置一个起始位置的坐标。

它的语法如下:

其中lpPoint参数是point结构,存储的是上一个位置的坐标。

以下代码是用MoveToEx函数和LineTo函数在屏幕上画长方形的代码:

       

发表评论