Private Sub Command1_Click()
Circle (5, 5), 3, vbRed
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
MeAutoRedraw = True
MeScale (0, 0)-(10, 10)
End Sub
下边是个实例,放一个text,一个按钮,text里输入几个就画几个
private
sub
command2_click()
dim
i
as
integer
for
i
=
1
to
val(text2text)
form3picture1circle
(120,
260),
i
10,
vbred
'在左边为120260的位置为圆心,i10的数量为半径画个圆
next
form3picture1refresh
end
sub
Sub DrawRing(s As Single, w As Single)
'此子过程的作用是在窗体正中画一个彩虹圆环
'第1个参数s是圆环外圆的半径(单位是缇)
'第2个参数w是圆环的宽度(单位是缇)
'要注意,w一定不能大于s!
Dim i As Integer, j As Single, c As Variant
Dim r As Integer, g As Integer, b As Integer
Dim r1 As Integer, g1 As Integer, b1 As Integer
Dim r2 As Integer, g2 As Integer, b2 As Integer
Dim k As Single
c = Array(&HFF&, &H80FF&, &HFFFF&, &HFF00&, &HFF0000)
'上面是5个颜色值,分别是 红、橙、黄、绿、蓝
'改变它们的值或顺序,就可以得到不同颜色的彩色圆环
For i = 0 To 3
r1 = c(i) Mod &H100&
g1 = c(i) \ &H100& Mod &H100&
b1 = c(i) \ &H10000
r2 = c(i + 1) Mod &H100&
g2 = c(i + 1) \ &H100& Mod &H100&
b2 = c(i + 1) \ &H10000
k = s - w + i w / 4
For j = k To k + w / 4 - 1 Step ScreenTwipsPerPixelX
r = r1 + 4 (r2 - r1) (j - k) / w
g = g1 + 4 (g2 - g1) (j - k) / w
b = b1 + 4 (b2 - b1) (j - k) / w
MeCircle (MeScaleWidth \ 2, MeScaleHeight \ 2), j, RGB(r, g, b)
Next
Next
End Sub
Private Sub Command1_Click()
'用法举例:
DrawRing MeScaleHeight \ 2 - 300, MeScaleHeight \ 3 - 300
End Sub
Private Sub Form_Load()
MeAutoRedraw = True
MeDrawWidth = 2
End Sub
Circle(1000,1000),500,8,-6,-3
1000,1000,圆心坐标
500,半径
后面分别代表起始角,终止角,长短轴比率
好吧,详细点,就把Circle方法都说一遍
在对象上画圆、椭圆或弧。
语法
objectCircle [Step] (x, y), radius, [color, start, end, aspect]
Circle 方法的语法有如下的对象限定符和部分:
部分 描述
object 可选的。 对象表达式,其值为“应用于”列表中的对象。如果object 省略,具有焦点的窗体作为object。
Step 可选的。关键字 ,指定圆、椭圆或弧的中心,它们相对于当前 object 的 CurrentX 和 CurrentY 属性提供的坐标。
(x, y) 必需的。 Single (单精度浮点数),圆、椭圆或弧的中心坐标。object 的 ScaleMode 属性决定了使用的度量单位。
radius 必需的。Single (单精度浮点数),圆、椭圆或弧的半径。 object 的 ScaleMode 属性决定了使用的度量单位。
color 可选的。Long (长整型数),圆的轮廓的 RGB 颜色。如果它被省略,则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
start, end 可选的。 Single (单精度浮点数),当弧、或部分圆或椭圆画完以后,start 和 end 指定(以弧度为单位)弧的起点和终点位置。其范围从 -2 pi 到 2 pi 。起点的缺省值是0; 终点的缺省值是2 pi。
aspect 可选的。 Single (单精度浮点数),圆的纵横尺寸比。缺省值为 10,它在如何屏幕上都产生一个标准圆(非椭圆)。
说明
想要填充圆,使用圆或椭圆所属对象的 FillColor 和 FillStyle 属性。只有封闭的图形才能填充。封闭图形包括圆、椭圆、或扇形。
画部分圆或椭圆时,如果 start 为负,Circle 画一半径到 start,并将角度处理为正的;如果 end 为负,Circle 画一半径到 end,并将角度处理为正的。Circle 方法总是逆时针(正)方向绘图。
画圆、椭圆或弧时线段的粗细取决于 DrawWidth 属性值。在背景上画圆的方法取决于 DrawMode 和 DrawStyle 属性值。
画角度为 0 的扇形时,要画出一条半径(向右画一水平线段),这时给 start 规定一很小的负值,不要给 0。
可以省略语法中间的某个参数,但不能省略分隔参数的逗号。您指定的最后一个参数后面的逗号是可以省略的。
Circle 执行时,CurrentX 和 CurrentY 属性被参数设置为中心点。
这个方法不能用在 With匛nd With 语句块中。
--------------------------------------------------------------------------------
Circle 方法示例
这个示例用Circle 方法在窗体中央画许多同心圆。要运行这个示例,将此代码放入窗体的 General 部分。按 F5 并单击窗体。
Sub Form_Click ()
Dim CX, CY, Radius, Limit ' Declare variable
ScaleMode = 3 ' 以像素为单位。
CX = ScaleWidth / 2 ' X 位置。
CY = ScaleHeight / 2 ' Y 位置。
If CX > CY Then Limit = CY Else Limit = CX
For Radius = 0 To Limit ' 半径。
Circle (CX, CY), Radius,RGB(Rnd 255, Rnd 255, Rnd 255)
Next Radius
End Sub
--------------------------------------------------------------------------------
应用于:
Form 对象、Forms 集合
PictureBox 控件
PropertyPage 对象
UserControl 对象
用3个文本框分别接收圆心的坐标x,y,以及圆的半径。
用一个按钮,执行单击事件的代码:
绘制圆的语句:
meCircle (x, y), radius, color
例如:在坐标x = 2000,y=2000,以半径为500的红色圆
MeCircle (2000, 2000), 500, QBColor(12)
以上就是关于VB画圆代码全部的内容,包括:VB画圆代码、vb中画圆的代码怎么写啊、vb画圆环等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)