本人使用VB6,我现在遇到一个问题,如下图,我用按钮画了2个空心的矩形, 一个大,一个小。现在想实现这样一个功能:
1. 点击picturebox,大矩形变成一个实心的,有填充颜色的,不管什么颜色。这时小矩形也会被实心覆盖;
2. 再点击一下picturebox,这个矩形又恢复成空心的,这时小矩形又可以看见了
3. 如上面反复,点一下空心,点一下又实心。
请问怎么实现呢?
备注:不能用cls,因为我实际开发的软件在picturebox上还有其他图形,不能全抹掉了。
Private Sub Form_Load()
Picture1.Scale (-100, -100)-(100, 100)
End Sub
Private Sub Command1_Click()
Picture1.DrawWidth = 1
Picture1.FillStyle = 1 '//填充类型为空心
Picture1.Line (-40, -40)-(50, 50), , B
Picture1.Line (-30, -30)-(10, 10), , B
End Sub