锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net画填充椭圆 vb中填充样式为水平线

IT技术椭圆

VB.NET中怎样画圆弧用Circle画圆圆弧椭圆都具体参照面详细说明 Circle(一000,一000),500,吧,-陆,-三 一000,一000,圆坐标 500,半径 面别代表起始角,终止角,短轴比率 吧,详细点,Circle都说遍 象画圆、椭圆或弧 语 object.Circle [Step] (x, y), radius, [color, start, end, aspect] Circle 语象限定符部： 部 描述 object 选 象表达式其值应用于列表象object 省略具焦点窗体作object Step 选关键字 指定圆、椭圆或弧相于前 objectCurrentXCurrentY 属性提供坐标 (x, y) 必需 Single （单精度浮点数）圆、椭圆或弧坐标objectScaleMode 属性决定使用度量单位 radius 必需Single （单精度浮点数）圆、椭圆或弧半径 objectScaleMode 属性决定使用度量单位 color 选Long （整型数）圆轮廓 RGB 颜色省略则使用 ForeColor 属性值用 RGB 函数或 QBColor 函数指定颜色 start, end 选 Single （单精度浮点数）弧、或部圆或椭圆画完startend 指定（弧度单位）弧起点终点位置其范围 -二 pi二 pi 起点缺省值0; 终点缺省值二 * pi aspect 选 Single （单精度浮点数）圆纵横尺寸比缺省值 一.0何屏幕都产标准圆（非椭圆） 说明 想要填充圆使用圆或椭圆所属象 FillColorFillStyle 属性封闭图形才能填充封闭图形包括圆、椭圆、或扇形 画部圆或椭圆 start 负Circle 画半径 start并角度处理； end 负Circle 画半径 end并角度处理Circle 总逆针（）向绘图 画圆、椭圆或弧线段粗细取决于 DrawWidth 属性值背景画圆取决于 DrawModeDrawStyle 属性值 画角度 0 扇形要画条半径（向右画水平线段）给 start 规定负值要给 0 .省略语间某参数能省略隔参数逗号您指定参数面逗号省略 Circle 执行CurrentXCurrentY 属性参数设置点 能用 WithEnd With 语句块 -------------------------------------------------------------------------------- Circle 示例 示例用Circle 窗体央画许同圆要运行示例代码放入窗体 General 部按 F5 并单击窗体 Sub Form_Click ()Dim CX, CY, Radius, Limit' Declare variable.ScaleMode = 三' 像素单位CX = ScaleWidth / 二' X 位置CY = ScaleHeight / 二' Y 位置If CXCY Then Limit = CY Else Limit = CXFor Radius = 0 To Limit' 半径Circle (CX, CY), Radius,RGB(Rnd * 二55, Rnd * 二55, Rnd * 二55)Next Radius End Sub -------------------------------------------------------------------------------
如何用VB.NET画同心圆窗体上添加一个按钮 ， 在该按钮的单击事件里编写代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'声明窗体的Me.CreateGraphics对象
Dim MyGraphics As Graphics = Me.CreateGraphics
Dim Cx As Integer = 150'圆心的X坐标
Dim Cy As Integer = 150'圆心的Y坐标
Dim R As Integer'圆的半径
'绘制半径为R的圆
For R = 5 To 100 Step 5
MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))
Next
End Sub
‘用黑色画笔绘制一组同心圆，半径从5开始，增量为5 。
说明：
DrawEllipse是VB.Net的Graphics类的绘制椭圆的方法；他有几种格式，上面使用的是一种；
DrawEllipse（画笔的颜色，绘制椭圆所需要的矩形区域）
其中：绘制椭圆所需要的矩形区域，如果被定义为正方形，就演变成绘制圆 ， 定义该区域由死个数值确定，第1个数值，确定该区域左上角的X坐标 ， 第2个数值 ， 确定该区域左上角的Y坐标，第3个数值，确定该区域的宽度，第4个数值 ， 确定该区域的高度 。
例如1：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))
就是以圆心坐标为（100,100），绘制半径为50 的圆 。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），边长为50的正方形里绘制内切圆 。理解了是在正方形里绘制内切圆 ， 就可以通过数学计算 ， 知道如何绘制了 。
同理例如2：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))
就是以圆心坐标为（100,100），绘制半径为50 的圆 。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），长轴为100 ， 短轴为50的内切椭圆 。
vb.net 真的没法画点吗？.NET确实没有提供画一个像素点得方法
你可以试一下用FillEllipse填充一个宽1像素，高2像素的椭圆
原理就是FillEllipse的时候，最左边那一列一般都会多出一个一像素的点；高至少要2，少了就什么都画不出来
vb.net读取txt的数据作图问题一、分析：
1，这一类随时间而变化的曲线图，通常把横轴作为时间，把纵轴作为相应的值，在这里就是密度值 。
2，点的集合就是线；一组时间、密度值，对应一个点，把点连接起来就构成了线 。
二、在VB.NET中作图 ， 需要知道并解决几个问题：
1，与VB6一样，VB.NET中默认的坐标系统，左上角为坐标原点，X轴的正向为从左向右，Y轴的正向是从上向下 。
为了使得它与数学中的坐标系统相一致，可以使用VB.NET中Graphics类的两个方法；
1、TranslateTransform----平移变换
格式：Graphics.TranslateTransform(dx,dy)
其中：dx 和 dy分别是Single数据类型
2、ScaleTransform----缩放变换
格式：Graphics.ScaleTransform(sx,sy)
其中：sx 和 sy分别是Single数据类型；
例如：为了符合数学中的一般格式 ， 可以使用下述代码：
Graphics.ScaleTransform(1, -1)
这样就把Y轴的正方向给翻过来了 。
三、VB.NET中绘制图形
1，绘制圆或椭圆
'绘制图形的三步曲
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定义一个Pen对象 ， 用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black)
'3，定义一个Brush对象，用于填充图形（如果需要填充的话）
Dim MyBrush As New SolidBrush(Color.Orange)
'绘制一个实心圆，该圆在：直线x=200，y=200，x=200 100，y=200 100所划的矩形区域内
MyGraphics.FillEllipse(Brush, 200, 200, 100, 100)
'绘制一个空心圆，该圆在：直线x=200，y=200，x=200 100，y=200 100所划的矩形区域内
MyGraphics.DrawEllipse(Pen, 200, 200, 100, 100)
注意：最后两个数值如果不等，就是绘制椭圆
当圆足够?。褪堑懔?。
2，绘制直线
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black)
MyGraphics.DrawLine(MyPen, 200, 200, 100, 100)
'或者直接用
Me.CreateGraphics.DrawLine(New Pen(Color.Black), 50, 50, 200, 200)
VB怎样画扇形，椭圆，弧形用Circle画圆圆弧椭圆都可以
具体参照下面vb.net画填充椭圆的详细说明
Circle(1000,1000),500,8,-6,-3
1000,1000,圆心坐标
500,半径
后面分别代表起始角,终止角,长短轴比率
好吧,详细点,就把Circle方法都说一遍
在对象上画圆、椭圆或弧 。
语法
object.Circle [Step] (x, y), radius, [color, start, end, aspect]
Circle 方法vb.net画填充椭圆的语法有如下的对象限定符和部分：
部分 描述
object 可选的 。对象表达式，其值为“应用于”列表中的对象 。如果object 省略，具有焦点的窗体作为object 。
Step 可选的 。关键字，指定圆、椭圆或弧的中心，它们相对于当前 object 的 CurrentX 和 CurrentY 属性提供的坐标 。
(x, y) 必需的 。Single （单精度浮点数），圆、椭圆或弧的中心坐标 。object 的 ScaleMode 属性决定vb.net画填充椭圆了使用的度量单位 。
radius 必需的 。Single （单精度浮点数），圆、椭圆或弧的半径 。object 的 ScaleMode 属性决定了使用的度量单位 。
color 可选的 。Long （长整型数），圆的轮廓的 RGB 颜色 。如果它被省略，则使用 ForeColor 属性值 。可用 RGB 函数或 QBColor 函数指定颜色 。
start, end 可选的 。Single （单精度浮点数），当弧、或部分圆或椭圆画完以后，start 和 end 指定（以弧度为单位）弧的起点和终点位置 。其范围从 -2 pi 到 2 pi。起点的缺省值是0; 终点的缺省值是2 * pi 。
aspect 可选的 。Single （单精度浮点数），圆的纵横尺寸比 。缺省值为 1.0，它在如何屏幕上都产生一个标准圆（非椭圆） 。
说明
想要填充圆，使用圆或椭圆所属对象的 FillColor 和 FillStyle 属性 。只有封闭的图形才能填充 。封闭图形包括圆、椭圆、或扇形 。
画部分圆或椭圆时，如果 start 为负 ， Circle 画一半径到 start ， 并将角度处理为正的vb.net画填充椭圆；如果 end 为负，Circle 画一半径到 end，并将角度处理为正的 。Circle 方法总是逆时针（正）方向绘图 。
画圆、椭圆或弧时线段的粗细取决于 DrawWidth 属性值 。在背景上画圆的方法取决于 DrawMode 和 DrawStyle 属性值 。
画角度为 0 的扇形时，要画出一条半径（向右画一水平线段），这时给 start 规定一很小的负值，不要给 0 。
.可以省略语法中间的某个参数 ， 但不能省略分隔参数的逗号 。您指定的最后一个参数后面的逗号是可以省略的 。
Circle 执行时，CurrentX 和 CurrentY 属性被参数设置为中心点 。
这个方法不能用在 WithEnd 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 CXCY 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
--------------------------------------------------------------------------------
VB画椭圆的程序怎么编写用极坐标方程啊 。
根据椭圆的极坐标方程：x＝P*cosA,y＝P*sinA,如果在中心点旋转角度为B的话vb.net画填充椭圆 ， 那极坐标方程就是
x＝P*cos(A＋B)，y＝P*sin(A＋B)，将COS（A＋B)和SIN（A＋B）展开 ， 解关于A的方程，得到
sinA＝ 。。。cosA＝....
因此可以在VB里面用object.pset(sinA,cosA)画椭圆vb.net画填充椭圆了
x1,y1为椭圆中心点移动的坐标
控件自己添加进去就OK了 。
代码如下：
Private Sub Command1_Click()
Picture1.Cls
Picture1.Scale (-100, 100)-(100, -100)
Picture1.AutoRedraw = True
Dim x, y As Double
Dim Alfa, Ceta As Double
Dim x1, y1 As Double
Dim r, g, bb As Double
r = r10
g = g
bb = bbr
x1 = Val(Text4.Text)
y1 = Val(Text5.Text)
【vb.net画填充椭圆 vb中填充样式为水平线】a = Val(Text2.Text)
b = Val(Text3.Text)
Text1.Text = Val(Text1.Text)10
Ceta = Val(Text1.Text) / 180 * 3.1415926
For Alfa = -3.1415926 To 3.1415926 Step 0.003
x = a * Cos(Alfa)
y = b * Sin(Alfa)
m = ((x) * Cos(Ceta)(y) * Sin(Ceta))x1
n = (-x) * Sin(Ceta)(y) * Cos(Ceta)y1
Picture1.PSet (m, n), RGB(r, 0, bb)
Next Alfa
Picture1.Line (0, 100)-(0, -100), vbRed
Picture1.Line (100, 0)-(-100, 0), vbRed
End Sub
vb.net画填充椭圆的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb中填充样式为水平线、vb.net画填充椭圆的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：用什么直播游戏好挣钱，什么软件游戏直播最赚钱

    下一篇：下载手机语音助手，下载手机语音助手免费版