DotNetBar关于使用 MicroChart1一例

本人使用DotNetBar算起来有三四年了，到现在使用的9.0版本，感觉比以前的版本稳定多了，在开发软件使用DotNetBar可以使用界面美观，专业，下面就使用MicroChart1作一历史记录，供大家参考

'加载到图像
    Private Sub LoadChart(ByVal pstr As String)

        If pstr = "" Then Exit Sub
        MicroChart1.DataPoints = GetTareDataPoints(pstr)
        MicroChart1.Update()

    End Sub

    '获得皮重值
    Private Function GetTareDataPoints(ByVal pStr As String) As List(Of Double)
        Dim points As New List(Of Double)()

        Dim tmp As String = " 车船号='" & pStr & "'"
        Dim Dt As New DataTable
        Dt = Bl.GetNameBydate(" 皮重 ", tmp, DTPbegin.Value, DTPEnd.Value).Tables(0)
        For Each m As DataRow In Dt.Rows
            points.Add(Double.Parse(m("皮重").ToString))
        Next
        Return points
    End Function