㈠ 用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編寫)
你青大的吧?我讓你做,是讓你上這來問的嗎?