ho dato il seguente comando:
PUBLIC SUB Button3_Click()
DIM FileIcona AS file
Dialog.Path = Application.Path
IF Dialog.OpenFile() THEN RETURN
OPEN (Dialog.Path) FOR READ AS #FileIcona
END
mi si apre la finestra che contiene delle icone. Ora come faccio a salvare in una textbox l'indirizzo dell'icona su cui faccio il doppio click così da poterla poi successivamente abbinare ad una picturebox?
Il metodo static Dialog.OpenFile() ti permette di attivare il sistema Multi, ovvero di selezionare più file, che ti vengono poi restituiti in un'array string.
DIM ListaFile AS String[]
DIM NomeFile AS String
Dialog.Path = Application.Path
IF Dialog.OpenFile( TRUE ) THEN RETURN
ListaFile = Dialog.Path
FOR EACH NomeFile IN ListaFile
PRINT NomeFile
NEXT
END
E' uguale: dentro Dialog.Path ci va l'array di stringhe se permetti di selezionarne più d'una, oppure ci va una stringa sola se permetti di selezionarne una sola.
PUBLIC SUB btnReadChoose_Click()
Dialog.Title = "Leggi un file"
Dialog.Path = lastInFile
Dialog.OpenFile(FALSE)
txtRead.Text = Dialog.Path
inFile = Dialog.Path
END
Se ti serve l'indirizzo dell'icona è inutile dichiararla come file.
DIM FileIcona AS String
Dialog.Path = Application.Path
IF Dialog.OpenFile() THEN RETURN
TextBox1.Text = Dialog.Path
ciao