VB6 come si richiama una variabile?

[thedarkweb]

ciao, questo codice nn è giusto dove sbaglio?
vorrei invece di dichiarare la variabile background nel form dell'applicazione richiamare un file inf contenente la variabile background come faccio?

Private Sub Form_Load()
background = "laserbg.JPG"
Form1.Picture = LoadPicture(App.Path & "\background") <-- problema
End Sub

tanks a lot

[axsw]

Io non ho capito bene cosa vuoi fare ma provo ad aiutarti lo stesso.
Per mettere un un immagine come sfondo puoi impostare la proprietà "Picture" del form stesso.
Per metterla da codice si fà così

Private Sub Command1_Click()
 Form1.Picture = LoadPicture("c:\tuacartella\tuaimmagine.jpg")
End Sub

[thedarkweb]

si ma volevo fare una cosa del genere

nomevariabile = "immagine.gif"
LoadPicture(App.Path & "\nomevariabile")

si può fare una cosa del genere?
il fatto è che ho fatto troppo php e mi confondo facilmente!

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

[axsw]

Forse e meglio che ci spieghi esttamente cosa vuoi fare, almeno io non ho capito.
La variabile te la puoi memorizzare in un modulo come "Public" almeno la vedi in tutto il progetto.
Poi ci sono tanti modi, anche in un file di testo, dipende da che devi fare.

[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

[cassano]

LoadPicture(App.Path & "\nomevariabile")

prova questo

LoadPicture(App.Path & "\" & nomevariabile)

[thedarkweb]

buona cassano così va alla grande grazie! LoadPicture(App.Path & "\" & nomevariabile)

Voglio fare un programma, che come skin di fondo utilizzi un'immagine che viene specificata in un file di testo!
Quindi nello stesso programma ci sarà il codice che scrive nel file di testo e quello che recepisce le informazioni!

Dato che sono totalmente nuovo a questo linguaggio mi ci vorrebbero un paio di ragguagli in + per il codice che hai postato mabi!

ho fatto un form vuoto e nel codice ho inserito quello che mi hai dato!

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 <--- errore del debug
Print #1, Immagine.jpg <---- lho cambiato
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
Form.Picture = LoadPicture(StrTemp) <--- lho cambiato
End If

ma mi da l'errore nel debug perchè?

[cassano]

Open File1 For Output As #1 <--- errore del debug

forse perche hai dichiarato file1 come costante ???? prova a cambiarlo

[Mabi]

Originariamente inviato da thedarkweb
Dato che sono totalmente nuovo a questo linguaggio mi ci vorrebbero un paio di ragguagli in + per il codice che hai postato mabi!

Calma. Basta chiedere e ti do tutte le spiegazioni che vuoi

Originariamente inviato da thedarkweb
ho fatto un form vuoto e nel codice ho inserito quello che mi hai dato!

Devi associare il codice ad un evento, ad esempio il click sul form.
Quindi lo inserisci qui:

Private Sub Form_Click()
QUI
End Sub

Nel mio esempio scrivi il nome del file immagine in un file esterno (File1), lo recuperi leggendolo nel file e infine imposti lo sfondo.
I tre "pezzi" sono separati da una riga vuota.

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

Nelle dichiarazioni puoi vedere che il file in cui vai a scrivere il nome del file immagine si trova in C:\File.txt, che rimane fisso come il nome del file immagine Immagine.jpg. StrTemp è una String che ho utilizzato per creare il percorso del file immagine, mentre Riga è una String che conterrà la prima riga di File1, cioè il nome del file immagine (Immagine.jpg).

[thedarkweb]

e cosa dovrei fare? dovrei farlo diventare variabile?
come faccio? sono uno che deve ancora imparare le basi