Pagina anterior Indice Pagina de scripts
WEB
Cambios de color, letra y lugar en la pagina
usando Scripts en Visual Basic.

He aqui alguna de las otras cosas que se pueden hacer:






Lo primero que hay que hacer es declarar dentro de las banderas o tags STYLE las funciones:
  • .notover {position: absolute; font-family:-- ; font-weight:-- ; font-size: - px; color: -- ; visibility: show}
  • .sizechange {font-family: -- ; font-size: - px ; color: -- }
  • .color {font-family=" "; color:-- ; font-weight:-- ; font-size: - px}
  • .disappear {font-family:--; font-weight: normal; font-size: -px; color:--; visibility:hidden}

Recuerden:

  • las tags STYLE se colocan antes del BODY.
  • el tamaño de las letras va en pixels (10-40..o mas)
Esto es lo mas simple de todo. Vamos a probar si funciona para despues escribir el codigo correspondiente.

Fabuloso. Somos magos o qué. El script es dificil y no se lo digan a nadie lo copié de un Web Site. Silencio. No digan nada! SHsh....

.

He aqui el famoso codigo del Script en Visual Basic:


VBSCRIPT

Sub MyList_onmouseover

Set objItem = window.event.srcElement

If objItem.id = "Item1" Then objItem.classname="sizechange"

If objItem.id = "Item2" Then DivTag.style.pixelLeft = 100

If objItem.id = "Item3" Then

objItem.id.classname="color"

document.all("Item4").classname = "notover"

End If

If objItem.id = "Item4" Then objItem.classname="disappear"

window.status = window.event.fromElement.id

End Sub


Sub MyList_onmouseout

.. Set objItem = window.event.srcElement

.. If objItem.id <> "Item4" Then objItem.classname = "notover"

End Sub

Diviertanse de la misma forma como yo lo hago ahora.