Salve a tutti.
Ho un problema sul cambio di lingua durante l'esecuzione del programma. L'esigenza è quella di visalizzare la data-ora corrente in due lingue diverse. Sfruttando la System.Language sono riuscito nel mio intento, però eseguendo tale cambio ad ogni secondo, non so per quale motivo continua ad incrementarsi la memoria condivisa fino a portarla al crash dell'applicazione. Allego i passaggi che esegue il programma:
PUBLIC SUB Timer1_Timer()
DIM st, st1 AS String
st = System.Language
System.Language = "cs_CZ.UTF-8"
st1 = Format$(Now, "dddd dd mmmm yyyy hh:nn:ss")
System.Language = "en_US.UTF-8"
DataLbl.Text = st1 & "\n" & Format$(Now, "dddd dd mmmm yyyy hh:nn:ss")
System.Language = st
END
Riuscite a dirmi dove sbaglio o eventuali suggerimenti per ottenere lo stesso risultato.
Grazie a tutti
Giovanni Grandi
Salve a tutti.
Ho un problema sul cambio di lingua durante l'esecuzione del programma. L'esigenza è quella di visalizzare la data-ora corrente in due lingue diverse. Sfruttando la System.Language sono riuscito nel mio intento, però eseguendo tale cambio ad ogni secondo, non so per quale motivo continua ad incrementarsi la memoria condivisa fino a portarla al crash dell'applicazione. Allego i passaggi che esegue il programma:
PUBLIC SUB Timer1_Timer()
DIM st, st1 AS String
st = System.Language
System.Language = "cs_CZ.UTF-8"
st1 = Format$(Now, "dddd dd mmmm yyyy hh:nn:ss")
System.Language = "en_US.UTF-8"
DataLbl.Text = st1 & "\n" & Format$(Now, "dddd dd mmmm yyyy hh:nn:ss")
System.Language = st
END
Riuscite a dirmi dove sbaglio o eventuali suggerimenti per ottenere lo stesso risultato.
Grazie a tutti
Giovanni Grandi
Ciao Giovanni,
non vorrei dare una risposta sciocca o banale ma per far apparire le date in modo diverso non basta Format$ perché fare tutto quel pastrocchio non riesco a capire puoi spiegarmi meglio?
Per dire potrebbe bastarti una cosa del genere o no?
TextBox1.text = Format$(Now, "dd/mm/yyyy")
TextBox2.Text = Format$(Now, "mm/dd/yyyy")
:ciao: