Visual Basic - Mas sobre control ListView

Life is soft - evento anual de software empresarial
 
Vista:

Mas sobre control ListView

Publicado por Eclesiastes (77 intervenciones) el 07/10/2002 13:51:11
hola como estan..quisiera saber si hubiese la posibilidad de guardar el contenido de un control ListView en un archivo de texto(extensionTXT),para luego poder imprimir en cualquier maquina disponible .gracias ..!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mas sobre control ListView

Publicado por Victor Collado (51 intervenciones) el 07/10/2002 18:56:39
Hola

Te escribo un ejemplo, agregue a mi proyecto una referencia a Microsoft Scripting Runtime para utilizar FileSystemObject, ahia va mi ejemplo:

' Tengo un listview de nombre lstTest y le voy a aregar datos para despues enviarloa un file

Private Sub Form_Load()
Dim i As Integer
Dim strText As String

strText = "Test"

For i = 1 To 10
Me.lstTest.ListItems.Add i, , strText & i
Next

End Sub

' Y ahora vamos desde un boton enviar el contenido del list View a un text file

Private Sub Command1_Click()
Dim FSO As New FileSystemObject
Dim objStream As TextStream
Dim miFile As String
Dim i As Integer


miFile = ("C:\prueba\test.txt")
Set objStream = FSO.OpenTextFile(miFile, ForWriting, True, TristateTrue)

For i = 1 To lstTest.ListItems.Count
objStream.WriteLine lstTest.ListItems.Item(i).Text
Next

MsgBox "Los datos fueron guardados en el siguiente file: " & miFile

End Sub

Despues creo que no tendras problemas para imprimi este file.

Saludos

Victor Collado
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar