 varias dudas
Hola, como ya comente en otro post estoy trabajando en un navegador web y os querria preguntar alguna cosilla ( espero que esta vez no se monte el mismo follon) y si pregunto es porque quiero aprender.
la primera es que tengo un codigo para que al abrirse otra ventana desde el navegador se habra pero no con internet explorer si no con mi navegador el codigo es este
Private Sub WebBrowser_NewWindow2(ByVal ppDisp As Object, ByVal Cancel As Boolean)
Dim NuevaVentana As
'Cancelamos la ventana del explorador predeterminado
Cancel = True
'Creamos una nueva instancia del navegador, es decir del formulario
NuevaVentana = New Xoborg_Explorer
NuevaVentana.Show() 'lo hacemos visible
'cargamos la página en esta nueva ventana
NuevaVentana.WebBrowser1.Navigate()
End Sub
el problema es que no se que declarar dim NuevaVentana As ...
y el segundo es que querria ponerle para que guardara las webs visitadas en doc.txt y asi luego poder verlas en el historial, si me podeis ayudar lo agredeceria encontre un codigo pero no se por donde cogerlo
'nombre del fichero de texto que guarda los sitios visitados
Private Const FILE_NAME As String = "Historia.txt"
'configurar posición y tamaño al cargar la ventana de la aplicación
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'obtener los datos de la configuración guardada al cerrar el formulario por última vez
Me.Width = My.Settings.Anchura
Me.Height = My.Settings.Altura
Me.Left = My.Settings.Izquierda
Me.Top = My.Settings.Derecha
'centrar la ventana en la pantalla
'Me.Top = (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) \ 2
'Me.Left = (Screen.PrimaryScreen.WorkingArea.Width - Me.Width) \ 2
'
'desactivar botones Atrás y Adelante
btBack.Enabled = False
btForw.Enabled = False
'etiqueta lbOn vacía
lbOn.Text = ""
'
'rellenar ComboBox desde el archivo Historia.txt
'
'variable para cada línea del fichero de texto
Dim line As String
'si el fichero no existe -> no hacer nada (se creará uno al cerrar el programa)
If Not File.Exists(FILE_NAME) Then
Return
Else
'StreamReader resresenta un lector que puede leer una cadena secuencial
'de caracteres desde un flujo de bytes, contiene al archivo de texto
Dim sr As StreamReader
sr = New StreamReader(FILE_NAME)
'
'leer las líneas del archivo hasta el final
Do
line = sr.ReadLine()
'si el texto de cbUrl no existe en el ComboBox, añadirlo a la lista
'pero sólo si la línea no está en blanco
Dim n As Integer
'FindString busca en ListBox y ComboBox sin distinguir mayúsculas y minúsculas,
'si encuentra el elemento buscado, devuelve el índice desde cero del elemento,
'devuelve -1 si no lo encuentra
n = cbUrl.FindString(line)
'una comprobación más de que la línea no está en blanco,
'sin ella salta un error después de leer la última línea con texto
' porque la comprobación en el bucle Do...Loop Until está al final
If Not line Is Nothing Then
If (n = -1) Then
cbUrl.Items.Add(line)
End If
End If
Loop Until line Is Nothing
'
'cerrar StreamReader
sr.Close()
'
End If
'
End Sub
y esto (irian juntos, uno funcionaria por el otro)
'guardar el archivo de texto con el historial
Private Sub guardarArchivo()
Try
Dim sw As StreamWriter
If File.Exists(FILE_NAME) Then
'sobreescribir el texto (no añadir al final)
sw = New StreamWriter(FILE_NAME, False)
Else
'crear un archivo vacío
sw = File.CreateText(FILE_NAME)
End If
Dim i As Integer
For i = 0 To (cbUrl.Items.Count - 1)
sw.WriteLine(cbUrl.Items(i))
Next
sw.Close()
Catch pollo As System.IO.IOException
MsgBox(pollo.Message, MsgBoxStyle.Information, "Error")
End Try
End Sub
__________________  | 
Mode Lineal
