DATAGRIDVIEW VB.NET

CONTROL DATAGRIDVIEW VB.NET

Permite visualizar datos en una cuadricula personalizable.
Manipulación (operaciones) y modificación (cambiar, guardar) de datos procedentes de una base de datos (tablas) tales como consultas vistas etc. También datos ingresados en tiempo de ejecución, o por el código directamente.

En este caso les presentamos en tiempo de ejecución.


PROPIEDADES MÁS USADOS DEL CONTROL:

Las propiedades de este control aparecen como los demás en la ventana de propiedades.
Las propiedades de las columnas son diferentes a las del control, a ellas se tiene acceso por medio de la flecha desplegable que aparece en la parte derecha de la cuadricula, de la cual se despliega un cuadro con las opciones de AGREGAR COLUMNAS y EDITAR COLUMNAS

AGREGAR COLUMNAS: Nos permite adicionar la cantidad de columnas que se considere necesarias para el proyecto. La propiedad NAME de las columnas aparece por defecto como culmn1, column2, column3,,,,, columnn etc.
EDITAR COLUMNAS: Nos permite agregar titulo a cada una de las columnas.
PROPIEDAD HEADER TEXT= texto, si no se requiere titulo en la columna se pone la propiedad en blanco.

EJEMPLO 1: CALCULAR SUMA, RESTA MULTIPLICACION Y PROMEDIO

Para este ejemplo crear un formulario llamado: operaciones DataGridView, y agregar los siguientes controles:
Dos buttons. 1)- Propiedad texto = AGREGAR VALORES A LA MATRIZ.
2)-Propiedad Texto = EJECUTAR OPERACIONES
Dos textbox con la propiedad name = por defecto.
Dos Label, 1)-Name = por defecto, texto = SUMA TOTAL.
2)- Name=por defecto, texto = PROMEDIO TOTAL.
Un DataGridView con la propiedad name = por defecto.







Haz click aquí para cambiar el nombre de las columnas y el tamaño…..
Diseño autosizemode esto te dara el tamaño de la columnaAgregar al DataGridView 10 columnas de las cuales su nombre serán por defecto y su texto = así
1. Header text =
2. Header text=
3. Header text =
4. Header text =
5. Header text =
6. Header text =
7. Header text = SUMA
8. Header text = PROMEDIO
9. Header text 0 RESTA
10. Header text = MULTIPLICACION

Haz click aquí para cambiar el nombre de las columnas y el tamaño…..
Diseño autosizemode esto te dara el tamaño de la columna

DISEÑO DE FORMULARIO:







CODIGO:
Public Class Form1
'Declaracion dela matriz'
Dim M(5, 5) As Integer
Dim sumatotal As Integer
Dim promediototal As Double
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As -System.EventArgs) Handles MyBase.Load
'Declaraacion de la matriz contenida en el datagridview1'
DataGridView1.RowCount = 6
For i As Integer = 0 To 5
For j As Integer = 0 To 5
M(i, j) = 0
DataGridView1.Item(i, j).Value = M(i, j)
Next
Next
End Sub
‘LLENAMOS LA MTRIZ DE FORMA MANUAL'
Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As -System.EventArgs) Handles btnagregar.Click
Try
For i As Integer = 0 To 5
For j As Integer = 0 To 5
M(i, j) = CInt(InputBox("digite el valor"))
DataGridView1.Item(j, i).Value = M(i, j)
Next
Next
MsgBox("llena")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnejecutar_Click(ByVal sender As System.Object, ByVal e As -System.EventArgs) Handles btnejecutar.Click
Try
'suma fila 0'
Dim suma = 0
For i = 0 To 5
suma = suma + M(0, i)
Next
DataGridView1.Item(6, 0).Value = suma
'promedio fila 0'
Dim promedio As Double
promedio = suma / 6
DataGridView1.Item(7, 0).Value = promedio
'resta fila 0'
Dim resta As Integer
resta = suma - promedio
DataGridView1.Item(8, 0).Value = resta
'multiplicacion fila 0'
Dim multiplicacion As Integer
multiplicacion = promedio * resta
DataGridView1.Item(9, 0).Value = multiplicacion
'suma fila1'
Dim suma1 = 0
For i = 0 To 5
suma1 = suma1 + M(1, i)
Next
DataGridView1.Item(6, 1).Value = suma1
'promedio fila 1'
Dim promedio1 As Double
promedio1 = suma1 / 6
DataGridView1.Item(7, 1).Value = promedio1
'resta fila 1'
Dim resta1 As Integer
resta1 = suma1 - promedio1
DataGridView1.Item(8, 1).Value = resta1
'multiplicacion fila 1
Dim multiplicacion1 As Integer
multiplicacion1 = promedio1 * resta1
DataGridView1.Item(9, 1).Value = multiplicacion1
'suma fila 2'
Dim suma2 = 0
For i = 0 To 5
suma2 = suma2 + M(2, i)
Next
DataGridView1.Item(6, 2).Value = suma2
'promedio fila 2'
Dim promedio2 As Double
promedio2 = suma2 / 6
DataGridView1.Item(7, 2).Value = promedio2
'resta fila 2'
Dim resta2 As Integer
resta2 = suma2 - promedio2
DataGridView1.Item(8, 2).Value = resta2
'multiplicacion fila 2'
Dim multiplicacion2 As Integer
multiplicacion2 = promedio2 * resta2
DataGridView1.Item(9, 2).Value = multiplicacion2
'suma fila 3'
Dim suma3 = 0
For i = 0 To 5
suma3 = suma3 + M(3, i)
Next
DataGridView1.Item(6, 3).Value = suma3
'promedio fila 3'
Dim promedio3 As Double
promedio3 = suma3 / 6
DataGridView1.Item(7, 3).Value = promedio3
'resta fila 3'
Dim resta3 As Integer
resta3 = suma3 - promedio3
DataGridView1.Item(8, 3).Value = resta3
'multiplicacion fila 3'
Dim multiplicacion3 As Integer
multiplicacion3 = promedio3 * resta3
DataGridView1.Item(9, 3).Value = multiplicacion3
'suma fila 4'
Dim suma4 = 0
For i = 0 To 5
suma4 = suma4 + M(4, i)
Next
DataGridView1.Item(6, 4).Value = suma4
'promedio fila 4'
Dim promedio4 As Double
promedio4 = suma4 / 6
DataGridView1.Item(7, 4).Value = promedio4
'resta fila 4'
Dim resta4 As Integer
resta4 = suma4 - promedio4
DataGridView1.Item(8, 4).Value = resta4
'multiplicacion fila 4'
Dim multiplicacion4 As Integer
multiplicacion4 = promedio4 * resta4
DataGridView1.Item(9, 4).Value = multiplicacion4
'suma fila 5'
Dim suma5 = 0
For i = 0 To 5
suma5 = suma5 + M(5, i)
Next
DataGridView1.Item(6, 5).Value = suma5
'promedio fila 5'
Dim promedio5 As Double
promedio5 = suma5 / 6
DataGridView1.Item(7, 5).Value = promedio5
'resta fila 5'
Dim resta5 As Integer
resta5 = suma5 - promedio5
DataGridView1.Item(8, 5).Value = resta5
'multiplicacion fila 5'
Dim multiplicacion5 As Integer
multiplicacion5 = promedio5 * resta5
DataGridView1.Item(9, 5).Value = multiplicacion5
'sumatoria de la columna de SUMA'
sumatotal = Val(suma + suma1 + suma2 + suma3 + suma4 + suma5)
'guardar en textbox la sumatoria total'
TextBox1.Text = sumatotal
'Promedio total de la columna promedio'
promediototal = Val(promedio + promedio1 + promedio2 + promedio3 + promedio4 + promedio5)
'guardar en textbox el promedio total'
TextBox2.Text = promediototal / 6
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class