prendendo esempio da un articolo in questo forum ho trovato molto utile questo codice riadattato per l'interfaccia del mio programma!
Const Sfondo As String = "skin/sfondo.jpg"
Dim File1 As String
Dim StrTemp As String
Dim Riga As String
Private Sub Form_Load()
File1 = (App.Path & "\File.txt")
'Crea il file linea 1
Open File1 For Output As #1
Print #1, Sfondo
Close #1
'Recupera il nome del file immagine
Open File1 For Input As 1
Line Input #1, Riga
Close #1
'---
'Carica l'immagine se esiste
StrTemp = App.Path
If Right(StrTemp, 1) <> "\" Then StrTemp = StrTemp & "\"
StrTemp = (StrTemp & Riga)
If Len(Dir(StrTemp)) > 0 Then
Form1.Picture = LoadPicture(StrTemp)
End If
End Sub
Private Sub Image1_Click()
End
End Sub
Funziona alla perfezione ma vorrei scrivere e leggere nella seconda riga del file di testo come si fà? ho provato a riscrivere
'Recupera il nome del file immagine
Open File1 For Input As 2
Line Input #2, Riga2
Close #1
'---
ho dichiarato la variabile riga2 e scritto nella seconda riga del file di testo ma mi da errori!!!!
come posso fare? grazie
Rispondi quotando
