 Autor
|
Tema: Problema con un ListBox. NO SE VUELCA EL CONTENIDO[Solucionado] (Leído 3,179 veces)
|
Karcrack
 Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
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  este es el code: 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.
|
|
|
|
« Última modificación: 26 Junio 2007, 17:44 pm por Karcrack »
|
En línea
|
|
|
|
ranslsad
Desconectado
Mensajes: 492
Dim Ranslsad as String * :P - Que Vicio!
|
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
|
|
|
|
|
En línea
|
|
|
|
|
Hendrix
|
substituye .list por .txt... Un Saludo.  |
|
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián |
|
|
Jareth
Desconectado
Mensajes: 334
|
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.
|
|
|
|
|
En línea
|
|
|
|
ranslsad
Desconectado
Mensajes: 492
Dim Ranslsad as String * :P - Que Vicio!
|
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 |
|
|
|
|
En línea
|
|
|
|
|
Hendrix
|
Importante esto: For i = 0 To List1.ListCount -1Creo que sin ese -1 se desbordaba o algo, no se.... Un Saludo. |
|
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián |
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
MUXAS gracias a todos, ya lo he solucionado  , cre que era lo que decia Kyubi lo del output. |
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
[SOLUCIONADO]Sacar datos de contenido web
.NET (C#, VB.NET, ASP)
|
.:Weeds:.
|
4
|
3,674
|
26 Mayo 2011, 01:06 am
por .:Weeds:.
|
|
|
|
[Solucionado][C#] Seleccionar value de un ListBox con SelectMultiple
.NET (C#, VB.NET, ASP)
|
Shell Root
|
0
|
2,008
|
19 Septiembre 2013, 06:49 am
por Shell Root
|
|
|
|
Android - Problema validando el contenido de un EditText (Solucionado + o - )
Java
|
Aberroncho
|
1
|
5,802
|
14 Abril 2014, 23:54 pm
por Aberroncho
|
|
|
|
Guardar contenido de listbox en settings
.NET (C#, VB.NET, ASP)
|
rigorvzla
|
2
|
2,607
|
23 Septiembre 2018, 14:49 pm
por rigorvzla
|
|
|
|
(Solucionado) S strings variando su contenido.
Programación General
|
Tachikomaia
|
1
|
2,453
|
5 Noviembre 2019, 18:06 pm
por Tachikomaia
|
 |
