作者Harrychou (Patlabor)
看板Visual_Basic
标题[VB6 ] Resize...?
时间Tue Jul 5 21:13:27 2005
Private Sub Form_Click()
Line (0, 0)-(ScaleWidth, ScaleHeight)
Line (0, ScaleHeight)-(ScaleWidth, 0)
End Sub
Private Sub Form_DblClick()
Cls
End Sub
Private Sub Form_Resize()
Cls
Line (0, 0)-(ScaleWidth, ScaleHeight)
Line (0, ScaleHeight)-(ScaleWidth, 0)
End Sub
原题目要的是在form中画对角线,在resize之後换成新form大小的对角线
结果这样写的话一开始就跑出对角线,请问能在一开始时保持空白吗?
(resize那段去掉就是,不过resize之後就有问题..)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.115.84.252