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