[VB6] dati

[fux_vr]

su un form senza database come posso mantenere un dato che pero ogni tanto potrebbe cambiare?? senza usare un DB

esempio ho il nome della societa voglio che rimanga memorizzato lo metto in una variabile. pero al riavvio del form non la mantiene +. se la metto come costante non posso + modificare il nome della societa' senza modificare il codice. come posso??

[Brainjar]

Usa una variabile dichiarata pubblica in un modulo .bas

    Public sNomeSocieta As String

E' visibile in tutti i form e mantiene il suo contenuto durante tutta
l'applicazione.

Ciao,

[LMondi]

Ciao fux_vr !
Come ti ha suggerito Brainjar usa una variabile pubblica in modulo bas che attivi all'avvio del programma, caricandola con quanto hai salvato sull'HD alla chiusura del programma stesso.

[fux_vr]

cos è un modulo .bas e come si crea??

[Brainjar]

Come inserisci un nuovo form, così inserisci un Modulo nel progetto.
Per default VB lo chiama Module1.bas ma cambiagli nome, se vuoi.

All'interno gli inserisci la riga che ti ho già postato.

Salvi il tutto.

Per la routine di lettura e scrittura, quarda in questo post :

http://forum.html.it/forum/showthrea...ight=QuickRead

Ciao,

[fux_vr]

pero al riavvio del computer non mi salva la variabile.e devo rimettere il nome della sociera'
helpp

[Brainjar]

No, se TU la salvi, si salva.

' Nel modulo .bas 
Public sNomeSocieta As String 

' Devi includere queste sub nel modulo. 
' Questa Sub serve per salvare  
Sub QuickSave(Dato As Variant, sPath As String, Modo As Integer)
Dim Buffer As Integer
Buffer = FreeFile

If Modo > 0 Then
    Open sPath For Append As #Buffer
Else
    Open sPath For Output As #Buffer
End If

Print #Buffer, Dato
Close #Buffer
End Sub

' Questa Sub serve per leggere 
Sub QuickRead(Dato As Variant, sPath As String)
Dim Buffer As Integer
If Dir$(sPath) = "" Then
    Dato = ""
Else
    Buffer = FreeFile
    Open sPath For Input As #Buffer
        Line Input #Buffer, Dato
    Close #Buffer
End If
End Sub


' Nel Form dove ti serve il valore di sNomeSocieta 

' Nel Form_Unload(), per salvare il valore prima di uscire : 
  Call QuickSave(sNomeSocieta , App.Path & "\NomeSocieta.txt", 0)
    

' Nel Form_Load() per leggere il valore precedentemente salvato :

' Se esiste il file, ne leggi il contenuto 
If Dir$(App.Path & "\NomeSocieta.txt") <> "" Then
    ' Il valore letto sarà in MiaVariabile 
    Call QuickRead(sNomeSocieta , App.Path & "\NomeSocieta.txt")
End If

Il codice è stato provato e collaudato centinaia di volte.

Ciao,