una pregunta mas.
para cargar un archivo con extensión .nfo dentro del cuadro blanco como hago eso
es que no tengo ni xorra idea
help me plz
No me di cuenta de esta pregunta y bueno como no tengo nada que hacer asi que veamos como te ayudamos un pokitin mas jejeje...
usando un cuadro de dialogo abrir (commondialog) para abrir el archivo que ir previzualizar ... tambien un textbox que seria preview.Text le pones multiline en propiedades...
Private Sub Preview_archivo()
preview.Text = Empty
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "Archivos de Texto (*.txt)|*.txt"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> Empty Then
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, linea
preview.Text = preview.Text & linea & vbCrLf
Loop
Close #1
Else
preview.Text = "NO SE ABRIO NINGUN ARCHIVO"
End If
End Sub
listo ese seria el procedimiento para abrir cualkier archivo guardado y visualizarlo en el preview.text....
ves si lo pones en un boton o solo0 llamas al procedimiento...
otro detalle si kieres que el texto se vea como en tu imagen tienes que poner como dice jackl007 ツ ... entonces tienes que poner en el codigo anterior que te di esa condicion...
Open "Archivo.txt" For Append As #1 ' Abre archivo de salida para añadir
Print #1, text1.text 'escribe el contenido del control textbox1
Print #1, text2.text 'escribe el contenido del control textbox2
Close #1
seria asi:
Open "Archivo.txt" For Append As #1 ' Abre archivo de salida para añadir
texto1 = " Artist:...: " & text1.text
texto2 = " Title:.....: " & text2.text
Print #1, texto1 'escribe el contenido del control textbox1
Print #1, texto2 'escribe el contenido del control textbox2
Close #1
bueno listo con eso ya tienes casi listo tu proyecto
Pero sugiero que revises mas ok ..
salu2.