Sub Process_Globals
Private BANano As BANano
End Sub
Sub AppStart (Form1 As Form, Args() As String)
BANano.Initialize("BANanoJQWidgets", "BANanoJQWidgets", 1)
BANano.UseServiceWorker = False
BANano.HTML_NAME = "index.html"
BANano.Header.Title = "BANanoJQWidgets"
BANano.Header.AddCSSFile("https://jqwidgets.com/public/jqwidgets/styles/jqx.base.css")
BANano.Header.AddJavascriptFile("https://code.jquery.com/jquery-3.3.1.min.js")
BANano.Header.AddJavascriptFile("https://jqwidgets.com/public/jqwidgets/jqx-all.js")
BANano.Build("C:\inetpub\wwwroot\BANano\") ' <-- adjust to your needs!
ExitApplication
End Sub
Sub BANanoJQWidgets_Ready()
Dim HTML As String = $"<input type="button" value="Button" id="jqxbutton" />"$
BANano.GetElement("body").Append(HTML)
Dim jQuery As BANanoObject
jQuery.Initialize("$")
jQuery.Selector("#jqxbutton").RunMethod("jqxButton", CreateMap("width":"150", "height":"50"))
End Sub