三角形如何編程

下面這個程序是用鼠標畫出三角形，不知道妳是不是要這種答案了？

Dim paintnow As Boolean

Private Sub Form_Load()

Width = 40

ForeColor = RGB(0, 0, 0)

End Sub

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

paintnow = True

End Sub

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

If paintnow Then

PSet (X, Y)

End If

End Sub

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

paintnow = False

End Sub

上一篇:怎麽樣用C語言編輯在TC中輸入詩歌的命令，並存入文檔

下一篇:plc張力控制器的編程