Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long ' Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
用上面两个api得到form1上一个控件的句柄是1182148,那么我用movetoex 和lineto如何在这个控件上画线?直接用吗?
还有,用api画线时如何设置线的颜色?
用上面两个api得到form1上一个控件的句柄是1182148,那么我用movetoex 和lineto如何在这个控件上画线?直接用吗?
还有,用api画线时如何设置线的颜色?
如果你要画线,先使用moveto,将第一个点移动到起始位置
然后用lineto,传入结束点,ok!
要设置控件属性不是AutoRedraw,否则,你画出的线还没等看到,就被擦掉了
不过可以用setpixel函数代替lineto
setpixel(hdc,x,y,color)
该函数就是在指定的dc上的(x,y)处画一个点,颜色自己指定
你可以用循环语句封装一下该函数,使之能画线
我还有两个问题: 1.用循环画圆形是否会慢啊
2.如何擦除所画的图形
控件 没有autoredraw属性.
UpdataWindow 控件的句柄
试试看吧
同样需要设置DC的前景色
或许还有其他的函数,我不知道而已,呵呵