vb.net图形轮廓,凸轮轮廓设计vb

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)

相关问答

Q1: 大佬们~VisualStudio中vb.net如何画三角函数图像？

VB系统的坐标原点在左上角，X轴的正方向是水平向右，而Y轴的正方向是垂直向下。所以，要绘制三角函数的曲线，自己可以通过改变点坐标的方法来实现，当然，VB.NET提供了相应的方法可以来实现坐标变换，也可以通过VB.Net的Graphics类提供的平移、旋转等转换来实现。

下面是我通过自己变换实现的示例，提供参考；我的环境是VB.NET 2010

Imports System.Math

Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      '1，获得一个Graphics对象

      Dim MyGraphics As Graphics

      MyGraphics = PictureBox1.CreateGraphics

      '2，定义一个Pen对象，用于绘制图形（轮廓线）

      Dim MyPen As New Pen(Color.Black, 1)

      '3，定义一个Brush对象，用于填充图形（如果需要填充的话）

      Dim MyBrush As New SolidBrush(Color.Orange)

      MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)

  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

      '1，获得一个Graphics对象

      Dim MyGraphics As Graphics

      MyGraphics = PictureBox1.CreateGraphics

      '2，定义一个Pen对象，用于绘制图形（轮廓线）

      Dim MyPen As New Pen(Color.Black, 1)

      '3，定义一个Brush对象，用于填充图形（如果需要填充的话）

      Dim MyBrush As New SolidBrush(Color.Orange)

      '声明横向和纵向比例变量

      Dim Heng As Integer = 20

      Dim Zong As Integer = 50

      '先获得正弦值，保存到点坐标数组

      Dim MyPoints(700) As Point

      Dim i As Integer

      For i = 0 To 700

          MyPoints(i) = New Point(i * Heng, 200 + Sin(i) * Zong)

      Next

      '采用绘制光滑线连接点的方式绘制曲线

      MyGraphics.DrawCurve(MyPen, MyPoints)

  End Sub

End Class

显示的效果图：

Q2: vb.net2010中如何在窗口中建立画布

'绘制图形的三步曲

'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)

MyGraphics.FillEllipse(MyBrush, 200, 200, 100, 100) '绘制一个实心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内

MyGraphics.DrawEllipse(MyPen, 200, 200, 100, 100) '绘制一个空心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内