Fare un grafico a linee in Visual Basic.NET o VB.NET, non è così complicato come si potrebbe pensare. È possibile utilizzare i controlli di grafico in VB per creare grafici semplici, intuitivi e di forte impatto visivo per l'analisi statistica e finanziaria complessa. Utilizzare la serie e Punti proprietà per definire i dati che si desidera visualizzare sul grafico. La proprietà ChartType viene utilizzata per definire il tipo di grafico che si desidera utilizzare, ad esempio un grafico a linee.

istruzione

1 Avviare Microsoft Visual Studio, fare clic su "New Project" dal riquadro sinistro dello schermo del computer, ed espandere "Visual Basic" sotto Modelli installati. Fai clic su "Windows" e fare doppio clic su "Applicazione Windows Form" dal centro della finestra di dialogo per creare un nuovo progetto.

2 Fare clic con il riquadro Casella degli strumenti e fare clic su "Scegli elementi." Fare clic sulla scheda ".NET Framework Components" e selezionare la casella "Carta" per aggiungere un nuovo controllo grafico alla Casella degli strumenti. Fare doppio clic sul controllo "Carta" per aggiungere un nuovo controllo grafico al form. Fare doppio clic su "Pulsante" per aggiungere un nuovo pulsante al form.

3 Fare clic con il modulo e fare clic su "Visualizza codice" per lanciare il modulo di codice VB. Copiare e incollare il seguente codice per definire le proprietà del grafico durante l'evento di caricamento form:

Dim dtGraph come nuovo DataTable

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

dtGraph.Columns.Add ( "TimePoint", GetType (intero))

dtGraph.Columns.Add ( "Speed", GetType (intero))

dtGraph.Rows.Add (0, 0)

dtGraph.Rows.Add (1000, 50)

dtGraph.Rows.Add (2000, 50)

dtGraph.Rows.Add (3000, 0)

Con Chart1.ChartAreas (0)

.AxisX.Minimum = 0

.AxisX.Maximum = 3000

.AxisY.Minimum = 0

.AxisY.Maximum = 60

.AxisY.Interval = 10

.AxisX.Title = "Time"

.AxisY.Title = "Speed"

End With

End Sub

4 Copiare e incollare il seguente codice per fare il grafico a linee:

Private Sub Button1_Click (ByVal sender As System.Object, ByVal e come System.EventArgs) tratta Button1.Click

With Chart1.Series(0)

.Points.DataBind (DtGraph.DefaultView, "TimePoint", "Speed", Nothing)

.ChartType = DataVisualization.Charting.SeriesChartType.Line

.BorderWidth = 4

End With

End Sub