[VB6] Salvare Definizione Griglia

[ddies]

serve per scrivere il file INI, l'INIPutValue cambia i valori delle singole chiavi, mentre questo crea il file.

Dall'esempio la PutValue non la uso mai.

Sub SalvaFile(nomefile As String, Contenuto As String)
  On Error Resume Next
  Kill nomefile
  Open nomefile For Binary Access Write As #1
  Put #1, , Contenuto
  Close #1
End Sub

[IKON]

Penso di aver capito.
Ogni volta cancelli il file ini e lo ricrei con il valore della variabile CONTENUTO.

Ma in questo modo mi sbaglio o crei un file ini per ogni griglia del programma?

Il fatto è che il mio programma contiene molti form con complessivamente decine di griglie!!! Dovrei avere tutto nello stesso file... si può?

[ddies]

allora ti consiglio di creare l'ini per i fatti tuoi, poi usi la INI.INIPutValue per inserire valori nuovi

Come ti ho postato prima ti consiglio di chiamare i padri con
nomeform_nomegriglia e le colonne con la loro posizione (COL1,COL2)

es.

  
  for ind=0 to Griglia1.cols-1
    INI.INIPutValue Me.Name & "_" & "Griglia1", "COL" & ind, Grilia1.ColWidth(ind)
  next

Spero di essere stato chiaro

[IKON]

Ancora un aiuto.

Ho scritto (a mano) il file ini in questo modo:

[Personale_Griglia1]
COL0=1000
COL1=1000
COL2=1000
COL3=1000
COL4=1000
COL5=1000

su form_load richiamo questa procedura:

Public Sub CaricaStruttura()
Dim ind As Integer

For ind = 0 To grd.Columns.Count - 1
If grd.Columns(ind).caption <> "" Then
grd.Columns(ind).Width = INI.IniGetValue "[Personale_Griglia1]", "COL" & ind)
End If
Next

End Sub

e sul form_unload:

Public Sub SalvaStruttura()
Dim ind As Integer

For ind = 0 To grd.Columns.Count - 1
INI.IniPutValue "[Personale_" & "Griglia1" & "]", "COL" & ind, grd.Columns(ind).Width
Next

End Sub


E non funziona le colonne sono sempre rimpicciolite al minimo!!!
Ho sbagliato il file ini o cosa?

[ddies]

For ind = 0 To grd.Columns.Count - 1
If grd.Columns(ind).caption <> "" Then
grd.Columns(ind).Width = INI.IniGetValue ("Personale_Griglia1", "COL" & ind)
End If
Next

End Sub

e sul form_unload:

Public Sub SalvaStruttura()
Dim ind As Integer

For ind = 0 To grd.Columns.Count - 1
INI.IniPutValue "Personale_" & "Griglia1" & "", "COL" & ind, grd.Columns(ind).Width
Next

End Sub

Ho tolto le "[" e messo una parentesi

[IKON]

OK ho risolto.

Mi sei stato di grande aiuto.
Grazie