comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Grid Editable 4

  • 0 Respuestas
  • 1326 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5380
  • Actividad:
    75%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 11:00:03 am »
Código: Visual Basic
  1.  Private Sub OcultarControles()
  2.  
  3.         ' Ocultar los controles de edición                                                       (17/May/01)
  4.  
  5.         ' (aunque son pocos, se pueden ampliar y así es más fácil saber dónde
  6.  
  7.         ' poner el código para ocultarlos)
  8.  
  9.         Text1.Visible = False
  10.  
  11.         Combo1.Visible = False
  12.  
  13. End Sub
  14.  
  15.  
  16.  
  17. Private Sub LeerDatos()
  18.  
  19.         ' Leer los datos y asignarlos al grid
  20.  
  21.         Dim nFic As Long
  22.  
  23.         Dim r As Long
  24.  
  25.         Dim c As Long
  26.  
  27.         Dim s As String
  28.  
  29.         '
  30.  
  31.         ' Si no existe el fichero, nada que hacer...
  32.  
  33.         If Len(Dir$(sFicDatos)) = 0 Then Exit Sub
  34.  
  35.         '
  36.  
  37.         r = Grid2.Rows - 2
  38.  
  39.         nFic = FreeFile
  40.  
  41.         Open sFicDatos For Input As nFic
  42.  
  43.         Do While Not EOF(nFic)
  44.  
  45.                 r = r + 1
  46.  
  47.                 Grid2.Rows = r + 2
  48.  
  49.                 Grid2.TextMatrix(r, 0) = r
  50.  
  51.                 For c = 1 To Grid2.Cols - 1
  52.  
  53.                         If Not EOF(nFic) Then
  54.  
  55.                                 Line Input #nFic, s
  56.  
  57.                                 Grid2.TextMatrix(r, c) = s
  58.  
  59.                         Else
  60.  
  61.                                 Exit For
  62.  
  63.                         End If
  64.  
  65.                 Next
  66.  
  67.         Loop
  68.  
  69.         Close nFic
  70.  
  71.         '
  72.  
  73.         With Grid2
  74.  
  75.                 .TextMatrix(.Rows - 1, 0) = cNuevaFila
  76.  
  77.                 LastRow = .Rows - 1
  78.  
  79.                 LastCol = 1
  80.  
  81.                 .Col = LastCol
  82.  
  83.                 .Row = LastRow
  84.  
  85.                 .RowSel = LastRow
  86.  
  87.                 .ColSel = LastCol
  88.  
  89.         End With
  90.  
  91. End Sub
  92.  
  93.  
  94.  
  95. Private Sub GuardarDatos()
  96.  
  97.         ' Guardar los datos del Grid
  98.  
  99.         Dim nFic As Long
  100.  
  101.         Dim r As Long
  102.  
  103.         Dim c As Long
  104.  
  105.         '
  106.  
  107.         nFic = FreeFile
  108.  
  109.         Open sFicDatos For Output As nFic
  110.  
  111.         ' No guardar la última fila, (si se usa el indicador de nueva fila)
  112.  
  113.         For r = 1 To Grid2.Rows - 2
  114.  
  115.                 For c = 1 To Grid2.Cols - 1
  116.  
  117.                         Print #nFic, Grid2.TextMatrix(r, c)
  118.  
  119.                 Next
  120.  
  121.         Next
  122.  
  123.         Close nFic
  124.  
  125. End Sub
« Última modificación: Julio 08, 2011, 10:10:26 am por ANTRAX »


 

¿Te gustó el post? COMPARTILO!



Simular un MSFlexGrid Editable

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1976
Último mensaje Julio 26, 2010, 10:58:02 am
por ANTRAX
Grid Editable 2

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1256
Último mensaje Julio 26, 2010, 10:58:46 am
por ANTRAX
Grid Editable 3

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1378
Último mensaje Julio 26, 2010, 10:59:33 am
por ANTRAX