msflexgrid
Publicado por joseluis (8 intervenciones) el 18/10/2007 22:13:17
hola tigre, estoy asustado xq en vb6, tiempo de ejecucion con este codigo he otorgado propiedades a mi flexgrid
Private Sub SetGridProperties()
With grdInfo
.Cols = 2
.Rows = 11
.FocusRect = flexFocusHeavy
.SelectionMode = flexSelectionFree
.ColWidth(0) = 200
.ColWidth(1) = 3800
.Row = 0
.Col = 1
.Text = "PRODUCTOS"
.CellAlignment = flexAlignCenterCenter
End With
End Sub
PERO LUEGO KIERO RECORRER CADA CELDA DEL FLEXGRID MEDIANTE ESTE CODIGO Y ME DICE K EL SUBINDICE ESTA FUERA DE SU LIMITE PUEDES EXPLICARME PORQUE PORFAVOR Y DARME ALGUNA SOLUCION XQ SI YA HE DICHO K TIENE 2 FILAS Y 11 COLUMNAS DEBERIA ENTONCES ACEPTAR EL CODIGO SIGUIENTE NO? SALU2 Y GRACIAS
Private Sub Command3_Click()
With grdInfo
For i = 1 To 3
If .TextMatrix(1, i) = "" Then
.TextMatrix(1, i) = grdInfo.Rows
End If
Next
End With
End Sub
Private Sub SetGridProperties()
With grdInfo
.Cols = 2
.Rows = 11
.FocusRect = flexFocusHeavy
.SelectionMode = flexSelectionFree
.ColWidth(0) = 200
.ColWidth(1) = 3800
.Row = 0
.Col = 1
.Text = "PRODUCTOS"
.CellAlignment = flexAlignCenterCenter
End With
End Sub
PERO LUEGO KIERO RECORRER CADA CELDA DEL FLEXGRID MEDIANTE ESTE CODIGO Y ME DICE K EL SUBINDICE ESTA FUERA DE SU LIMITE PUEDES EXPLICARME PORQUE PORFAVOR Y DARME ALGUNA SOLUCION XQ SI YA HE DICHO K TIENE 2 FILAS Y 11 COLUMNAS DEBERIA ENTONCES ACEPTAR EL CODIGO SIGUIENTE NO? SALU2 Y GRACIAS
Private Sub Command3_Click()
With grdInfo
For i = 1 To 3
If .TextMatrix(1, i) = "" Then
.TextMatrix(1, i) = grdInfo.Rows
End If
Next
End With
End Sub
Valora esta pregunta


0