microsoft visual basic 6.0 画圆
发布网友
发布时间:2022-05-03 00:37
我来回答
共1个回答
热心网友
时间:2022-07-01 04:59
画圆
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 方法画出圆弧,应以弧度为单位,给出定义弧线 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 / 3
End Sub
注意 将度换算成弧度的公式是将度数乘以 Pi/180。
microsoft visual basic 6.0 画圆
Circle 方法可画出圆形和椭圆形的各种形状。另外,Circle 方法还可以画出圆弧(圆的一部分)和楔形饼块。使用变化的 Circle 方法,可画出多种曲线。为了画圆,Visual Basic 需要给出该圆的圆心位置和它的半径。画一个理想圆的语法是:[object.]Circle [Step](x, y), radius[, color]方括号表明 ...
ai生成ppt工具有哪些?
博思AIPPT是基于ai制作PPT的智能在线工具,它提供了4种AI制作PPT的方式,包括AI生成大纲、AI直接生成PPT、文本生成PPT、AI提炼文档生成PPT,一站式集成多种AI生成PPT的方式,可满足办公用户的不同需求和使用场景。ai生成ppt工具有哪些?相比较其...
visual basic6.0精简版用Circle方法画圆如何在圆内添充颜色?新手提问...
用以下这三行代码,就可以画出一个红色的圆:FillStyle = vbFSSolid FillColor = vbRed Circle (1000, 1000), 400 说明:FillStyle属性用来设置填充图案,赋值为vbFSSolid表示填充为实的;FillColor属性用来设置填充颜色,赋值为vbRed表示以红色填充。FillStyle可以取下面这些值:常数 设置值 描述 Vb...
如何画椭圆啊!有哪位高手指教一下.
Visual Basic 6.0 画 Dim g_temp_pt0(2) As Double Dim g_temp_pt1(2) As Double Dim g_temp_pt2(2) As Double Dim g_click_size As Integer Dim len_val As Double Dim g_cur_tool As Long Private Sub Command1_Click()MicroDrawOcx1.UseEvents = 1 g_cur_tool = 501 g_cl...
帮我做下VB考试卷子啊
7.图像框或图片框中显示的图形文件,由他们的_B.picture __属性值决定。8.创建工具栏之前,应选中〖部件〗对话框中的__C.microsoft windows common control 6.0 _复选框才能在工具箱中添加相应的控件按钮。9.Visual Basic中可通过_C.circle __方法画圆。10.用下面语句定义的数组的元素个数是_ ...
关于程序内的彩蛋
出现一个菜单,鼠标左键单击【自定义】在左边栏里,找到“帮助”,左键点击,然后从右边的“命令”选择框中找到“关于Microsoft Visual Basic...”,按住鼠标左键将它拖到一个菜单中。用鼠标右键单击该菜单项目,在弹出的菜单中找到“命名”,它的后边跟着一个文字框,其中有该菜单项目的名字:“关于Microsoft Visual ...
在solidworks里面齿轮怎样配合?
在配合里有个机械配合选项,里面有齿轮配合,选的时候要选齿根圆或者其他两圆上位置相同的圆,在比率里填写两齿轮的齿数比就可以配合了,如果方向不对可以选择反转。注意,操作时最重要的是就是选择机械配合后,选择好两个齿轮的分度圆(如果在建齿轮模型的时候已经画了是最好的,当时没画也没关系,...
Excel中的“宏”怎么用?
如果该宏没有出现在列表中,请选定【宏的位置】框中的其他宏列表。(3)单击【编辑】按钮,出现visualbasic编辑器窗口,可以在这里对宏进行编辑和调试。(4)编辑完成后,选择【文件】菜单中的【关闭并返回到microsoftword】命令返回到word窗口中。 已赞过 已踩过< 你对这个回答的评价是? 评论 收起 ...
咨询一下以下软件,急急急,有高分!!!
新版中增加了三点定位绘图工具:三点椭圆、三点矩形和三点曲线工具可让用户仅通过两次点击便可创建或定位带角度的或倾斜的形体。先用点击和拖过中线或基线的方法创建出形体,然后再次点击便可定义其高度。新的多线工具及笔工具也简化了绘制曲线和直线的过程。新版增强了文本处理,用户可将文本段落转换成...
户外写生海报-怎么制作海报_怎么制作海报图片
AutoCAD具有极强的开放性和可扩展性,软件提供了强大的二次开发手段,例如Visuallisp、C、ARX、MicrosoftVisualBasicforApplication(VBA)等,这使得AutoCAD用户可极大的扩展软件的功能,并可极大应用其它第三方开发出新的功能。 2、3DStudioMax 制作三维动画是一个涉及范围很广的话题,从某种角度来说,三维动画的创作有点类似...
创意海报插画矢量-怎么制作海报_怎么制作海报图片
AutoCAD具有极强的开放性和可扩展性,软件提供了强大的二次开发手段,例如Visuallisp、C、ARX、MicrosoftVisualBasicforApplication(VBA)等,这使得AutoCAD用户可极大的扩展软件的功能,并可极大应用其它第三方开发出新的功能。 2、3DStudioMax 制作三维动画是一个涉及范围很广的话题,从某种角度来说,三维动画的创作有点类似...