[VB6 ] 如何畫出矩形
如題~~
自己(初學)撰寫的程式碼如下...
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
推
01/25 14:20, , 1F
01/25 14:20, 1F
推
01/25 16:09, , 2F
01/25 16:09, 2F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章