aiutatemiiiiii

[h_a_c_k_e_r_spy]

io o un textbox ed è nominato text1 e oun pulsante il quale al compito di aprire un txt nel text1 o il codice ma nn si apre nel text1 me lo agiustate????
ecco il codice

Dim nomefile As String
CommonDialog1.Filter = "File di testo (*.txt)|*.txt"
CommonDialog1.ShowOpen
nomefile = CommonDialog1.FileName


aiutatemiiiiiiiiiii

[Foga27News]

Originariamente inviato da h_a_c_k_e_r_spy
io o un textbox ed è nominato text1 e ho un pulsante il quale ha il compito di aprire un txt nel text1; ho il codice ma non si apre nel text1 me lo aggiustate????
ecco il codice

Dim nomefile As String
CommonDialog1.Filter = "File di testo (*.txt)|*.txt"
CommonDialog1.ShowOpen
nomefile = CommonDialog1.FileName


aiutatemiiiiiiiiiii

Sostituisco xegallo nel dirti "crossposting" e "nome thread non descrittivo".

Il tuo codice non fa altro che visualizzare la finestra che fa scegliere il file!

Dim nomefile As String
CommonDialog1.Filter = "File di testo (*.txt)|*.txt"
CommonDialog1.ShowOpen
nomefile = CommonDialog1.FileName
dim fn as integer,contenutofile as string
fn=freefile
open nomefile for binary as #fn
contenutofile=space(LOF(fn))
get #fn,1,contenutofile 
text1.text=contenutofile
close #fn