文件名称：鼠标绘制两点之间的一条直线-VB绘图函数大全
文件大小：1.11MB
文件格式：PPT
更新时间：2024-05-15 03:18:01
VB VB绘图
1、鼠标绘制两点之间的一条直线 Dim X1 as Integer, Y1 as Integer Dim Bool StartPoint Private Sub Form _MouseDown(Button as Integer, Shift as Integer, x, as Single, Y as Single) If Not StartPoint Then X1=X Y1=Y StartPoint=True Else Line( X1, Y1)-( X, Y) End IF End Sub