[VB6 ] 如何畫出矩形

看板Visual_Basic作者 (Yes)時間18年前 (2007/01/25 12:56), 編輯推噓2(200)
留言2則, 2人參與, 最新討論串1/2 (看更多)
如題~~ 自己(初學)撰寫的程式碼如下... 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
我猜你沒設全域變數 CurrentX,Y
01/25 14:20, 1F

01/25 16:09, , 2F
已找到錯誤的地方囉 謝謝~~
01/25 16:09, 2F
文章代碼(AID): #15k3YOUH (Visual_Basic)
討論串 (同標題文章)
以下文章回應了本文
完整討論串 (本文為第 1 之 2 篇):
文章代碼(AID): #15k3YOUH (Visual_Basic)