文件名称：绘制连续折线-VB绘图函数大全
文件大小：1.11MB
文件格式：PPT
更新时间：2024-05-15 03:18:01
VB VB绘图
3、绘制连续折线 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) X1=X: Y1=Y End IF End Sub