VB6 come si richiama una variabile?

[Mabi]

Originariamente inviato da thedarkweb
sai come posso fare ad leggere in un file di testo il contenuto di una variabile e poi mettela qua LoadPicture(App.Path & "\nomevariabile") <====

Prova a guardare questo esempio:

Const File1 As String = "C:\File.txt"
Const FileImmagine As String = "Immagine.jpg"
Dim StrTemp As String
Dim Riga As String


'Crea il file
Open File1 For Output As #1
  Print #1, FileImmagine
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
  Me.Picture = LoadPicture(StrTemp)
End If