On 26/gen/08, at 15:13, BluStar wrote:
Salve.
Vorrei provare a trascinare un file testo su una EditField per
visualizzarlo.
Come posso visualizzare un file testo su Window1 ?
Che controllo usare ?
E' sufficiente l'EditField.
1) Definisci un FileType "TEXT" per i tipi di dati che ti interessano
da IDE (vado a memoria: Editor del Progetto -> Tasto dx -> Aggiungi al
progetto -> Tipo di File) o da codice, definendo una proprietà
dell'applicazione (ad es. App.textType):
textType = New FileType()
textType.Name = "TEXT"
textType.MacType = "TEXT"
textType.Extensions = "txt"
2) Nell'evento Open dell'EditField:
Me.AcceptFileDrop("TEXT")
oppure
Me.AcceptFileDrop(App.textType)
3) Nell'evento DropObject dell'EditField:
If obj.FolderItemAvailable And obj.FolderItem <> Nil Then
Me.Text = obj.FolderItem.OpenAsTextFile.ReadAll()
End If
--
gilberto de faveri
omnidea srl
edificio pegaso
parco scientifico tecnologico vega
via delle industrie, 15
30175 venezia marghera
tel +39 041 509 3441
fax +39 041 509 3641
www.omnidea.it
|