正文

vb.net编曲线,vb画曲线

IP云
IP云V管理员/3 阅读
12/16
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

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 选关键字 指定圆、椭圆或弧相于前 object CurrentX CurrentY 属性提供坐标 (x, y) 必需 Single （单精度浮点数）圆、椭圆或弧坐标object ScaleMode 属性决定使用度量单位 radius 必需Single （单精度浮点数）圆、椭圆或弧半径 object ScaleMode 属性决定使用度量单位 color 选Long （整型数）圆轮廓 RGB 颜色省略则使用 ForeColor 属性值用 RGB 函数或 QBColor 函数指定颜色 start, end 选 Single （单精度浮点数）弧、或部圆或椭圆画完start end 指定（弧度单位）弧起点终点位置其范围 -二 pi 二 pi 起点缺省值0; 终点缺省值二 * pi aspect 选 Single （单精度浮点数）圆纵横尺寸比缺省值 一.0何屏幕都产标准圆（非椭圆） 说明 想要填充圆使用圆或椭圆所属象 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 = 三 ' 像素单位 CX = ScaleWidth / 二 ' X 位置 CY = ScaleHeight / 二 ' Y 位置 If CX CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit ' 半径 Circle (CX, CY), Radius,RGB(Rnd * 二55, Rnd * 二55, Rnd * 二55) Next Radius End Sub -------------------------------------------------------------------------------

相关问答

Q1: vb.net中，我用picturebox控件画曲线。使用picturebox.CreateGraphics()画线，请教保存问题？？

首先你要建一个 Bitmap

再将picture控件的image属性与之相关联

再到 picture的image上画线

保存image到文件

/////////////////////////////////

Dim mybitmap As Bitmap

mybitmap = New Bitmap(300, 150)

PictureBox0.Image = mybitmap

Dim Graph As Graphics

Graph =Graphics.FromImage(PictureBox0.image)

Graph .drawline(Pens.Blue,0,0,111,111)

picturebox0.image.save("c:\aaa.jpg")

/////////////////////////////////////

存成的文件绝对有你画的线..我一直在用这种方法

Q2: vb和vb.net 在picturebox 中绘制直线如何绘制

绘图是系统内部操作的，不需要懂原理

方法就在那里，只有会用和不会用，你的代码告诉它绘制，它就会绘制。它（方法）究竟如何去绘制的并不是重点，反正它会绘制。

drawline（绘线）方法很简单，第一个参数是pen,它确定线条的颜色、宽度和样式。第二、第三个参数都是point类型，确定两个点的位置，绘制直线。

Q3: vb.net 画线再画保留以前画得

可以把所有画的线都保存在一个列表中，画的时候全部画出即可。如下：

Public Class Form1

  Class Line      '直线类

      Public Point1, Point2 As Point     '成员，直线的两个端点

      Sub New(p1 As Point, p2 As Point)   '构造方法

          Point1 = p1

          Point2 = p2

      End Sub

      Public Sub Draw(g As Graphics)      '绘制方法

          g.DrawLine(Pens.Black, Point1, Point2)

      End Sub

  End Class

  Private Lines As New List(Of Line)      '列表用于保存所有画下的直线

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

      BackColor = Color.White

      DoubleBuffered = True       '开启双缓冲可有效避免闪烁

  End Sub

  Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown

      Lines.Add(New Line(e.Location, e.Location))     '在直线列表中添加直线

  End Sub

  Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove

      If e.Button  Windows.Forms.MouseButtons.Left Then Return '左键未按下

      '鼠标拖动时改变列表最后一条直线（也即当前直线的第二个端点）

      Lines(Lines.Count - 1).Point2 = e.Location

      Refresh()       '刷新窗体

  End Sub

  '在Form的Paint事件中绘制所有直线，每次Form1重绘时都会触发Paint事件

  'PS: 也可以通过重写OnPaint方法来达到类似的效果

  Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint

      e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias    '开启抗锯齿

      For Each l In Lines     '遍历所有直线

          l.Draw(e.Graphics)  '调用绘制方法，传入的参数可以理解为画布

      Next

  End Sub

End Class

运行效果：

Q4: VB.net中如何在picturebox画线，有什么函数？

Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height)

Dim g As Graphics = Graphics.FromImage(b)

g.Clear(Color.White)

Dim p As New Pen(Color.Black)

p.EndCap = Drawing2D.LineCap.ArrowAnchor

g.DrawLine(p, 30, PictureBox1.Height - 30, 30, 30)

g.DrawLine(p, 30, PictureBox1.Height - 30, PictureBox1.Width - 30, PictureBox1.Height - 30)

Dim i As Integer

Dim bs As New SolidBrush(Color.Green)

Dim po As New Point

po.X = 0

po.Y = PictureBox1.Height - 35

For i = 700 To 1000 Step 50

g.DrawString(i, Me.Font, bs, po.X, po.Y)

g.DrawLine(p, po.X + 28, po.Y + 5, po.X + 30, po.Y + 5)

po.Y -= (PictureBox1.Height - 100) / 6

Next

po.X = 30

po.Y = PictureBox1.Height - 30

For i = 0 To 40 Step 5

g.DrawString(i, Me.Font, bs, po.X, po.Y + 5)

g.DrawLine(p, po.X, po.Y + 2, po.X, po.Y)

po.X += (PictureBox1.Width - 100) / 8

Next

PictureBox1.Image = b