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)

vb6和vb.net如何选择？

vb6多线程没有vb.net方便

vb6可以在win10上运行，开发的程序也可以不用担心无法运行的问题 都向下兼容的

理论和现实上 都不会让vb6开发的程序无法运行

够用，只不过是因为处理文件上没有多线程 速度上可能会慢点而已

这个因人而异，每个人的理解能力不同，编程逻辑思想比较重要，语法不同比较容易解决

VB.net/C#编程：我需要将Excel表格的部分数据导入到DataGridView进行进一步分析

DataGridView没有存储功能，不叫导入，他是显示、读取、编辑数据用的。如果你的Grid里有数据他来自哪个表啊？你就要分析哪个表与Excel表的关系，而不是Grid与Excel表的关系。用Grid可以直接连接Excel表，不需要做导入操作，估计你意思是Grid里有数据了，修改里面的数据插入Excel匹配数据项。先可以读取Excel数据，然后插入到你Grid显示的表里，而不是Grid里。

OleDbConnection cnn=new OleDbConnection();

cnn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StrartUpPath + "/Excel名称.xls;Extended Properties='Excel 8.0;HDR=YES'";

cnn.Open();

try

{

sql="Select 字段名 From [Sheet1$] where 条件表达式";

OleDbDataAdapter oda=new OleDbDataAdapter(sql,cnn);

DataSetds=new DataSet();

oda.Fill(ds);

if(ds.Tables[0].Rows.Countamp;gt;0)

{

//...继续连接数据库,也填充一个DataSet对象ds1

//...把Excel数据循环遍历方式或者用跨数据库方式（或ACCESS整理方式）插入数据库

dataGridView.DataSource=ds1.Tables[0];

}

}

catch

{

cnn.Close();

MessageBox.Show("数据库文件丢失","系统消息");

}

finnly

{

cnn.Close();

}

sql 为string

不知道你看懂没有

名称栏目：vb.net数据分析 vbnet reportviewer
标题路径：http://myzitong.com/article/dospsho.html