menú desplegable
Publicado por Sandra (18 intervenciones) el 06/10/2005 16:53:11
Hola
Estoy haciendo un menú desplegable pero si el código lo pongo en block de notas si funciona y al momento de pasarlo a Visual Basic me marca un error (se esperaba un objeto) y no se porque.
espero me puedan ayudar.
Send ("<HTML>")
Send ("<HEAD>")
Send ("<TITLE>Comités Técnicos Sectoriales y/o Regionales de los SNEIG</TITLE>")
Send ("<link rel=""stylesheet"" type=""text/css"" href=""/sneig/estilo.css"">")
Send ("<script language=""JavaScript"">")
Send ("Var mie = (navigator.appName.indexOf(""Microsoft"")>=0)")
Send ("var itemOrig;")
Send ("function despMenu(nombre,sn)")
Send ("{")
Send ("obj = document.all[nombre];")
Send ("if (sn>0)")
Send ("obj.style.visibility = ""visible"";")
Send ("else")
Send ("obj.style.visibility = ""hidden"";")
Send ("}")
Send ("function destacar(obj, val)")
Send ("{")
Send ("if (val==1)")
Send ("{")
Send ("itemOrig = obj.style.backgroundColor;")
Send ("obj.style.backgroundColor=""63A4AC"";")
Send ("}")
Send ("else")
Send ("obj.style.backgroundColor= itemOrig;")
Send ("}")
Send ("</script>")
Send ("</HEAD>")
Send ("<table width='100%' border=1 rules=cols frame=void cellspacing='0' cellpadding='7' style= 'font-family:Arial; font-size:9pt; color:#000000;'>")
Send ("<tr><td>")
Send ("<div id=""Menu1"" style=""width:61px; height:18px; z-index:2; left:39px; top:223px"" class=""cabMenu""")
Send ("onMouseOver=""despMenu('itMenu1',1)"" onMouseout=""despMenu('itMenu1',0)""><a href=''>Catálogos</a>")
Send ("</div>")
Send ("<div id=""itMenu1"" style=""width:200px; height:200px; z-index:1; left:100px; top:236px"" class=""itMenu""")
Send ("onMouseOver=""despMenu(this.id,1)"" onMouseout=""despMenu(this.id,0)"">")
Send ("<div id=""itMenu11"" class=""itMenuDes"" onMouseover=""destacar(this.id,1)"" onMouseout=""destacar(this,0)"" >")
Send (" <a href=""destino1.htm"" >Dependencias</a>")
Send ("</div>")
Send ("<div id=""itMenu12"" class=""itMenuDes"" onMouseover=""destacar(this.id,1)"" onMouseout=""destacar(this,0)"" >")
Send (" <a href=""destino1.htm"" >Areas de adscripción INEGI</a>")
Send ("</div>")
Send ("</div>")
Send ("</td></tr>")
Send ("</table>")
Send ("</BODY>")
Send ("</HTML>")
Estoy haciendo un menú desplegable pero si el código lo pongo en block de notas si funciona y al momento de pasarlo a Visual Basic me marca un error (se esperaba un objeto) y no se porque.
espero me puedan ayudar.
Send ("<HTML>")
Send ("<HEAD>")
Send ("<TITLE>Comités Técnicos Sectoriales y/o Regionales de los SNEIG</TITLE>")
Send ("<link rel=""stylesheet"" type=""text/css"" href=""/sneig/estilo.css"">")
Send ("<script language=""JavaScript"">")
Send ("Var mie = (navigator.appName.indexOf(""Microsoft"")>=0)")
Send ("var itemOrig;")
Send ("function despMenu(nombre,sn)")
Send ("{")
Send ("obj = document.all[nombre];")
Send ("if (sn>0)")
Send ("obj.style.visibility = ""visible"";")
Send ("else")
Send ("obj.style.visibility = ""hidden"";")
Send ("}")
Send ("function destacar(obj, val)")
Send ("{")
Send ("if (val==1)")
Send ("{")
Send ("itemOrig = obj.style.backgroundColor;")
Send ("obj.style.backgroundColor=""63A4AC"";")
Send ("}")
Send ("else")
Send ("obj.style.backgroundColor= itemOrig;")
Send ("}")
Send ("</script>")
Send ("</HEAD>")
Send ("<table width='100%' border=1 rules=cols frame=void cellspacing='0' cellpadding='7' style= 'font-family:Arial; font-size:9pt; color:#000000;'>")
Send ("<tr><td>")
Send ("<div id=""Menu1"" style=""width:61px; height:18px; z-index:2; left:39px; top:223px"" class=""cabMenu""")
Send ("onMouseOver=""despMenu('itMenu1',1)"" onMouseout=""despMenu('itMenu1',0)""><a href=''>Catálogos</a>")
Send ("</div>")
Send ("<div id=""itMenu1"" style=""width:200px; height:200px; z-index:1; left:100px; top:236px"" class=""itMenu""")
Send ("onMouseOver=""despMenu(this.id,1)"" onMouseout=""despMenu(this.id,0)"">")
Send ("<div id=""itMenu11"" class=""itMenuDes"" onMouseover=""destacar(this.id,1)"" onMouseout=""destacar(this,0)"" >")
Send (" <a href=""destino1.htm"" >Dependencias</a>")
Send ("</div>")
Send ("<div id=""itMenu12"" class=""itMenuDes"" onMouseover=""destacar(this.id,1)"" onMouseout=""destacar(this,0)"" >")
Send (" <a href=""destino1.htm"" >Areas de adscripción INEGI</a>")
Send ("</div>")
Send ("</div>")
Send ("</td></tr>")
Send ("</table>")
Send ("</BODY>")
Send ("</HTML>")
Valora esta pregunta
0