vb中一个绘图的小程序

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
CurrentX = X
CurrentY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button Then
Line -(X, Y), forcolor
End If
End Sub


shell命令调用的方法，路径用到App.Path
Private Sub huatu_Click()
Shell App.Path + "\画图.exe"
End Sub


最近一直在忙课程设计，弄得也满有激情的，不知道是想展示自己，还是对编操作系统程序的执迷，反正用了很大功夫，组长连连说我不务正业。还有两天时间，再也不弄vb了。

转载于:https://www.cnblogs.com/gengxiaochao/archive/2008/01/10/1034104.html