Da Filelistbox a RichTextBox.

[belvagor]

Salve
Problema:
Ho una filelistbox con una serie di nomi . Questi nomi sono i file che stanno dentro una cartella. sono tutti file di testo con estensione crd tab txt e pro. Si usano per scrivere testi da suonare.Adesso io quando clicco su uno dei nomi della flistbox mi si apre notepad invece io vorrei che il file mi si aprisse all'interno della RichTextBox.

Queto è il codice che c'è adesso.
Dim lRet As Long
If Right(File1.FileName, 4) = ".txt" Or Right(File1.FileName, 4) = ".pro" Or Right(File1.FileName, 4) = ".crd" Or Right(File1.FileName, 4) = ".tab" Then
Text1 = "File valido"
Shell ("notepad.exe " & File1.FileName), vbNormalFocus 'secondo me bisogna
'cambiare questo questa riga
'della shell.
Else
Text1 = "File non valido"
End If
End Sub


Ho allegato anche un'immagine così si capisce meglio.
Spero di essermi spiegato ciao e grazie.

[kalosjo]

1) metti il linguaggio nel titolo.
2) apri il file con "open" (suppongo che sia vb6)
3) leggi il contenuto e lo metti in una variabile
4) visualizza il contenuto della variabile nel richtextbox

[alka]

Originariamente inviato da kalosjo
1) metti il linguaggio nel titolo.

Gli è già stato detto qui, ma evidentemente il messaggio non era chiaro.

Io chiudo anche questa: vediamo se qualcosa migliora.

Segnalo ancora una volta il Regolamento.