[VB6 ] 如何畫出矩形

[Bonder (Yes)]

如題~~

自己(初學)撰寫的程式碼如下...

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_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
As Single)

Line (CurrentX, CurrentY)-(CurrentX, Y)
Line -(X, Y)
Line -(X, CurrentY)
Line -(CurrentX, CurrentY)

End Sub

結果畫不出來 = =... 有版友可以提供畫矩形的程式碼嗎..感恩~~






--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.211.65.41
推 fabianwind:我猜你沒設全域變數 CurrentX,Y
推 Bonder:已找到錯誤的地方囉 謝謝~~