En esta ocasión les explicaré como utilizar gráficos en sus aplicaciones de VB.net, para fines ilustrativos el ejemplo esta programado en Visual Basic .Net 2003, pero es totalmente valido para 2005, comencemos..
En la vida actual los reportes de nuestros programas tiene que ser muy atractivos para los usuarios y que mejor forma de utilizar gráficos, vamos a utilizar una base de datos cualquiera que en este caso es SQL Server 2000, y el componente que utilizamos es AxMSChart, para añadir este componente a nuestra aplicación agregamos un nuevo elemento al cuadro de herramientas, en este caso seria el Componente COM llamado MICROSOFT CHART CONTROL 6.0.
Agregamos ese elemento a nuestro formulario y comenzaremos a trabajar sobre el.
Llenamos nuestro grafico de la siguiente manera:
If Datasets.Tables(0).Rows.Count >= 1 Then
AxMSChart1.RowCount = 1
AxMSChart1.ColumnCount = 0
For Each objRow As DataRow In Datasets.Tables(0).Rows
AxMSChart1.ColumnCount = AxMSChart1.ColumnCount +1
AxMSChart1.DataGrid.SetData(1, x, Val(objRow.Item(1)), False)
AxMSChart1.DataGrid.ColumnLabel(x, 1) = Trim(objRow.Item(0))
x = x + 1
Next
Datasets.Dispose()
Donde, nuestra primera columna va hacer nuestro dato de la X y el segundo la Y.
La pregunta que surge como imprimimos este grafico:
Try
Dim a As Bitmap
Me.AxMSChart1.EditCopy()
If Clipboard.GetDataObject.GetDataPresent(DataFormats.Bitmap) Then
a=System.Windows.Forms.Clipboard.GetDataObject.GetData(System.Windows.Forms.DataFormats.Bitmap)
Dim fuente As New Font("Arial", 16, FontStyle.Underline)
e.Graphics.DrawString("GRAFICO", fuente, Brushes.Black, 300, 95)
fuente = New Font("Arial", 10)
e.Graphics.DrawImage(a, 100, 150, 600, 550)
End If
Catch ex As Exception
End Try
End Sub
Si queremos exportar ese grafico a Word, solamente copiamos el grafico con el siguiente comando:
Me.AxMSChart1.EditCopy()
Y luego para pegarlo en Word, le damos pegado especial, imagen.
Autor: Ing. Róger González Rojas
http://rgrnet.4t.com
