Grid Editable 4

  • 0 Respuestas
  • 2070 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5672
  • Actividad:
    20%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Grid Editable 4

  • 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 »


 

Simular un MSFlexGrid Editable

Iniciado por ANTRAX

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

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2031
Último mensaje Julio 26, 2010, 10:59:33 am
por ANTRAX
Grid Editable 2

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1901
Último mensaje Julio 26, 2010, 10:58:46 am
por ANTRAX