| La grafica commerciale Per creare dei grafici con VB5 e 6 si usa
Microsoft Chart Control selezionandolo dalla finestra componenti.
Per fare un es. utilizzeremo MSCHART , due
CommandButton e una CheckBox. l'oggetto Chart dispone di molte proprietà assegnabili in
fase di disegno o modificabili dinamicamente nel corso dell'esecuzione del
programma.Chi ha una cerca famigliarità con Excel noterà che il suo output è identico a
quello del modulo grafico del foglio elettronico di Microsoft.Le proprietà del grafico
.ColumnCount e RowCount poste uguale a 4 stabiliscono una tabello di 4 colonne e 4 righe.
i valori .Data sono generati da una formula che produce una serie di numeri casuali
interi compresi dal 1 al 20 al momento del caricamento del form (Form_Load).
Premendo Command1 si ottiene un grafico
bidimensionale a canne
Premendo Command2 si ottiene un grafico
lineare
Per ottenere un grafico 3d si dovrà marcare
la CheckBox
Codice in Form_Load
Option Explicit
Private Sub Form_Load( )
Dim colonna As Integer
Dim riga As Integer
With Form1.MSChart1
Randomise
.ColumnCount = 4
.RowCount = 4
For colonna = 1 to 4
For riga = 1 to 4
.Colum = colonna
.Row = riga
.Data = Int ( ( 20 * Rnd ) + 1 )
Next
Next
End With
End Sub
Codice in Command 1 e 2 click
Private Sub Command1_Click ( )
If Check1.Value = vbChecked Then
MSChart1.chartType = VtChChartType3dBar
Else
MSChart1.chartType = VtChChartType2dBar
End if
End Sub
Private Sub Command2_Click ( )
If Check1.Value = vbChecked Then
MSChart1.chartType = VtChChartType3dLine
Else
MSChart1.chartType = VtChChartType2dLine
End if
End Sub |