Stupendo ceskho, ci ho messo un pò le mani ma è una figata.
Il modulo modMain serve, allora ho fatto .. non so come si chiamano (STATIC PUBLIC t$Type AS String). Quando mi connetto vado a "scrivere" i dati su questa, modMain "legge" da questa.
Fantastico grazie :-) :2birre:
p.s. io ti allego perchè mi fa piacere che vedi il tuo lavoro, ma non stò inserendo troppi allegati? :nulla:
edit:
ho dimenticato una cosa: cambia questa funzione nella classe "Principale"
PUBLIC SUB Form_Open()
DIM hFile AS File
DIM Dato1 AS String
DIM con1, con2, con3, con4, con5, con6 AS String
label2.Text = Format(Now(), "dddd dd mmmm yyyy")
IF NOT Exist(User.Home & "/.Gestione/tblogin.txt") THEN
dtbLogin.Show
ELSE
hFile = OPEN User.Home & "/.Gestione/Conn.txt" FOR INPUT
LINE INPUT #hFile, con1
LINE INPUT #hFile, con2
LINE INPUT #hFile, con3
LINE INPUT #hFile, con4
LINE INPUT #hFile, con5
LINE INPUT #hFile, con6
CLOSE #hFile
Global.t$Type = con1
Global.t$Host = con2
Global.t$Login = con3
Global.t$port = con4
Global.t$Name = con5
Global.t$Password = con6
ENDIF
IF NOT Exist(User.Home & "/.Gestione/Dati.txt") THEN
MKDIR (User.Home & "/.Gestione")
impostazioni.Show
ELSE
hFile = OPEN User.Home & "/.Gestione/Dati.txt" FOR INPUT
LINE INPUT #hFile, Dato1
CLOSE #hFile
lbintestazione.text = Dato1
END IF
ME.Center
END
