13518219792
我已经完整在我博客回答了请自己看吧。
成都创新互联公司，专注为中小企业提供官网建设、营销型网站制作、成都响应式网站建设公司、展示型网站设计、做网站等服务，帮助中小企业通过网站体现价值、有效益。帮助企业快速建站、解决网站建设与网站营销推广问题。
代码如下：
再上代码
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Private strConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=updPro.mdb"
Private oleDBconn As New OleDb.OleDbConnection(strConnect)
Private cmd As New OleDbCommand
'检索路径填充到TEXTBOX2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strsql As String
Try
strsql = "select * from 程序路径表 where 程序名称='" Me.TextBox1.Text.Trim "'"
cmd.Connection = oleDBconn
cmd.CommandText = strsql
If Not oleDBconn.State = ConnectionState.Open Then
oleDBconn.Open()
End If
cmd.ExecuteNonQuery()
Dim dtset As New DataSet
Dim oDataAda As New OleDb.OleDbDataAdapter(cmd)
oDataAda.Fill(dtset, "程序路径表")
oleDBconn.Close()
Me.TextBox2.Text = dtset.Tables("程序路径表").Rows(0)("程序路径")
Catch ex As Exception
End Try
End Sub
'shell 启动程序
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
System.Diagnostics.Process.Start(TextBox2.Text.Trim)
Catch ex As Exception
End Try
End Sub
一、分析：
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)
Dim bit As Bitmap=New Bitmap(textBox1.ClientRectangle.Width, _
textBox1.ClientRectangle.Height, _
System.Drawing.Imaging.PixelFormat.Format24bppRgb)
textBox1.DrawToBitmap(bit,textBox1.ClientRectangle)
pictureBox1.Image=bit
bit.Save("")'保存文件的路径
这是保存文本框内容的方法，保存余下内容的方法我还要点事件弄
VB点虐 与VB不同。
VB点虐 已经有专门绘图的类。
可以定义笔刷然后用Drawing类中的方法绘制。
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
