讲解VB画圆
刚接触VB,信息书里有个教画圆的教程,最后是成功了,但是我想问一下,VB是根据什么来解出他的半径……这些东西而得出一个圆??请高手们讲解一下,谢谢
追问:眼花了
刚接触VB,信息书里有个教画圆的教程,最后是成功了,但是我想问一下,VB是根据什么来解出他的半径……这些东西而得出一个圆??请高手们讲解一下,谢谢
追问:眼花了
答案:画圆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多彩地毯演示程序的结果,显示在图 12.16 中。图 12.16 Blanker 应用程序里的多彩地毯演示程序画圆弧为了用 Circle 方法画出圆弧,应以弧度为单位,给出定义弧线 start 和 end 的角度参数。画圆弧的语法是:[object.]Circle [Step](x, y), radius, [color], start, end[, aspect]如果 start 参数或 end 参数是负数的话,Visual Basic 将画一条连接圆心到负端点的线。例如,下面的过程将用消除切片方式画出一个饼。Private Sub Form_Click () Const PI = 3.14159265 Circle (3500, 1500), 1000, , –PI / 2, –PI / 3End Sub注意 将度换算成弧度的公式是将度数乘以 Pi/180。颜色常数颜色常数 值 描述 vbBlack &H0 黑色 vbRed &HFF 红色 vbGreen &HFF00 绿色 vbYellow &HFFFF 黄色 vbBlue &HFF0000 兰色 vbMagenta &HFF00FF 洋红 vbCyan &HFFFF00 青色 vbWhite &HFFFFFF 白色 系统颜色常数 值 描述 vbScrollBars &H80000000 滚动条颜色 vbDesktop &H80000001 桌面颜色 vbActiveTitleBar &H80000002 活动窗口标题栏颜色 vbInactiveTitleBar &H80000003 非活动窗口标题栏颜色 vbMenuBar &H80000004 菜单背景颜色 vbWindowBackground &H80000005 窗口背景颜色 vbWindowFrame &H80000006 窗口框架颜色 vbMenuText &H80000007 菜单上文字的颜色 vbWindowText &H80000008 窗口内文字的颜色 vbTitleBarText &H80000009 标题,尺寸框和滚动箭头内文字的颜色 vbActiveBorder &H8000000A 活动窗口边框的颜色 vbInactiveBorder &H8000000B 非活动窗口边框的颜色 vbApplicationWorkspace &H8000000C 多文档界面 (MDI) 应用程序的背景颜色 vbHighlight &H8000000D 控件内选中项的背景颜色 vbHighlightText &H8000000E 控件内选中项的文字颜色 vbButtonFace &H8000000F 绘在命令按钮正面的颜色 vbButtonShadow &H80000010 绘在命令按钮边缘的颜色 vbGrayText &H80000011 变灰的(无效的)文字 vbButtonText &H80000012 揿压按钮上文字的颜色 vbInactiveCaptionText &H80000013 非活动标题内文字的颜色 vb3DHighlight &H80000014 三维显示元素的高亮颜色 vb3DDKShadow &H80000015 三维显示元素的最暗阴影颜色 vb3DLight &H80000016 低于 vb3Dhighlight 的 三维次高亮颜色 vb3DFace &H8000000F 文字表面的颜色 vb3DShadow &H80000010 文字阴影的颜色 vbInfoText &H80000017 提示窗内文字的颜色 vbInfoBackground &H80000018 提示窗内背景的颜色
参考资料:MSDN有函数,就象乘用"*"号一样,理解他的用法,直接调用就可以.Cricle[step](x,y),radius[,[color][,[start][end][,aspet]]
用Cricle画圆 (x,y) 为圆心的坐标 radius 为半径 color为 图的颜色 start,end 设置圆弧的起止角度 asper为圆的枞横比
step 相对于当前 圆心画圆
下面这个是画一个枞横比为1/2的圆
Cricle (2000,2000),1500,1/2 '2000,2000是圆心的坐标 1500是半径 1/2 枞横比 也可以在1500后面加个Color 'VBred