先Private Sub Form_Activate()Scale (0, 0)-(800, 800)
Form1.Line (0, 0)-(800, 800)
End Sub
然后
Private Sub Command1_Click()
Form1.BackColor = vbRed
End Sub
结果线被覆盖了
求救有什么方法可以改背景却不影响已画图形。(重画一次除外)
Form1.Line (0, 0)-(800, 800)
End Sub
然后
Private Sub Command1_Click()
Form1.BackColor = vbRed
End Sub
结果线被覆盖了
求救有什么方法可以改背景却不影响已画图形。(重画一次除外)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货