Hola aqui de nuevo molestando quisiera saber si un archivo de texto como un notepad c puede cargar a un listbox como si fuera un ritchtexbox en su evento .load se puede cargar cual quier fichero .txt o los que les establescas se puede hacer lo mismo con un listbox?
Option Explicit
Const FILTRO_EXTENSIONES As String = "Archivos de texto (txt)|*.txt|" & _
"Rich Text Formato (RTF)|*.rtf|" & _
"Archivos INI|*.ini|Archivos HTML|" & _
"*.htm|Todos los archivos|*.*"
Private Sub abrir_Click()
With CommonDialog1
.DialogTitle = "Abrir Archivo"
.Filter = FILTRO_EXTENSIONES
.ShowOpen
If .FileName = "" Then Exit Sub
RichTextBox1.LoadFile .FileName
End With
End Sub
se puede hacer lo mismo pero con un listbox?
adaptalo a lo que queres...
Option Explicit
Private Sub Command1_Click()
Dim vArchivo As String
Dim i As Integer
Dim vLinea As String
vArchivo = App.Path & "\archivo.txt"
i = FreeFile
Open vArchivo For Input As i
Do While Not EOF(i)
Line Input #i, vLinea
List1.AddItem vLinea
Loop
Close #i
End Sub
otra forma es cargar todo el archivo directamente y con un Split() ir añadiendo las lineas.
Option Explicit
Private Sub Form_Load()
Dim vLineas() As String
Dim i As Integer
Dim vArchivo As Integer
vArchivo = FreeFile
Open "C:\archivo.txt" For Binary Access Read As #vArchivo
vLineas = Split(Input(LOF(vArchivo), vArchivo), vbNewLine)
For i = 0 To UBound(vLineas)
List1.AddItem vLineas(i)
Next i
Close #vArchivo
End Sub
wow muchas gracias amigo estoy muy agradecido men saludos
disculpa que habra dps de tanto un tema...
en visual studio como seria??
para abrir un txt en un listbox....
haciendo clic en un boton y q salga biste el buscar como cuando queremos adjuntar una imagen...
Visual Studio? :-(
para que lenguaje (Visual C++, Visual C#, Visual J#, y Visual Basic .NET)
No revivas el tema. Puedes Crear uno en la sección respectiva.
Saludos
visual basic. net :D
perdon voy a crear un nuevo tema... pero como ai taba el codigo pense q era mas facil ... pq en windows 7 no puedo instalar el 6 que funcione correctamente...
desde ya mil gracias...