Arrancando el 2012 trabajando! Espero hayan podido descansar y arrancar en paz y en familia este nuevo año!
Una pregunta simple que no logro dilucidar:
Tengo una clase que hereda a Form y tiene una tableview dentro.
Le cargo unos datos y demás, pero cuando hago el Show() me lo muestra de un tamaño de muy pocos píxeles, a pesar de que le aclaro con Height y Width otras dimensiones...
Alguien tiene idea en qué estoy errando?
Aquí abajo el código:
A) de la clase:
Inherits Form
Public Sub mostrar(id As Integer)
Dim tablaestrategia As New TableView(Me)
Dim estrategia1 As New Estrategia
Dim fila As Integer
Dim columna As Integer
estrategia1 = datastorage.array_estrategias[id]
tablaestrategia.Rows.Count = estrategia1.almacen_patas.Count
tablaestrategia.Columns.Count = 7
tablaestrategia.Rows.Height = 25
tablaestrategia.Columns.Width = 100
tablaestrategia.Height = 400
tablaestrategia.Width = 600
tablaestrategia.Columns[0].Title = "Nombre"
tablaestrategia.Columns[1].Title = "Operación"
tablaestrategia.Columns[2].Title = "Cantidad"
tablaestrategia.Columns[2].Width = 70
tablaestrategia.Columns[3].Title = "Armar"
tablaestrategia.Columns[3].Width = 70
tablaestrategia.Columns[4].Title = "Desarmar"
tablaestrategia.Columns[4].Width = 70
tablaestrategia.Columns[5].Title = "Estado"
tablaestrategia.Columns[6].Title = "Existencia de error"
tablaestrategia.Header = 1
tablaestrategia.Mode = 1
Do While fila < estrategia1.almacen_patas.Count
tablaestrategia[fila, columna].Text = estrategia1.almacen_patas[fila].nombre
columna = columna + 1
tablaestrategia[fila, columna].Text = CString(estrategia1.almacen_patas[fila].compra)
columna = columna + 1
tablaestrategia[fila, columna].Text = CString(estrategia1.almacen_patas[fila].cantidad)
columna = columna + 1
tablaestrategia[fila, columna].Text = CString(estrategia1.almacen_patas[fila].armar)
columna = columna + 1
tablaestrategia[fila, columna].Text = CString(estrategia1.almacen_patas[fila].desarmar)
columna = columna + 1
tablaestrategia[fila, columna].Text = CString(estrategia1.almacen_patas[fila].estado_pata)
columna = columna + 1
tablaestrategia[fila, columna].Text = CString(estrategia1.almacen_patas[fila].existe_error_pata)
columna = 0
fila = fila + 1
Loop
' Me.Show()
'Me.W = 510
'Me.H = 60
Me.caption = estrategia1.codigo
End
Public Sub mostrar(id As Integer)
Dim tablaestrategia As New TableView(Me)
Dim estrategia1 As New Estrategia
Dim fila As Integer
Dim columna As Integer
estrategia1 = datastorage.array_estrategias[id]
tablaestrategia.Rows.Count = estrategia1.almacen_patas.Count
tablaestrategia.Columns.Count = 7
tablaestrategia.Rows.Height = 25
tablaestrategia.Columns.Width = 100
tablaestrategia.Height = 400
tablaestrategia.Width = 600
tablaestrategia.Columns[0].Title = "Nombre"
tablaestrategia.Columns[1].Title = "Operación"
tablaestrategia.Columns[2].Title = "Cantidad"
tablaestrategia.Columns[2].Width = 70
tablaestrategia.Columns[3].Title = "Armar"
tablaestrategia.Columns[3].Width = 70
tablaestrategia.Columns[4].Title = "Desarmar"
tablaestrategia.Columns[4].Width = 70
tablaestrategia.Columns[5].Title = "Estado"
tablaestrategia.Columns[6].Title = "Existencia de error"
tablaestrategia.Header = 1
tablaestrategia.Mode = 1
Do While fila < estrategia1.almacen_patas.Count
tablaestrategia[fila, columna].Text = estrategia1.almacen_patas[fila].nombre
columna = columna + 1
tablaestrategia[fila, columna].Text = CString(estrategia1.almacen_patas[fila].compra)
columna = columna + 1
tablaestrategia[fila, columna].Text = CString(estrategia1.almacen_patas[fila].cantidad)
columna = columna + 1
tablaestrategia[fila, columna].Text = CString(estrategia1.almacen_patas[fila].armar)
columna = columna + 1
tablaestrategia[fila, columna].Text = CString(estrategia1.almacen_patas[fila].desarmar)
columna = columna + 1
tablaestrategia[fila, columna].Text = CString(estrategia1.almacen_patas[fila].estado_pata)
columna = columna + 1
tablaestrategia[fila, columna].Text = CString(estrategia1.almacen_patas[fila].existe_error_pata)
columna = 0
fila = fila + 1
Loop
' Me.Show()
'Me.W = 510
'Me.H = 60
Me.caption = estrategia1.codigo
End
b) del evento de donde creo la clase:
Por cierto, si no hago ml.show() en el evento donde llamo la clase, por más que lo ponga dentro de la clase "Fmuestraestrategias" no se dispara el show...
Debe ser por mi falta de conocimiento sistemático de objetos o de la sintaxis, seguro es alguna sonsera que no he logrado encontrar.
Muchas gracias desde ya!
Santiago.
dos hermanas, sevilla
