VB画圆如何实现半透明我在VB中画了三个圆,圆的半径与系统时间的秒相关联,也就是说随着时间推移,三个同心圆的半径都在逐渐扩大,随时间变化会不断画出新的圆,旧的圆怎么同步去掉呢?我希

题目详情

VB画圆如何实现半透明
我在VB中画了三个圆,圆的半径与系统时间的秒相关联,也就是说随着时间推移,三个同心圆的半径都在逐渐扩大,随时间变化会不断画出新的圆,旧的圆怎么同步去掉呢?我希望在中间的圆填充红色,外圈的圆环为黄色,最外圈的圆环为绿色,怎么实现?我不希望圆环覆盖下面的图案,希望是半透明的,

▼优质解答

答案和解析

在每一秒画圆前加上两句
me.Picture1.Cls
Me.Picture1.Picture = LoadPicture("背景图片路径")
在画中间的圆前加上：Me.Picture1.ForeColor = vbRed
画外圈圆前加上：Me.Picture1.ForeColor = vbYellow
画内圈圆前加上：Me.Picture1.ForeColor = vbGreen

【剩下的就是你画圆了,应该可以吧】

看了 VB画圆如何实现半透明我在V...的网友还看了以下：

概率达人,1号boss有16%的概率掉A级物品,如果A级物品为金色则认为有价值.1号boss掉落随　2020-06-06 …

工件以外圆柱面在V形架上定位时,在垂直方向上的基准位移误差,随V形架尖角的增大而增大　2020-06-07 …

阅读契诃夫作品《合二而一》，回答小题。您不要相信那些犹大，那些变色龙！在我们这个时代，失掉信心倒比　2020-06-15 …

我们为什么不能随便扔掉旧电池,应该怎样做?（科学问题）　2020-06-16 …

刮目相看可以用于贬义吗?刮目相看(guāmùxiāngkàn)释离别几天后就应该去掉老眼光来看待他　2020-06-20 …

鹰志中的重生是有可能的吗一、在岩石上磕掉老喙，让其长出新喙；二、用新喙拔掉老趾甲，让其长出新趾甲；　2020-06-24 …

求有空气阻力情况下的瞬时速度一质量为g的物体带面积为s的缓冲纸片从h高度下落已知在空气阻力约等于F 　2020-07-02 …

气体实验定律（物理选修3-3）一段封闭的粗细均匀的玻璃管开口向下竖直插在水银槽中,管内封有一定质量的　2020-11-04 …

感受;觉得(v.)严格的;严厉的(adj.)记住;记起(v.)遵循;跟随(v.)幸运;运气(n.)保　2020-12-15 …