用VB編寫畫圖程序

提供壹個繪制任意曲線的簡單代碼。其他功能類似，希望能舉壹反三。

在窗體中添加壹個Picture?box，然後輸入命令如下：

Dim?oldy?As?Single

If?Button?=?1?Then'當鼠標左建按下時發生

Picture1.Line?(oldx,?oldy)-(X,?Y)

oldx?=?X

oldy?=?Y

End?If

End?Sub

Private?Sub?Picture1_Mousedown(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)

oldx?=?X

oldy?=?Y

End?Sub

上篇: 在實在智能是種怎樣的體驗 下篇: 國事訪問要攜帶夫人嗎？