㈠ 用VB编写画图程序
提供一个绘制任抄意曲线的简单代袭码。其他功能类似,希望能举一反三。
在窗体中添加一个Picturebox,然后输入命令如下:
DimoldxAsSingle
DimoldyAsSingle
PrivateSubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then'当鼠标左建按下时发生
Picture1.Line(oldx,oldy)-(X,Y)
oldx=X
oldy=Y
EndIf
EndSub
PrivateSubPicture1_Mousedown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
oldx=X
oldy=Y
EndSub
㈡ 用研华PCI 1220怎么编写二维插补的程序(直线插补和圆弧插补,用VB编写)
你青大的吧?我让你做,是让你上这来问的吗?