Tengo un problema, cuando escribo el codigo de abajo se supone que los elmentos que hay en la lista del form9 se deberian añadir al archivo de texto, pero no se hace, se queda vacio. Prove haciendo que envez de que se escrbiera me los dijera en un msgbox y
si que lo hacia. No lo entiendo :huh:
este es el code:
Citar
dim i
If abIert0 = "1" Then
For i = 0 To Form9.List1.ListCount
Open App.Path & "/x.txt" For Output As #1
Print #1, Form9.List1.List(i)
Close
Next
End If
Gracias.
El problema esta en esta linea:
Print #1, Form9.List1.List(i)
el .list es el que falla creo, toy probando haber como era xD.. pero no me acuerdo..
cuando lo aya encontrado te aviso..
Salu2
Ranslsad
substituye .list por .txt...
Un Saludo. ;)
Private Sub Command1_Click()
Dim i As Long
For i = 0 To List1.ListCount
Open "c:\log2.txt" For Append As #1
Print #1, , List1.List(i)
Close #1
Next
End Sub
Private Sub Form_Load()
Dim z As Integer
For z = 1 To 10
List1.AddItem (z)
Next
End Sub
Mira asi si funciona,no uses output porque sobreescribirá y solo tendrás en el texto el ultimo valor.
Indicas mal la ruta y usas mal print.
Espero que mi ejemplo te sirva.
Bueno ya veo que te an respondido, aun asi te dejo una informacion que encontre en la pagina de nuestro foro...
Selección y eliminación de todos los elementos de un ListBox:
Insertar un ListBox y dos Botón en un nuevo proyecto. Poner la propiedad MultiSelect del ListBox
a "1 - Simple" y escriba el siguiente código:
Private Declare Function SendMessageLong Lib "user32" Alias
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long,
ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Form_Load()
List1.AddItem "Texto 1"
List1.AddItem "Texto 2"
List1.AddItem "Texto 3"
List1.AddItem "Texto 4"
List1.AddItem "Texto 5"
List1.AddItem "Texto 6"
List1.AddItem "Texto 7"
End Sub
Private Sub Command1_Click()
'Seleccion de todo el contenido
Dim Resp As Long
Resp = SendMessageLong(List1.hwnd, &H185&, True, -1)
End Sub
Private Sub Command2_Click()
'Eliminacion de todos los elementos seleccionados
Dim Resp As Long
Resp = SendMessageLong(List1.hwnd, &H185&, False, -1)
End Sub
Haber si te sirve para alguna otra cosilla :)
Salu2
Ranslsad
Importante esto:
For i = 0 To List1.ListCount -1
Creo que sin ese -1 se desbordaba o algo, no se....
Un Saludo. ;)
MUXAS gracias a todos, ya lo he solucionado ;D, cre que era lo que decia Kyubi lo del output.