PTT數位生活區 / Visual_Basic

Re: [VB6 ] 如何畫出矩形

看板Visual_Basic作者 (Yes)時間18年前 (2007/01/25 13:19), 編輯推噓0(0推 0噓 1→)
留言1則, 1人參與, 最新討論串2/2 (看更多)
※ 引述《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
→
01/25 22:31, , 1F
Line (x1, y1)-(x2, y2), , B
01/25 22:31, 1F
‣ 更多 Bonder 的文章
文章代碼(AID): #15k3tCZ5 (Visual_Basic)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
排序： 最新先 | 最舊先 | 留言數
在新視窗開啟完整討論串 (共2篇)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
5
5
[作品] 撞色
[ DSLR ]
mark80219
8小時前, 09/16
更多 即時熱門文章 >>
‣ 更多 Bonder 的文章
文章代碼(AID): #15k3tCZ5 (Visual_Basic)