作者Bonder (Yes)
看板Visual_Basic
标题[VB6 ] 如何画出矩形
时间Thu Jan 25 12:56:55 2007
如题~~
自己(初学)撰写的程式码如下...
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：推 fabianwind:我猜你没设全域变数 CurrentX,Y 01/25 14:20
2F：推 Bonder:已找到错误的地方罗 谢谢~~ 01/25 16:09