Re: [VB6 ] 如何畫出矩形

[Bonder (Yes)]

※ 引述《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
→ mathlinka:Line (x1, y1)-(x2, y2), , B