none
Navegador Web, Problemas con Favoritos e Historial RRS feed

  • Pregunta

  • 1. Hola, El Problema que tengo con Formulario Favoritos es que no me guarda las URL que quiero agregar, ya los made a un archivo de texto y me guarda nada mas una dirección (URL), cierro ese Formulario y lo abro de nuevo me muestra esto: Ej.

    ListViewSubItem:{www.google.com} . Como quitarle ListViewSubItem:{} y que me aparesca www.google.com.

    Otro problema que tengo es que si al dar dobleclick sobre un item del listview no puedo navegar que puedo hacer para eso.

    Código:

     Private Sub Favoritos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          
           
    Dim Favoritos As String

            FileOpen(1, "C:\Favoritos\Favoritos.txt", OpenMode.Input)
            Do While Not EOF(1)
                Favoritos = LineInput(1)
                lvwSitioWeb.Items.Add(Favoritos)
            Loop
            FileClose()

    End Sub

        Private Sub btnAñadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAñadir.Click
           
    Dim Lista_Items As New ListViewItem
            Lista_Items.Text = cboUrl.Text
            Lista_Items.SubItems.Add(cboUrl.Text)
            lvwSitioWeb.Items.Add(Lista_Items)
            cboUrl.Text = cboUrl.Text

            Dim file As New StreamWriter("C:\Favoritos\Favoritos.txt")
            file.WriteLine(Lista_Items.SubItems.Add(cboUrl.Text))
            file.Close()
       

    End Sub

       
        Private Sub btnQuitarUrl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuitarUrl.Click
           

            Dim Elementos As ListView.SelectedIndexCollection = lvwSitioWeb.SelectedIndices
            Dim Línea As Integer
            For Each index In Elementos
                lvwSitioWeb.Items.RemoveAt(Línea)
            Next


        End Sub

    2. En el Formulario historial es el mismo problema solo me guarda una dirección(URL) que puedo hacer para que me aparescan todas las direcciones(URL) en el ListView

    Código:

     Private Sub frmHistorial_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          
           
    Dim Historial As String
            FileOpen(1, "C:\Favoritos\Historial.txt", OpenMode.Input)

            Do While Not EOF(1)
                Historial = LineInput(1)
                lvwWebSites.Items.Add(frmExplorador.cboUrl.Text)
            Loop
            FileClose()

        End Sub

    El lvwWebSites es un ListView

    martes, 14 de diciembre de 2010 23:21

Respuestas

  • hola

    como recomendacion podrias comentarte primero que no uses el FileOpen para acceder a los archivos hay funcionaldiad dentro de .net mucho mas potente, que esta bajo el namespace System.IO

    How to: Read Text from a File

     

    1-

    pero veo que en el metodo del evento  btnAñadir_Click estas creando un nuevo control ListView para agregarle  la url a este, peo en tu pantalla no tienes un ListView definido podrias ahces el New de una nueva instancia en la linea: Dim Lista_Items As New ListViewItem ?

    no has probado definri el StringWriter para que adicione url que lo abra en modo append

    Private Sub btnAñadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAñadir.Click

        Using file As New StreamWriter("C:\Favoritos\Favoritos.txt", true )
            file.WriteLine(cboUrl.Text)
        End Using
       
    End Sub

    How to: Write Text to a File

     

    2-

    prueba algo como esto

     

    Private Sub frmHistorial_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         
        Using sr As New StreamReader("C:\Favoritos\Historial.txt")
            Do
                Dim line As String = sr.ReadLine()
                lvwWebSites.Items.Add(line)
            Loop Until line Is Nothing
        End Using

    End Sub

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    • Marcado como respuesta P. Mata miércoles, 15 de diciembre de 2010 4:54
    miércoles, 15 de diciembre de 2010 3:18

Todas las respuestas

  • hola

    como recomendacion podrias comentarte primero que no uses el FileOpen para acceder a los archivos hay funcionaldiad dentro de .net mucho mas potente, que esta bajo el namespace System.IO

    How to: Read Text from a File

     

    1-

    pero veo que en el metodo del evento  btnAñadir_Click estas creando un nuevo control ListView para agregarle  la url a este, peo en tu pantalla no tienes un ListView definido podrias ahces el New de una nueva instancia en la linea: Dim Lista_Items As New ListViewItem ?

    no has probado definri el StringWriter para que adicione url que lo abra en modo append

    Private Sub btnAñadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAñadir.Click

        Using file As New StreamWriter("C:\Favoritos\Favoritos.txt", true )
            file.WriteLine(cboUrl.Text)
        End Using
       
    End Sub

    How to: Write Text to a File

     

    2-

    prueba algo como esto

     

    Private Sub frmHistorial_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         
        Using sr As New StreamReader("C:\Favoritos\Historial.txt")
            Do
                Dim line As String = sr.ReadLine()
                lvwWebSites.Items.Add(line)
            Loop Until line Is Nothing
        End Using

    End Sub

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    • Marcado como respuesta P. Mata miércoles, 15 de diciembre de 2010 4:54
    miércoles, 15 de diciembre de 2010 3:18
  • 1-

    Private Sub btnAñadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAñadir.Click

        Using file As New StreamWriter("C:\Favoritos\Favoritos.txt", true )
            file.WriteLine(cboUrl.Text)
        End Using
       
    End Sub

     


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    Hola.

    Lo de System.IO ya la habia omportado para poder utilizar el StreamWriter

    En el Formulario Favoritos se arreglo el Problema que tenia, Pero en el Otro Formulario (historial) Todavía No.

    me Marca este Error

           Using sr As New StreamReader("C:\Favoritos\Historial.txt")
                Do
                    Dim line As String = sr.ReadLine()
                    lvwWebSites.Items.Add(line)

                Loop Until line Is Nothing  

                                ↓

    Me manda un Mensaje diciendo que ya no se admite esa Instrución , La Funcionalidad del E/S esta disponible como Microsof.VisualBasic.FileSystem.LineImput y La Funcionalidad de Graficos System.Drawing.Graphics.DrawLine. 
           
            End Using

     

    miércoles, 15 de diciembre de 2010 4:53