hola amigo!!!
No puedo hacer uso de esos javascript pór que la app es de escritorio; de hecho manejo un control webbrowser que acepta paginas html, de hecho volque todo un portal web a la app entonces queria que la navegación fuese similar a cualquier navegador de internet; el control si tiene la opcion de ir hacia adelante y hacia atrás pero siempre y cuando los vinculos fuesen hacia internet y como te repito yo tengo el portal en la app (hasta con la bd que la migre a sql server CE)... Por tal razón cada vez que hacia clic en cualquier parte de mi app donde me referencía a traer un dato de la db pongo esta función:
Código:
creaposicion(micontenido, nombrecontenido)
Y Tengo un modulo en el cual tengo mi función que devuelve datos de tipo array.... la cual es la siguiente:
Código:
Function creaposicion(ByVal cadena As String, ByVal titulos As String) As Array
Dim sString As String = cadena
Dim stitulo As String = titulos
If posicion = -1 Then
atras = -1
texto(0) = sString
titulo(0) = stitulo
posicion = 0
Else
Dim a As Int16 = texto.Length
If atras = -1 Or aux > 1 Then
ReDim Preserve texto(a)
ReDim Preserve titulo(a)
texto(a) = sString
titulo(a) = titulos
posicion = a
auxposicion = posicion
Else
ReDim Preserve texto(a)
ReDim Preserve titulo(a)
texto(a) = texto(atras)
titulo(a) = titulo(atras)
ReDim Preserve texto(a + 1)
ReDim Preserve titulo(a + 1)
texto(a + 1) = sString
titulo(a + 1) = titulos
posicion = a + 1
auxposicion = posicion
End If
End If
Return texto
End Function
Me preguntarás ; por que no usé un array multidimensional?... La respuesta es sencilla debido a que utilizo redimensionamientos para las filas y hasta donde leí la ayuda del msdn se puede redimensionar la dimensión mas a la derecha; es decir la columna, si tomamos en cuenta array(fila,columna)... y yo quería redimensionar las filas.... Así que use dos array y tan tan funciona...
Ahora en los botones que tengo en mi app que dicen adelante y atrás quedan de la siguiente forma:
Boton atrás:
Código:
Private Sub btnatras_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnatras.Click
atras = auxposicion - 1
If Len(posicion) > 0 Then
If atras >= 0 And atras < posicion Then
'wbcontenido es el webbrowser en el cual vacio mis datos html que traigo de mi bd sql server CE con su propiedad Documenttext
wbcontenido.DocumentText = texto(atras)
txtley.Text = titulo(atras)
auxposicion = auxposicion - 1
aux = 0
End If
End If
End Sub
Botón Adelante:
Código:
Private Sub btnadelante_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadelante.Click
adelante = auxposicion + 1
If Len(auxposicion) > 0 Then
If adelante <= posicion Then
wbcontenido.DocumentText = texto(adelante)
txtley.Text = titulo(adelante)
auxposicion = auxposicion + 1
aux = 1
End If
End If
End Sub
Es una explicación de manera general... Espero y les ayude en alguna ocasión........
Bitss--Miguel--in----..........