vbnet - problemi di esecuzione veloce

[Luberto Mario]

cerco di spiegare il titolo abbastanza emblematico con due casi
primo: creo un file e ci scrivo un record
se eseguo passo-passo ok, altrimenti crea il file ma non
scrive il record

secondo: richiamo una routine di attivazione campo; questa
crea una cornice intorno al campo, imposta il fuoco - Control.Focus()
e si posiziona ad inizio campo - Control.SelectionStart = 0
anche questa eseguita passo-passo e' ok altrimenti crea la cornice
ma non il fuoco

in vb6 mi pare di ricordare che si risolveva con il do event; e qui?

[oregon]

No, mi sembra che qualcosa non sia chiaro.

La DoEvents può servire per una questione di visualizzazione non per scrivere in un file.

Il primo problema, quello del file, non ha senso. Deve scrivere comunque.

Mostraci il codice.

[Luberto Mario]

ciao oregon, ti posto il pezzo di codice interessato

If Not IO.File.Exists(FileConfig) Then
System.IO.File.Create(.FileConfig)
End If
ini_Scrive("Sezione","Chiave","Valore")

quando gira la prima volta, file inesistente, mi ritrovo il file creato ma vuoto
se gira la seconda volta, file gia' esistente, ci trovo anche il record scritto

infine se eseguo le istruzioni step-by-step, con file inesistente, e' tutto ok
ossia crea il file e ci scrive pure

[oregon]

Ma la funzione ini_Scrive dove scrive? Come apre il file? Quando lo chiude?

[optime]

tra l'altro, la creazione potrebbe tranquillamente stare dentro la ini_scrive

[oregon]

tra l'altro, la creazione potrebbe tranquillamente stare dentro la ini_scrive

E probabilmente è proprio quello il problema ...

[optime]

aspettiamo che l'uberto posti il codice di ini_scrive

[Luberto Mario]

scusate ma sono stato assente; allora la scrittura del record e'
autonoma perche' richiamabile da piu' punti del programma; vi posto
il codice che provvede alla scrittura

Private Declare Auto Function WritePrivateProfileString _
Lib "kernel32.dll" _
Alias "WritePrivateProfileString" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpString As String, _
ByVal lpFileName As String) _
As Integer

Friend Function IniScrive(ByVal Section As String, _
ByVal Key As String, _
ByVal Value As String, _
Optional ByVal bRaiseError As Boolean = False) _
As Boolean
Dim LenResult As Integer
LenResult = WritePrivateProfileString(Section, Key, Value, FileConfig)
Return IIf(LenResult <> 0, True, False)
End Function

[oregon]

Beh, allora ti consiglio di eliminare completamente le linee

If Not IO.File.Exists(FileConfig) Then
   System.IO.File.Create(FileConfig)
End If

che non servono e, anzi, possono creare problemi.

[Luberto Mario]

ciao oregon
ma cosi' facendo, se il file non esiste che succede?
non riusciro' piu' a scrivere ne' leggere niente
nel file config avevo intenzione di metterci dentro i
parametri per personalizzare il programma