作者fumizuki (小狮子)
看板Visual_Basic
标题Re: [VB6 ] Resize...?
时间Wed Jul 6 06:37:27 2005
※ 引述《Harrychou (Patlabor)》之铭言：
: 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之後就有问题..)
加一个全域变数
在 form_activate() 给值为 1
resize 检查值为 1 才更新对角线
--
VB 程式设计 仓木麻衣 PTT 星爷板 行列输入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.58.156.43