Visual Basic 6.0 - Intercambiando la vista di due form, non carica i dati nelle text

[DomenicoCp]

Risolvi un problema e se ne presenta un altro. Purtroppo la difficoltà di capire dove si sbaglia è accentuata dal fatto che in fase di testing lo script non mi da alcun errore.
Veniamo al sodo:
Il programma che sto creando prevede due form gestibili come fogli excel, per cui intercambiabili nella gestione a piacimento.
Pensavo bastasse un semplice button con comando ShowForm, ma mi sono reso conto che da quel momento in poi non riuscivo più a caricare i dati salvati in un file txt esterno (il codice è quello che si trova nel mio precedente post). Ho pensato che dipendesse dallo style modeless, ma niente, allora ho provato il canonico Unload primi di ShowForm, ma il discorso non cambia, e non so dove intervenire, in quando non mi segnala alcun errore.
Quasi come se i dati venissero trascritti altrove.

Idee?

Cordiali saluti

[gibra]

Originariamente inviato da DomenicoCp
Risolvi un problema e se ne presenta un altro. Purtroppo la difficoltà di capire dove si sbaglia è accentuata dal fatto che in fase di testing lo script non mi da alcun errore.
Veniamo al sodo:
Il programma che sto creando prevede due form gestibili come fogli excel, per cui intercambiabili nella gestione a piacimento.
Pensavo bastasse un semplice button con comando ShowForm, ma mi sono reso conto che da quel momento in poi non riuscivo più a caricare i dati salvati in un file txt esterno (il codice è quello che si trova nel mio precedente post).

Guarda che un forum non funziona come una chat.

E' necessario mostrare sempre il codice incriminato, oppure avresti la pretesa che chi ti vuole aiutare (gratuitamente) debba anche perdere tempo per andare alla ricerca del tuo codice in chissà quale discussione?

[DomenicoCp]

Grazie Boolean, ovviamente funziona, posto tutto lo script dei due button per i ciuchi come me che troveranno le stesse difficoltà:

codice:Private Sub Salva_Click()
Dim TestoDaSalvare As String
TestoDaSalvare = Replace(Text1(18).Text, vbCrLf, "|")
CommonDialog1.CancelError = True
On Error GoTo GestioneErrori
CommonDialog1.Filter = "Text Files|*.txt"
CommonDialog1.ShowSave
NomeDelTesto = CommonDialog1.FileName
Open NomeDelTesto For Output As #1
Print #1, Text1(0)
Print #1, Text1(1)
Print #1, Text1(2)
Print #1, Text1(3)
Print #1, Text1(4)
Print #1, Text1(5)
Print #1, Text1(6)
Print #1, Text1(7)
Print #1, Text1(8)
Print #1, Text1(9)
Print #1, Text1(10)
Print #1, Text1(11)
Print #1, Text1(12)
Print #1, Text1(13)
Print #1, Text1(14)
Print #1, Text1(15)
Print #1, Text1(16)
Print #1, Text1(17)
Print #1, TestoDaSalvare

Close #1
GestioneErrori:
Exit Sub
End Sub


codice:Private Sub Apri_Click()
Dim TestoDaMostrare As String
Dim Impressioni As String
Dim Data As String
Dim Agente As String
Dim Salone As String
Dim Telefono As String
Dim Indirizzo As String
Dim Mail As String
Dim Durata As String
Dim Prodotti1 As String
Dim Prodotti2 As String
Dim Prodotti3 As String
Dim AssOp As String
Dim AssVeb As String
Dim Ser As String
Dim Aff As String
Dim Ritual As String
Dim Intensive As String
Dim Take As String
Dim Be As String
CommonDialog1.CancelError = True
On Error GoTo GestioneErrori
CommonDialog1.Filter = "Text files|*.txt"
CommonDialog1.ShowOpen
NomeDelTesto = CommonDialog1.FileName
Open NomeDelTesto For Input As #1
     
       Input #1, Data
     Input #1, Agente
     Input #1, Salone
       Input #1, Telefono
     Input #1, Indirizzo
       Input #1, Mail
       Input #1, Durata
       Input #1, Prodotti1
       Input #1, Prodotti2
      Input #1, Prodotti3
       Input #1, AssOp
       Input #1, AssVeb
       Input #1, Ser
       Input #1, Aff
      Input #1, Ritual
      Input #1, Intensive
      Input #1, Take
       Input #1, Be
  Input #1, Impressioni
    TestoDaMostrare = Replace(Impressioni, "|", vbCrLf)

  
Close #1

Text1(0).Text = Data
Text1(1).Text = Agente
Text1(2).Text = Salone
Text1(3).Text = Telefono
Text1(4).Text = Indirizzo
Text1(5).Text = Mail
Text1(6).Text = Durata
Text1(7).Text = Prodotti1
Text1(8).Text = Prodotti2
Text1(9).Text = Prodotti2
Text1(10).Text = AssOp
Text1(11).Text = AssVeb
Text1(12).Text = Ser
Text1(13).Text = Aff
Text1(14).Text = Ritual
Text1(15).Text = Intensive
Text1(16).Text = Take
Text1(17).Text = Be
Text1(18).Text = TestoDaMostrare

GestioneErrori:
Exit Sub
Close #1
End Sub

Pensavo che proprio questo codice nello specifico non servisse a capire il nuovo problema.
Sei di avviso contrario?

[gibra]

Originariamente inviato da DomenicoCp
Pensavo che proprio questo codice nello specifico non servisse a capire il nuovo problema.
Sei di avviso contrario?

Non capisco... lo chiedi a noi?

Sei tu che conosci il problema e che sai quando si verifica.
Io vedo solo due routine, Apri e Salva, e tra l'altro affermi che funzionano.
Ovviamente se le due ruotine sopra funzionano, dubito che sia lì l'errore...

Quindi qual'è il problema reale?
Hai parlato di 2 form, ShowForm, Unload, ... ma nel tuo codice non c'è traccia.