Visual Basic - Ayuda con MSFlexGrid en VB6 (LIMPIAR)

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Ayuda con MSFlexGrid en VB6 (LIMPIAR)

Publicado por Alejandro (11 intervenciones) el 29/01/2014 15:13:31
Necesito que al momento de aplastar un boton todas las filas y columnas (MENOS LA PRIMERA FILA) del MSFlexGrid vuelvan a estar vacias sin nada de texto ni numeros
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con MSFlexGrid en VB6 (LIMPIAR)

Publicado por CARLOS (1 intervención) el 07/02/2014 21:41:37
'Pon en un formulario los siguientes controles :

- msflexgrid
- 2 commandbutton

y pega el siguiente código en le formulario


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub command2_Click()
For X = 1 To MSFlexGrid1.Rows - 1
  For i = 0 To MSFlexGrid1.Cols - 1
    MSFlexGrid1.TextMatrix(X, i) = ""
  Next
Next
End Sub
 
Private Sub command1_Click()
For X = 1 To MSFlexGrid1.Rows - 1
  For i = 0 To MSFlexGrid1.Cols - 1
    MSFlexGrid1.TextMatrix(X, i) = "FILA" + Str(X) + ", COLUMNA" + Str(i)
  Next
Next
End Sub
 
Private Sub Form_Load()
 MSFlexGrid1.Rows = 10
 MSFlexGrid1.Cols = 5
 For i = 0 To MSFlexGrid1.Cols - 1
    MSFlexGrid1.TextMatrix(0, i) = "Col" + Str(i) 'pone el titulo a las columnas
 
    MSFlexGrid1.ColWidth(i) = 1800 'asigna ancho a la columna
 
 
 Next
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar