public Sub ConnectPage()
'NUEVO
ABMShared.ConnectNavigationBar(página)
Dim cont_calendario como ABMContainer
cont_calendario. Initialize(página, "cont_calendario", "")
cont_calendario. MarginLeft = "-70px"
cont_calendario. MarginRight = "-70px"
página. Celda(1,1). AddComponent(cont_calendario)
cont_calendario. AddRowsM(1,True,25,0,""). AddCells12(1,"")
cont_calendario. BuildGrid ' ¡IMPORTANTE!
Control deslizante de atenuación como ABMImageSlider
slider. Initialize(página, "slider", "myslider")
slider. AddSlideImage(".. /images/about1.png", "No se requiere conocimiento de HTML o CSS","Over 35 Material controls!", ABM. IMAGESLIDER_RIGHT)
slider. AddSlideImage(".. /images/about2.png", "All controlable with pure B4J code","Over 35 Material controls!", ABM. IMAGESLIDER_RIGHT)
slider. AddSlideImage(".. /images/about3.png", "Los controles están animados",¡Más de 35 controles de material!, ABM. IMAGESLIDER_RIGHT)
slider. AddSlideImage(".. /images/about4.png", "Interactuar con los controles","Over 35 Material controls!", ABM. IMAGESLIDER_CENTER)
slider. AddSlideImage(".. /images/about5.png", "Helpers create effects like Parallax","Over 35 Material controls!", ABM. IMAGESLIDER_RIGHT)
slider. AddSlideImage(".. /images/about6.png", "Controles de aspecto moderno",¡Más de 35 controles de materiales!, ABM. IMAGESLIDER_RIGHT)
slider. AddSlideImage(".. /images/about7.png", "Advanced easy to implement upload files","Over 35 Material controls!", ABM. IMAGESLIDER_RIGHT)
slider. AddSlideImage(".. /images/about8.png", "Crea tus propios controles con el lienzo","Over 35 Material controls!", ABM. IMAGESLIDER_CENTER)
cont_calendario. Celda(1,1). AddComponent(control deslizante)
cont_calendario. Celda(1,1). AddComponent(control deslizante)
Dim calendario As ABMCalendar
DateTime.DateFormat = "aaaa-MM-dd"
calendario. Initialize(page, "calendario", DateTime.Date(DateTime.Now), 0, "es", ABM. CALENDAR_DEFAULTVIEW_WEEK, "calendario")
DateTime.DateFormat = "dd/MM/aaaa"
calendario. Editable = Verdadero
calendario. IsPrintable = Verdadero
calendario. ChangeEventsEditable(True)
cont_calendario. Celda(1,1). AddComponent(calendario)
' agregue también los componentes al pie de página
ABMShared.ConnectFooterFixed(página)
página. ¡Refrescar ' IMPORTANTE!
' NUEVO, porque usamos ShowLoaderType=ABM. LOADER_TYPE_MANUAL
página. AcabadoCarga 'IMPORTANTE
myToastId = myToastId + 1
página. ShowToast("toast" & myToastId, "toastorange", "ABMaterial" & ABM. Versión & " (" & ABM.versionName & ")!", 5000, False)
página. RestoreNavigationBarPosition
Dim Script As String = $"$('#cont_calendario-slider').find('li').removeClass('active');
$('#cont_calendario-slider').find('.indicator-item').removeClass('active');
$('#cont_calendario-slider').find('.indicators').remove();
$('#cont_calendario-slider').abmslider({full_width: true ,indicators: true ,height: 400 ,transition: 500 ,interval: 6000});" $
page.ws.Eval(Script, Null)
page.ws.Flush
Fin sub[/CÓDIGO]
[/QUOTE]