如何实现拖放txt文件并作图？vb.net

[勤奋石头]

如图
左侧显示选择的某一路径下的txt文件
然后拖住左侧某一路径下的txt文件，然后放置到右侧则绘出折线图。
谢谢各位指导~~
不胜感激

[放开我的胡萝卜]

其实就是把txt的数据读取出来，转化为坐标点

[勤奋石头]

引用 1 楼 Hello_Ge 的回复:

其实就是把txt的数据读取出来，转化为坐标点

恩恩，那这个拖放怎么来实现呢？谢谢了

[c999000]

下面是绘图的，你再去搜一下读取txt的

Chart1.Series.RemoveAt(0)   '清除原来的系列
Dim i As Integer
Dim j As Integer
For i = 0 To 11    '设置有12个系列
Chart1.Series.Add("系列" & i + 1)
''添加数据点的个数
For j = 0 To 3   '设置有4个数据点
Chart1.Series(i).Points.Add()
Next
Next
'用生成的随机数（范围[2.0，9.9]），作为数据
Randomize()
For i = 0 To 11
For j = 0 To 3
Chart1.Series(i).Points(j).YValues = {Int((99 - 20 + 1) * Rnd() + 20) / 10}   '将随机数据赋值给图表点的Y值
Next
Chart1.Series(i).ChartType = DataVisualization.Charting.SeriesChartType.Line'设置图表类型
Next

[勤奋石头]

引用 3 楼 yujiaocao 的回复:

下面是绘图的，你再去搜一下读取txt的

Chart1.Series.RemoveAt(0)   '清除原来的系列
Dim i As Integer
Dim j As Integer
For i = 0 To 11    '设置有12个系列
Chart1.Series.Add("系列" & i + 1)
''添加数据点的个数
For j = 0 To 3   '设置有4个数据点
Chart1.Series(i).Points.Add()
Next
Next
'用生成的随机数（范围[2.0，9.9]），作为数据
Randomize()
For i = 0 To 11
For j = 0 To 3
Chart1.Series(i).Points(j).YValues = {Int((99 - 20 + 1) * Rnd() + 20) / 10}   '将随机数据赋值给图表点的Y值
Next
Chart1.Series(i).ChartType = DataVisualization.Charting.SeriesChartType.Line'设置图表类型
Next

好的，谢谢了

[悠然小木]

文本拖拽，请参考
http://m.blog.csdn.net/article/details?id=51363767