作者mimio1004 (勇往直前)
看板Visual_Basic
标题[VB2008] 请问vb2008如何读档将数据绘图
时间Thu Oct 29 11:46:06 2009
请问：vb2008里 写出能够读取txt档里数值来画图形吗?
下面的程式已经能够读取数值，请问将数据绘图需要用什麽指令?
才疏学浅，想请问一下，谢谢
Imports System.Data
Public Class Form1
Dim ds As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'读取XML文件并放入DataSet
ds.ReadXml("person.xml")
DataGridView1.DataSource = ds.Tables("读取资料")
Dim dc As DataColumn = ds.Tables("读取资料").Columns("地点")
'在读取资料DataTable建立地点栏位为主键，主键名称为「PK_地点」
Imports System.Data
Public Class Form1
Dim ds As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'读取XML文件并放入DataSet
ds.ReadXml("person.xml")
DataGridView1.DataSource = ds.Tables("读取资料")
Dim dc As DataColumn = ds.Tables("读取资料").Columns("地点")
'在读取资料DataTable建立地点栏位为主键，主键名称为「PK_地点」
ds.Tables("读取资料").Constraints.Add("PK_地点", dc, True)
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnAdd.Click
Dim dr As DataRow
'寻找指定的DataRow，若找不到会传回Nothing
dr = ds.Tables("读取资料").Rows.Find(txtId.Text)
'若DataRow为Nothing，表示DataTable内没有该笔记录
If dr Is Nothing Then
'新增DataRow，即新增一笔记录
Dim myRow As DataRow = ds.Tables("读取资料").NewRow()
myRow("地点") = txtId.Text
myRow("日期") = txtDay.Text
myRow("时间") = txtTime.Text
' myRow("信箱") = txtMail.Text
ds.Tables("读取资料").Rows.Add(myRow)
MessageBox.Show("地点" & txtId.Text & "这笔记录已经在记忆体新增完
成!!")
Else
MessageBox.Show(txtId.Text & "地点重复，已经有此笔记录!!", "错误
", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnUpdate.Click
Dim dr As DataRow
dr = ds.Tables("读取资料").Rows.Find(txtId.Text)
If dr Is Nothing Then
MessageBox.Show("找不到地点 " & txtId.Text & "的资料!!所以无法进行
修改作业", "错误", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
'修改记录
dr("日期") = txtDay.Text
dr("时间") = txtTime.Text
' dr("信箱") = txtMail.Text
MessageBox.Show("地点" & txtId.Text & "这笔记录已经在记忆体更新完
成!!")
End If
End Sub
Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnDel.Click
Dim dr As DataRow
dr = ds.Tables("读取资料").Rows.Find(txtId.Text)
If dr Is Nothing Then
MessageBox.Show("找不到地点 " & txtId.Text & "的资料!!所以无法进行
删除作业", "错误", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
'删除记录
ds.Tables("读取资料").Rows.Remove(dr)
MessageBox.Show("地点" & txtId.Text & "这笔记录已经在记忆体删除完
成!!")
End If
End Sub
Private Sub btnAllUpdate_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnAllUpdate.Click
'将DataSet的资料一次写回XML文件
ds.WriteXml("person.xml")
MessageBox.Show("成功的将资料更新到XML档")
End Sub
Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnOk.Click
lstResult.Items.Clear()
Dim ds As New DataSet
ds.ReadXml("person.xml") '将person.xml读入至ds
'建立地点为读取资料DataTable的主键
Dim dc As DataColumn = ds.Tables("读取资料").Columns("地点")
ds.Tables("读取资料").Constraints.Add("PK_地点", dc, True)
Dim dr As DataRow
'DataRowCollection的Find方法搜寻txtSearchId主键资料
dr = ds.Tables("读取资料").Rows.Find(txtSearchId.Text)
'判断dr是否为Nothing
If dr Is Nothing Then
lstResult.Items.Add("没有地点 " & txtSearchId.Text & " 的读取资料
")
Return
Else
lstResult.Items.Add("地点：" & dr("地点"))
lstResult.Items.Add("日期：" & dr("日期"))
lstResult.Items.Add("时间：" & dr("时间"))
End If
End Sub
End Class
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.17.10.203
1F：推 HatasonJa:看你是要自己画还是用API 网路上有很多API可以拿来用 10/29 12:08
2F：→ HatasonJa:大部分都只要把资料作成ARRAY丢进去就可以了 10/29 12:09
3F：→ MOONRAKER:自己画也很容易啦 本人文章 #18PHmBWU 有示范 10/29 13:09
4F：→ MOONRAKER:里面只有示范drawpie, 但是你自己可以看help找出 10/29 13:09
5F：→ MOONRAKER:drawellipse, drawline也是一样的 画点就画个小圆就好 10/29 13:10
6F：→ MOONRAKER:.NET graphics是真的取消画点功能 10/29 13:11