怎样在VB中每隔一段时间画一个圆且半径渐渐增加,颜色不断变化_百度知道
怎样在VB中每隔一段时间画一个圆且半径渐渐增加,颜色不断变化
怎样在VB中每隔一段时间画一个圆且半径渐渐增加,颜色不断变化
我有更好的答案
&Sub&Timer1_Timer()DoEventsIf&r&nbsp.Interval&1i&nbspDim&i&Then&&0),&i,&vbBlueIf&i&IfEnd&IfEnd&0),&i,&vbBlue&&&&If&i&=&i&&r&=&&=&False&r&=&=&vbBlue&&&&Circle&(0;ThenTimer1.Interval&=&i&=&&=&True&Then&&&&Timer1;&i&-&nbsp.FillStyle&=&=&1&l&As&IntegerDim&r&&False&&&&End&TrueEnd&IfElseIf&r&&FalseEnd&+&lForm1;&&=&i&nbsp,&Form1;=&200&&ii&&nbsp.FillColor&=&nbsp.Scale&(-200,&200)-(200,&-200)l&=&0&&&&Form1.FillColor&nbsp.ClsForm1.FillStyle&As&&=&1r&=&&1&&&&Form1.Cls&nbsp,&I&&vbRedCircle&(0;Sub&Form_Load()Form1;&SubPrivate&nbsp,&Then&&&=&0Form1;BooleanPrivate&As&nbsp
采纳率：80%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB考题“画一圆大小颜色自定圆周上有一黄色亮点在圆的轨迹上顺时针移动移动的速度受滚动条的value值控制_百度知道
VB考题“画一圆大小颜色自定圆周上有一黄色亮点在圆的轨迹上顺时针移动移动的速度受滚动条的value值控制
我有更好的答案
2 + 1100 * Cos(i), Me.ScaleHeight &#47.ScaleWidth &#47: PreY = Me.ScaleHeight / 2 + 1100 * Sin(i)).Interval = 200Timer1.Enabled = TrueHScroll1; 2).Value)End SubPrivate Sub Timer1_Timer()Static i!, PreY!Private Sub Form_Load()Me.ShowMe.ScaleWidth &#47!PSet (PreX, PreY)PSet (Me.Max = 200End SubPrivate Sub HScroll1_Change()Debug.Print HScroll1.Interval = 201 - Int(HScroll1, vbYellowPreX = Me.ScaleWidth / 2 + 1100 * Cos(i).DrawWidth = 5Circle (Me, 1100Timer1; 2, Me.ScaleHeight &#47.ValueTimer1; 2 + 1100 * Sin(i)i = i + 0Dim PreX
采纳率：31%
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb中编程用横线将圆填充满和用竖线将圆填充满_百度知道
vb中编程用横线将圆填充满和用竖线将圆填充满
我有更好的答案
1100);(1100;=&vbHorizontalLineMe,&nbsp.Circle&Command1_Click()Me.ClsMe.FillStyle&nbsp.Circle&nbsp,&nbsp,&nbsp,&1000End&SubPrivate&Sub&(1100;=&vbVerticalLineMe;1100)Private&Sub&Command2_Click()Me.ClsMe.FillStyle&nbsp
采纳率：71%
来自团队：
Picture1.Height + Me.Picture1，不需任何代码。如下图：Const PI As Single = 3://f.baidu.Left = 200& Me.Text1.Top = Me.hiphotos.baidu.com/zhidao/pic/item/cdbf6c65c80b3bfa828ba61e465d.baidu.baidu.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http://f. Me.Picture1.Left + Me.Picture1，只需在窗体上添加两个Shape控件Shape1和Shape2，将其Shape属性均设置为3.Picture1.Height + Me.Picture1.Text1.com/zhidao/wh%3D600%2C800/sign=bba7ae5bf5a3e8d109b3de9c82f49cba18d843c6.jpg" esrc="http://f. Me.Command1.Height = 370& Me.hiphotos.baidu.com/zhidao/wh%3D450%2C600/sign=841131aefe03738dde1fc67/cf3bc7a22d83e2d900baa1cd112a8a.Width - Me.Text2.Width - 1.5 * Me.Text1.Left& Me.Text2.Top = Me.Text1.Top& Me.Picture1.Scale (-Me.Picture1.ScaleWidth / 2, Me.Picture1.ScaleHeight / 2)-(Me.Picture1.ScaleWidth / 2, -Me.Picture1.ScaleHeight / 2)& Me.Picture1.PSet (0, 0), vbRed& r = Me.Picture1.ScaleWidth / 2 * 7 / 8& t = PI / (180 * k)& Me.Timer1.Interval = 0End SubPrivate Sub Timer1_Timer()& Static i As Long& Me.Text1.Text = Int(i / k) & &°&& Me.Picture1.PSet (r * Cos(i * t), r * Sin(i * t)), vbRed& i = i + 1& If i & 720 * 2 Then Me.Timer1.Interval = 0: Me.Timer2.Interval = 100End SubPrivate Sub Timer2_Timer()& Static i As Long& Me.Text2.Text = Int(i) * 100 & &ms&& Me.Picture1.Line (-Sqr(r ^ 2 - (-i * r / m) ^ 2), -i * r / m)-(Sqr(r ^ 2 - (-i * r / m) ^ 2), -i * r / m), vbRed& Me.Picture1.Line (-Sqr(r ^ 2 - (-i * r / m) ^ 2), i * r / m)-(Sqr(r ^ 2 - (-i * r / m) ^ 2), i * r / m), vbRed& i = i + 1& If i & m Then Me.Timer2.Interval = 0End Sub运行效果如下：.jpg" /><img class="ikqb_img" src="http.Left = (Me.Width - Me://f.Timer1.Interval = 10End SubPrivate Sub Form_Load()&nbsp若是静态地画图.hiphotos.baidu.com/zhidao/pic/item/de9c82f49cba18d843c6.Top + Me.Command1.Picture1.Top& Me.Width = Me.jpg" esrc="http.Left& Me.Command1.baidu.jpg" />若是要动态地画图，则需设计界面和编写代码，例如.hiphotos.baidu.com/zhidao/wh%3D600%2C800/sign=7d5ae26e47c2d562f25dd8ebd721bcd7/7acb0a46f21fbe09af018f1aad65; Me.Top&nbsp.baidu.com/zhidao/wh%3D450%2C600/sign=af4bfb8cc6/cdbf6c65c80b3bfa828ba61e465d.jpg" />运行效果如下.com/zhidao/pic/item/cf3bc7a22d83e2d900baa1cd112a8a.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http：<a href="http://e. Me.Left = 100& Me.Picture1.Height = 400 + Me.Picture1.Height = 6000& Me.Picture1：<a href="http://f.hiphotos://f.Command1.Top = Me.Command1.Width) / 2&nbsp.1415926Const k As Integer = 4Const m As Integer = 50Dim r As Single, t As SinglePrivate Sub Command1_Click()& Me.Left = Me.Width + 2 * Me.Picture1.Text2，将其FillStyle属性分别设置为2和3即可
为您推荐：
其他类似问题
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。2013年12月 VB大版内专家分月排行榜第二2013年3月 VB大版内专家分月排行榜第二2013年1月 VB大版内专家分月排行榜第二2012年9月 VB大版内专家分月排行榜第二2012年8月 VB大版内专家分月排行榜第二2012年7月 VB大版内专家分月排行榜第二2006年7月 VB大版内专家分月排行榜第二2006年5月 VB大版内专家分月排行榜第二
2014年9月 VB大版内专家分月排行榜第三2013年7月 VB大版内专家分月排行榜第三2013年6月 VB大版内专家分月排行榜第三2013年4月 VB大版内专家分月排行榜第三2012年11月 VB大版内专家分月排行榜第三2006年6月 VB大版内专家分月排行榜第三2006年4月 VB大版内专家分月排行榜第三2002年12月 VB大版内专家分月排行榜第三2002年11月 VB大版内专家分月排行榜第三
2011年1月 VB大版内专家分月排行榜第二2010年10月 VB大版内专家分月排行榜第二
2013年1月 VB大版内专家分月排行榜第三2012年12月 VB大版内专家分月排行榜第三2011年6月 VB大版内专家分月排行榜第三2011年2月 VB大版内专家分月排行榜第三2010年12月 VB大版内专家分月排行榜第三2010年11月 VB大版内专家分月排行榜第三2009年7月 VB大版内专家分月排行榜第三
2017年12月 VB大版内专家分月排行榜第二2017年11月 VB大版内专家分月排行榜第二2017年3月 VB大版内专家分月排行榜第二2016年12月 VB大版内专家分月排行榜第二2016年10月 VB大版内专家分月排行榜第二2013年11月 VB大版内专家分月排行榜第二
2016年3月 VB大版内专家分月排行榜第三2012年9月 VB大版内专家分月排行榜第三
2011年1月 VB大版内专家分月排行榜第二2010年10月 VB大版内专家分月排行榜第二
2013年1月 VB大版内专家分月排行榜第三2012年12月 VB大版内专家分月排行榜第三2011年6月 VB大版内专家分月排行榜第三2011年2月 VB大版内专家分月排行榜第三2010年12月 VB大版内专家分月排行榜第三2010年11月 VB大版内专家分月排行榜第三2009年7月 VB大版内专家分月排行榜第三
2013年 总版技术专家分年内排行榜第三
2012年 总版技术专家分年内排行榜第七
2013年 总版技术专家分年内排行榜第三
2012年 总版技术专家分年内排行榜第七
2017年12月 VB大版内专家分月排行榜第二2017年11月 VB大版内专家分月排行榜第二2017年3月 VB大版内专家分月排行榜第二2016年12月 VB大版内专家分月排行榜第二2016年10月 VB大版内专家分月排行榜第二2013年11月 VB大版内专家分月排行榜第二
2016年3月 VB大版内专家分月排行榜第三2012年9月 VB大版内专家分月排行榜第三
2017年12月 VB大版内专家分月排行榜第二2017年11月 VB大版内专家分月排行榜第二2017年3月 VB大版内专家分月排行榜第二2016年12月 VB大版内专家分月排行榜第二2016年10月 VB大版内专家分月排行榜第二2013年11月 VB大版内专家分月排行榜第二
2016年3月 VB大版内专家分月排行榜第三2012年9月 VB大版内专家分月排行榜第三
2017年12月 VB大版内专家分月排行榜第二2017年11月 VB大版内专家分月排行榜第二2017年3月 VB大版内专家分月排行榜第二2016年12月 VB大版内专家分月排行榜第二2016年10月 VB大版内专家分月排行榜第二2013年11月 VB大版内专家分月排行榜第二
2016年3月 VB大版内专家分月排行榜第三2012年9月 VB大版内专家分月排行榜第三
2017年12月 VB大版内专家分月排行榜第二2017年11月 VB大版内专家分月排行榜第二2017年3月 VB大版内专家分月排行榜第二2016年12月 VB大版内专家分月排行榜第二2016年10月 VB大版内专家分月排行榜第二2013年11月 VB大版内专家分月排行榜第二
2016年3月 VB大版内专家分月排行榜第三2012年9月 VB大版内专家分月排行榜第三
2016年2月 C/C++大版内专家分月排行榜第三2016年1月 C/C++大版内专家分月排行榜第三
2013年 总版技术专家分年内排行榜第三
2012年 总版技术专家分年内排行榜第七
匿名用户不能发表回复！|vb 中如何设置圆的颜色，包括边框和填充的颜色_百度知道
vb 中如何设置圆的颜色，包括边框和填充的颜色
边框一定要是有颜色的，没颜色的边框不采纳
我有更好的答案
代码及注释：假设圆为shapes(1)Sub main()Shapes(1).Fill.ForeColor.RGB = RGB(255, 255, 0)&#39;将图形填充颜色变为黄色Shapes(1).Line.ForeColor.RGB = RGB(255, 0, 0)&#39;将图形边框颜色变为红色End Sub
歌尔声学工业工程师
FillColor = vbGreen
Me; 2), ScaleWidth / 4.Circle ((ScaleWidth + ScaleLeft) &#47.FillStyle = 0
MePrivate Sub Form_Click()
Me; 2, (ScaleHeight + ScaleTop) &#47
有没有简单点的
用SHAPE控件
还是用vb的，好像是把一个什么颜色代码放进去
Shape控件的BorderColor为边框颜色Shape控件的FillColor为填充的颜色在右下角的属性窗口中设置
本回答被提问者采纳
Shape的BorderColor为边框颜色Shape的FillColor为填充的颜色
为您推荐：
其他类似问题
您可能关注的内容
颜色的相关知识
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}