如何将picturebox中的矩形,实心变空心,再空心变实心

深圳的冬天 深圳的冬天 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
本人使用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

...全文

相关推荐

评论 5
收藏 已收藏
分享
返回顶部
深圳的冬天
VB 16,718 成员 110,520 内容