VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 3336|回复: 7

[转帖] VB画圆

[复制链接]
发表于 2012-11-19 10:36:28 | 显示全部楼层 |阅读模式
http://www.doc88.com/p-60284827978.html
 楼主| 发表于 2012-11-19 11:24:58 | 显示全部楼层
同心圆.JPG

Option Explicit

Private Sub Command1_Click()
Const r = 4406.875
Line (100, 4800)-(10000, 4800)
Line (5000, 100)-(5000, 10000)

Circle (5000, 4800), r - 3000
Circle (5000, 4800), r - 2500
Circle (5000, 4800), r - 2000
Circle (5000, 4800), r - 1500
Circle (5000, 4800), r - 1000
Circle (5000, 4800), r - 500
Circle (5000, 4800), r
End Sub

Private Sub Form_Click()
Dim r As Long, L As Long
Const pi = 3.1415926
'L = 2 * pi * r
L = 1107568
r = L / (2 * pi)
Print r * 0.025
End Sub

Private Sub Form_Load()
Me.Caption = "2012-11-19 11:19 (1) 单位"
Me.Top = 100
Me.Width = 10000
Me.Height = 10000
End Sub

点评

无语  发表于 2012-11-19 13:46

评分

参与人数 2威望 +5 人气 +3 收起 理由
418892474 + 4 + 2 赞一个!
JuncoJet + 1 + 1 很给力!

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2012-11-19 17:29:19 | 显示全部楼层
学习啦。。
回复 支持 反对

使用道具 举报

发表于 2012-11-19 19:03:47 | 显示全部楼层

点评

画了很多线 ???  发表于 2012-11-19 21:55
。。。。  发表于 2012-11-19 19:11
回复 支持 反对

使用道具 举报

发表于 2012-11-19 22:10:05 | 显示全部楼层
看了你那往页,,但我画了三个圆由于它们的Z相不是在同一线上,所以颜色没有集合,怎么办?? 只显示在最上面的颜色。。。。。。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-11-27 02:17:31 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-30 03:30:12 | 显示全部楼层
Private Sub Command1_Click()
Const r = 4406.875

'坐标线
Line (100, 4800)-(10000, 4800)
Line (5000, 100)-(5000, 10000)

'控件的外观
Me.DrawMode = 1
Me.DrawStyle = 2
Me.DrawWidth = 3

'圆的位置及大小
'Circle (5000, 4800), r - 3000
'Circle (5000, 4800), r - 2500
'Circle (5000, 4800), r - 2000
'Circle (5000, 4800), r - 1500
'Circle (5000, 4800), r - 1000
'Circle (5000, 4800), r - 500
Circle (5000, 4800), r

'控件的外观
Me.DrawMode = 1
Me.DrawStyle = 2
Me.DrawWidth = 3

End Sub

Private Sub Form_Click()
Dim r As Long, L As Long
Const pi = 3.1415926

'圆的周长公式:L=2*pi*r
'L = 2 * pi * r

L = 1107568 'L为圆的周长
r = L / (2 * pi) 'r为圆的半径:4406.875;r=176275

'求半径=?
Print r
'Print r * 0.025
End Sub

Private Sub Form_Load()
'定制标题栏
Me.Caption = "2012-11-19 11:19 (1) 单位"
'定制窗体的大小、位置。
Me.Top = 100
Me.Width = 10000
Me.Height = 10000
End Sub
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-30 03:43:24 | 显示全部楼层
本帖最后由 renyucai1963 于 2012-12-30 03:44 编辑

'点的大小和位置
Me.DrawWidth = 100: Me.PSet (1000, 1000)
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2021-2-26 11:47

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表