El presente código sirve tanto para Visual Basic 6.0 (sí, todavía sirve, todavía sirve!) como para Visual Basic para Aplicaciones (Excel o VBA). ' Si estamos en Visual Basic para Aplicaciones agregar la referencia ' WinHTTP, en el menú Herramientas, Referencias, Microsoft WinHTTP Services Function Solicitar( _ ByVal URLBase As String _ , Optional ByVal Puerto As Integer = 80 _ , Optional ByVal Seccion As String = "" _ , Optional ByVal Metodo As String = "GET" _ ) As String On Error GoTo solucion #If VBA6 Then Dim objXML As New WinHttpRequest #ElseIf Win32 Then Dim objXML As Object Set objXML = CreateObject("MSXML2.ServerXMLHTTP") #End If objXML.Open Metodo, URLBase & ":" & Puerto & "/" & Seccion, False objXML.send If (objXML.Status = 404) Then Solicitar = "404 Error" Else Solicitar = objXML.responseText End If Se
Descarga de sitio oficial... Responsive nav Se instalan... - responsive-nav.css (en HEAD) - responsive-nav.js (en HEAD) Se construye un DIV (o lo que sea) bien identificado. <div id="menuResponsive">...</div> Se habilita... en un SCRIPT al final, justo antes del </body> con... var Opciones = {} ; var Menu = responsiveNav( "#menuResponsive", Opciones ) ; Opciones posibles: { label: "Haceme click X" }
