vb 画扇形
谁帮我一下,要求画一个扇形:要求在picture1的单击事件里面画;圆心点坐标是2500,2500半径长为1000(其中一条半径坐标为3500,2500)两条半径之间的角...
谁帮我一下,要求画一个扇形:
要求在picture1的单击事件里面画;
圆心点坐标是2500,2500
半径长为1000 (其中一条半径坐标为3500,2500)
两条半径之间的角度为45度
扇形填充为vbred、边线条为vbgreen。
请前辈们帮帮忙,在下感激不尽。。
(其中一条半径坐标为3500,2500)
意思是:其中一条半径,它两头坐标分别为(2500,2500)-(3500,2500) 展开
要求在picture1的单击事件里面画;
圆心点坐标是2500,2500
半径长为1000 (其中一条半径坐标为3500,2500)
两条半径之间的角度为45度
扇形填充为vbred、边线条为vbgreen。
请前辈们帮帮忙,在下感激不尽。。
(其中一条半径坐标为3500,2500)
意思是:其中一条半径,它两头坐标分别为(2500,2500)-(3500,2500) 展开
3个回答
展开全部
'添加窗体Form1,Picture1,然后添加如下代码:
Private Sub Form_Load()
Me.Show
Dim angleN, stepN, originX, originY As Double
stepN = 0.01
originX = 2500
originY = 2500
For angleN = 3.134952627 * 3 / 4 To 3.134952627 / 2 Step -stepN
Picture1.Line (originX, originY)-(originX + 1000 * Sin(angleN), originY + 1000 * Cos(angleN)), vbRed
Next
Picture1.Line (originX, originY)-(originX + 1000 * Sin(3.134952627 * 3 / 4), originY + 1000 * Cos(3.134952627 * 3 / 4)), vbGreen
Picture1.Line (originX, originY)-(originX + 1000 * Sin(angleN), originY + 1000 * Cos(angleN)), vbGreen
Picture1.Circle (originX, originY), 1000, vbGreen, 0, 3.14 / 4
End Sub
Private Sub Form_Load()
Me.Show
Dim angleN, stepN, originX, originY As Double
stepN = 0.01
originX = 2500
originY = 2500
For angleN = 3.134952627 * 3 / 4 To 3.134952627 / 2 Step -stepN
Picture1.Line (originX, originY)-(originX + 1000 * Sin(angleN), originY + 1000 * Cos(angleN)), vbRed
Next
Picture1.Line (originX, originY)-(originX + 1000 * Sin(3.134952627 * 3 / 4), originY + 1000 * Cos(3.134952627 * 3 / 4)), vbGreen
Picture1.Line (originX, originY)-(originX + 1000 * Sin(angleN), originY + 1000 * Cos(angleN)), vbGreen
Picture1.Circle (originX, originY), 1000, vbGreen, 0, 3.14 / 4
End Sub
展开全部
画圆
Circle 方法可画出圆形和椭圆形的各种形状.另外,Circle 方法还可以画出圆弧(圆的一部分)和楔形饼块.使用变化的 Circle 方法,可画出多种曲线.
为了画圆,Visual Basic 需要给出该圆的圆心位置和它的半径.画一个理想圆的语法是:
[object.]Circle [Step](x, y), radius[, color]
方括号表明 object 和 Step 关键字是任选项.如果不指定 object,则认为指定的就是当前的窗体.x 参数和 y 参数是圆心的坐标,radius 参数是圆的半径.例如,下面语句将画出一个以 (1200,1000) 为圆心、750 为半径的圆:
Circle (1200, 1000), 750
这个语句产生的精确作用,还要依赖于窗体的大小和窗体的坐标系.如果不知道窗体的大小,也就不能知道这个圆是否可见.可使用绘图区的标尺属性,将该圆的圆心置于窗体的中心处:
Circle ((ScaleWidth + ScaleLeft) / 2, (ScaleHeight + _
ScaleTop) / 2), ScaleWidth / 4
此时,关于 ScaleWidth 和 ScaleHeight 所有应知道的是,它们能帮助将图形定位于窗体的中心.
详细信息 在本章前面"改变对象的坐标系统”中详细讨论了 ScaleWidth 和 ScaleHeight 属性.
注意 圆的半径通常是按照水平单位来指定的.如果坐标系使用的水平单位和垂直单位是相同的话(按照缺省规定,应当这样),可以不用考虑单位问题.但如果使用的是自定义标尺,则水平单位和垂直单位可能对应不同的长度.上例中,半径是用水平单位来指定的,可以保证圆的实际高度和实际宽度相等.
Blanker 应用程序创建了一些圆圈,作为多彩地毯演示程序的一部分.该演示程序围绕窗体中心画出一系列虚线圆.这些圆看起来正好象一个编织成的圆形地毯.CircleDemo 过程使用下列语句,在多彩地毯演示程序中画圆:
Sub CircleDemo ()
Dim Radius
将红色设置为随机数.
R = 255 * Rnd
将绿色设置为随机数.
G = 255 * Rnd
将蓝色设置为随机数.
B = 255 * Rnd
将 x 坐标设置在窗体中间.
XPos = ScaleWidth / 2
将 y 坐标设置在窗体中间.
YPos = ScaleHeight / 2
将半径设置在窗体高度的 0 到 50% 之间.
Radius = ((YPos * 0.9) + 1) * Rnd
用随机颜色画圆.
Circle (XPos, YPos), Radius, RGB(R, G, B)
End Sub
Circle 方法可画出圆形和椭圆形的各种形状.另外,Circle 方法还可以画出圆弧(圆的一部分)和楔形饼块.使用变化的 Circle 方法,可画出多种曲线.
为了画圆,Visual Basic 需要给出该圆的圆心位置和它的半径.画一个理想圆的语法是:
[object.]Circle [Step](x, y), radius[, color]
方括号表明 object 和 Step 关键字是任选项.如果不指定 object,则认为指定的就是当前的窗体.x 参数和 y 参数是圆心的坐标,radius 参数是圆的半径.例如,下面语句将画出一个以 (1200,1000) 为圆心、750 为半径的圆:
Circle (1200, 1000), 750
这个语句产生的精确作用,还要依赖于窗体的大小和窗体的坐标系.如果不知道窗体的大小,也就不能知道这个圆是否可见.可使用绘图区的标尺属性,将该圆的圆心置于窗体的中心处:
Circle ((ScaleWidth + ScaleLeft) / 2, (ScaleHeight + _
ScaleTop) / 2), ScaleWidth / 4
此时,关于 ScaleWidth 和 ScaleHeight 所有应知道的是,它们能帮助将图形定位于窗体的中心.
详细信息 在本章前面"改变对象的坐标系统”中详细讨论了 ScaleWidth 和 ScaleHeight 属性.
注意 圆的半径通常是按照水平单位来指定的.如果坐标系使用的水平单位和垂直单位是相同的话(按照缺省规定,应当这样),可以不用考虑单位问题.但如果使用的是自定义标尺,则水平单位和垂直单位可能对应不同的长度.上例中,半径是用水平单位来指定的,可以保证圆的实际高度和实际宽度相等.
Blanker 应用程序创建了一些圆圈,作为多彩地毯演示程序的一部分.该演示程序围绕窗体中心画出一系列虚线圆.这些圆看起来正好象一个编织成的圆形地毯.CircleDemo 过程使用下列语句,在多彩地毯演示程序中画圆:
Sub CircleDemo ()
Dim Radius
将红色设置为随机数.
R = 255 * Rnd
将绿色设置为随机数.
G = 255 * Rnd
将蓝色设置为随机数.
B = 255 * Rnd
将 x 坐标设置在窗体中间.
XPos = ScaleWidth / 2
将 y 坐标设置在窗体中间.
YPos = ScaleHeight / 2
将半径设置在窗体高度的 0 到 50% 之间.
Radius = ((YPos * 0.9) + 1) * Rnd
用随机颜色画圆.
Circle (XPos, YPos), Radius, RGB(R, G, B)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
先设置FillMode=0,然后Circle (X坐标, Y坐标), 半径, 颜色, 负的起始角,负的终止角。
比如:
FillMode = 0 '实心填充
FillColor = vbRed '红色
Circle (500,500), 100, vbBlack, -1, -2
则画一个带黑色边框的扇形,起始角为1弧度,终止角为2弧度
比如:
FillMode = 0 '实心填充
FillColor = vbRed '红色
Circle (500,500), 100, vbBlack, -1, -2
则画一个带黑色边框的扇形,起始角为1弧度,终止角为2弧度
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询