Γραφικές παραστάσεις

Η σχεδίαση τυποποιημένων γραφικών παραστάσεων από αριθμητικά δεδομένα γίνεται στη Visual Basic το όργανο Chart (το προσθέτουμε ως Microsoft Chart Control από την επιλογή Project - Components). Το όργανο εμφανίζεται με την παρακάτω μορφή:

Για να χρησιμοποιήσουμε το όργανο αυτό ακολουθούμε τα παρακάτω βήματα:

Θέτουμε την ιδιότητα chartType σύμφωνα με το είδος του γραφήματος που θέλουμε να σχεδιάσουμε. Υποστηρίζονται οι παρακάτω σταθερές για τους αντίστοιχους τύπους γραφημάτων:

Constant	Description
VtChChartType3dBar	3D Bar
VtChChartType2dBar	2D Bar
VtChChartType3dLine	3D Line
VtChChartType2dLine	2D Line
VtChChartType3dArea	3D Area
VtChChartType2dArea	2D Area
VtChChartType3dStep	3D Step
VtChChartType2dStep	2D Step
VtChChartType3dCombination	3D Combination
VtChChartType2dCombination	2D Combination
VtChChartType2dPie	2D Pie
VtChChartType2dXY	2D XY

Θέτουμε την ιδιότητα columnCount στον αριθμό στηλών των δεδομένων που θέλουμε να εμφανίσουμε.
Θέτουμε την ιδιότητα rowCount στον αριθμό στηλών των δεδομένων που θέλουμε να εμφανίσουμε.
Για κάθε τιμή που περιέχεται στο γράφημα θέτουμε τις ιδιότητες Row και Column στις συντεταγμένες της αντίστοιχης τιμής και στη συνέχεια την ιδιότητα Data στην τιμή που αντιστοιχεί στις συντεταγμένες εκείνες.
Θέτουμε άλλες ιδιότητες για να αλλάξουμε τον τρόπο εμφάνισης του γραφήματος. Μερικές από τις ιδιότητες αυτές είναι οι AllowDithering, BorderStyle, Chart3d, Backdrop, ColumnLabel, Legend, Stacking, TitleText.

Μερικές φορές για να αυξήσουμε την ταχύτητα του εμφάνισης των στοιχείων κάνουμε το όργανο αρχικά αόρατο με την ιδιότητα Visible και το εμφανίζουμε μόνο όταν θέσουμε τιμές σε όλα τα στοιχεία.
Μπορούμε να μεταφέρουμε δεδομένα από ένα τμήμα του γραφήματος σε άλλο με τις μεθόδους SelectPart, EditCopy, EditPaste.
Μπορούμε να συνδέσουμε ένα γράφημα με δεδομένα σε έναν πίνακα ή σε μια βάση δεδομένων με την ιδιότητα DataGrid.

Παράδειγμα (αφού προσθέσουμε ένα όργανο με όνομα MSChart1):

Private Sub Command1_Click()
With Form1.MSChart1
        ' Displays a 3d chart with 8 columns and 8 rows
        .chartType = VtChChartType3dArea
        .ColumnCount = 8
        .ShowLegend = False
        .RowCount = 8
        For Column = 1 To 8
            For Row = 1 To 8
                .Column = Column
                .Row = Row
                .Data = Row * 10 + Column * 3 + Rnd * 40
            Next Row
        Next Column
    End With
End Sub

Εμφανίζει το παρακάτω γράφημα: