vb点动hsctollbar让shape变颜色

答案:2 悬赏:0

解决时间 2021-02-18 12:00

提问者网友：wodetian
2021-02-18 04:29

最佳答案

二级知识专家网友：青春如此荒謬
2021-02-18 05:45

可以在属性窗口设置shape控件的BorderColor属性设置边框颜色，设置了FillStyle属性后，可以通过FillColor属性设置填充颜色。
如果代码设置，在某事件过程中输入语句：
Shape1.BorderColor = vbRed
Shape1.FillStyle = vbshapesolid
Shape1.FillColor = vbRed

全部回答

1楼网友：深街酒徒
2021-02-18 07:00

option explicit dim flag as boolean private sub form_load() timer1.interval = 200 end sub private sub timer1_timer() if flag then shape1.shape = 3 else shape1.shape = 1 end if flag = not flag end sub

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

大家都在看

• 火腿里面带的无松是不是蜂蜜

• 国外玩《王者荣耀》用什么加速器比较好？

• 东莞到北京的火车票是多少钱

• 哪个APP赚钱

• 85年出生的男与76年出生的女相配吗

• 我也是自考湖南湘潭大学行政管理学，现在也过

• 兴化安丰经济好点还是东台安丰经济好点?

• 我的大学梦思维导图图片

• 反映只要下苦功就能成事的俗语