
04/06/2007, 11:23
|
| | Fecha de Ingreso: marzo-2006
Mensajes: 202
Antigüedad: 19 años Puntos: 2 | |
Re: Desconsertado...........con los DataGridView men me podrias ayudar un poco mas, sabes encontre un codigo y lo modifique para poder crear un grid similar lo que queria pero me encotre con ciertas limitaciones como dejar la fila de enmedio para simular el pasillo y que los buses tienen distitas configuraciones con respecto al lado con el que parten inicializados los numeros ejemplo lado del asiento 1 es derecho o el lado izquierzo??? cosas como eso me hacen dudar de seguirme cabesiando con el grid podrias ayudarme un poco mas con el ejemplo que me señalaste ???? este es el codigo del grid:
Public Class Form1
Private _MiDGV As New DataGridView 'Nuestro DataGrid
'Construir el aspecto de nuestro DataGrid
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
_MiDGV.Dock = DockStyle.Fill 'Acoplar al form
' _MiDGV.Enabled = False 'Impedir la edicion
_MiDGV.AllowUserToAddRows = False 'Sin opcion añadir filas
_MiDGV.RowHeadersVisible = False 'ocultar cabecera de las filas
_MiDGV.ColumnHeadersVisible = False 'ocultar cabecera de las columnas
'Dimensionar el ancho automaticamente
_MiDGV.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
Me.Controls.Add(_MiDGV) 'Añadir el Grid al form
Me.OrdenN(5, 12) 'Empezar con un orden 3*3
End Sub
'Crear un Grid de dimension f(ilas) c(columnas)
Private Sub OrdenN(ByVal f As Integer, ByVal c As Integer)
Me._MiDGV.Rows.Clear() 'Eliminar todas las filas
_MiDGV.ColumnCount = c 'Dimensionar el numero de columnas
Me._MiDGV.Rows.Add(f) 'Dimensionar el numero de filas
Dim Numerar As Integer = 0 'Numerar el contenido de las celdas
For Each col As DataGridViewColumn In Me._MiDGV.Columns
For Each row As DataGridViewRow In Me._MiDGV.Rows
Numerar = Numerar + 1
row.Cells(col.Index).Value = Numerar.ToString
Next
Next
End Sub
End Class |