Casella di testo e problemi di visualizzazione/caricamento dato in Windows 98

[eziogsv]

ho istallato una mia utility VB6 in una ventina di pc in ufficio

cliccando un pulsante si lancia un form in cui è inserita una casella di testo in cui dovrebbe venire inserito il testo, leggermente elaborato, contenuto in un piccolo file di testo, di pochi kb

il file di testo è scritto da altre routines tramite istruzioni write#

viene letto tramite istruzioni input#

in 17 PC su 20 (XP e Win98) la routine funziona perfettamente, ed il form appare in una frazione di secondo con tutto il testo dovuto e correttamente elaborato

in 3 PC (tutti con 98), il form appare dopo 3-4 secondi... con la casella di testo completamente bianca

ho controllato uno per uno i files di dipendenza: la versione è corretta ed uguale a quella di PC in cui tutto funziona perfettamente...

qualcuno ha idea del perché di questa strana cosa??

[wallrider]

il file è il solito condiviso in rete oppure ogni pc ha il suo?

[eziogsv]

no, ogni PC crea e legge il suo file di dati personale...

però, alla ricerca di un qualche bug, ho sostituito un file di testo di un PC con problemi con quello perfettamente funzionante su un altro PC ... nisba, nada, nothing :master:

quindi, il codice non dovrebbe essere, datosi che gira su 17 PC su 20, il file di dati non è buggato, perché lo stesso file su altri PC viene letto senza problemi.... non so dove sbattere la testa

preciso che quella è l' unica casella di testo del programma con la proprietà locked impostata su true... ma non vedo come ciò possa creare problemi

[wallrider]

infatti non dovrebbe crearne

:master:

[yyzyyz]

hai provato ad aggiornare i pc con win98 ?
windows-update ? :master:

[oregon]

Usi delle API nel programma?

[eziogsv]

Originariamente inviato da oregon
Usi delle API nel programma?

si, molte... senza api non si fa più di tanto

SHGetFolderPath
fCreateShellLink
GetForegroundWindow
PostMessage
WritePrivateProfileString
GetPrivateProfileString
Shell_NotifyIcon
ecc ecc...

cmq il form con la casella di testo, direi che è proprio l' unico che non ne usa, se non per forzare il form in primo piano con la SetWindowPos, che uso anche in altri form senza il minimo problema

e peraltro rimane sempre la domanda: come caspita mai funziona perfettamente in 17 PC su 20??

[oregon]

Beh ... il fatto che non vada solamente su PC con Win98, mi fa pensare ad una incompatibilita' con una API ...

Non ti posso dire di piu' ... magari mostra il codice "incriminato" ...

[eziogsv]

mah, quale sia il codice incriminato proprio non lo so... la routine è semplicissima, ed errore di lettura non ce ne sono, se no andrebbe alla riga 90:

On Error GoTo 90

MyFile = App.Path & "\file.txt"

Testo = ""

NumFile = FreeFile

Open MyFile For Input As NumFile

Do
Input #NumFile, testo1, testo2, testo3

Testo = Testo + ..... (piccola elaborazione di testo1, testo2, testo3)

Loop Until EOF(NumFile)
Close #NumFile

Text1.Text = Testo

SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / 15, Me.Top / 15, Me.Width / 15, Me.Height / 15, SWP_NOACTIVATE

Me.Show

Exit Sub

90 Close #NumFile

Select Case Err
Case 53: MsgBox " Nessun archivio corrente ", vbMsgBoxTopMost + vbExclamation, " Errore"
Case Else: MsgBox " Errore " & Err & " - " & Error & " ", _
vbMsgBoxTopMost + vbExclamation, " Errore"

End Select

[oregon]

Quello che posso pensare e' che Testo non venga valorizzato durante l'elaborazione nel ciclo per una qualche impostazione dei PC in questione che influisce.

Per esempio, se utilizzi date o valute, hai controllato le impostazioni internazionali (valuta e data) dei 3 PC?