[求助]利用vb输入半径画同心圆 - VB6论坛

楼主

问题点数：0 回复次数：9

[求助]利用vb输入半径画同心圆

我是一个vb初学者，现在遇到一个关于利用vb画同心圆的问题请教大家。
就是想做一个窗体在里面有对话框，当输入两个圆的半径后就可以生成一个同心圆。
请教大家。

搜索更多相关主题的帖子: 对话框　输入　初学者　窗体　

第 2 楼

得分:0

ip74hOud.rar (1.74 KB) [求助]利用vb输入半径画同心圆

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042

第 3 楼

得分:0

谢谢，下载中。

第 4 楼

得分:0

小弟，不知怎么使你给我工程在vb6.0中运行刚学请谅解

第 5 楼

得分:0

我倒...那应该懂得用windows操作系统都知道怎么打开吧..

我的msn: myfend@

第 6 楼

得分:0

你不知道怎么运行?那你自己写代码都写哪去了?

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042

第 7 楼

得分:0

打开了,谢谢!~
能不能实现当输入新的半径的时候画出一组新的同心圆.

第 8 楼

得分:0

小弟的意思是,以前画出的圆不显示,只有现在重新画的.

第 9 楼

得分:0

谢谢大哥啊啊` `
就是等这个了啊` `

我考的就是这个
` `

噹ｗǒの袏手撁着伱嘚祐手,ｗǒ僦蕟誓詠遠也⑧分　 ★ 我的﹎壹颗心゛罒.全冩滿 oo伱﹎dê .名字☆ ★

第 10 楼

得分:0

Option Explicit

Private Sub Command1_Click()
Picture1.Cls
Dim r1 As Single, r2 As Single
Dim maxr As Single
r1 = Val(Text1.Text)
r2 = Val(Text2.Text)
maxr = IIf(r1 > r2, r1 * 1.2, r2 * 1.2)

Picture1.Scale (-maxr, maxr)-(maxr, -maxr)

Picture1.Circle (0, 0), r1, vbRed
Picture1.Circle (0, 0), r2, vbBlue

End Sub

学习需要安静。。海盗要重新来过。。