今天学习了刘金玉老师零基础VB教程的第58期，学习的主要内容是line画图函数的用法。这几天学习的内容相对轻松，单位有个网络课程需要学习，但是这个视频课程有点烦人，只要鼠标一会不点击学习的网页就自动暂停了，有点烦人，于是我在考虑能不能用VB编写个小工具自动点击鼠标呢？结果一试还真行，有兴趣的可以看看我是怎么写的吧。
一、line函数用法
1.line控件表达函数表达为：
Line(起始点X,起始点Y)-(终点X,终点Y),[颜色],BF
2.line控件的效果有：线条、空心矩形、实心矩形
3.line函数和控件可以用于绘制折线图和柱状图。
4.案例：
绘制一条线段：Line (100, 100)-(1000, 1000)
绘制一条蓝色线段：Line (1000, 1000)-(2000, 1000), vbBlue
绘制一个黑色边框空心矩形：Line (2000, 1000)-(3000, 1800), vbBlack, B
绘制一个红色的实心矩形：Line (2200, 1200)-(2400, 1300), vbRed, BF
二、自制鼠标点击小工具
1.思路:通过时钟控件调用鼠标点击事件，达到自动点击的效果，然后我们通过text控件的text属性值来设置时钟控件的interval大小，从而设置每次单击鼠标间隔时间，同时我们通过两个command控件来控制时钟控件的enabled属性，达到启用和关闭自动点击鼠标的目的。
2.如图新建1个时钟控件，1个text控件，2个command控件，2个label控件。
3.输入代码：
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_ABSOLUTE = &H8000
Dim xx As Long, yy As Long
Private Sub Command1_Click()
Timer1.Interval = Val(Text1.Text)
Timer1.Enabled = True
Command2.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
End Sub
Private Sub Form_Load()
Form1.Visible = True
xx = Screen.Width / 2
yy = Screen.Height / 2
End Sub
Private Sub Timer1_Timer()
Call mouse_event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, xx, yy, 0, 0)
End Sub
4.运行效果详见视频
,
