作者Bonder (Yes)
看板Visual_Basic
标题Re: [VB6 ] 如何画出矩形
时间Thu Jan 25 13:19:07 2007
※ 引述《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
1F：→ mathlinka:Line (x1, y1)-(x2, y2), , B 01/25 22:31