Spanish [SOLUCIONADO] Dialog personalizado con mas opciones

[RAFA BRAVO]

Me gustaría tener un diálogo personalizado al que poderle añadir una opción más. Si por ejemplo creo este dialogo:

    dialog.VisibleAnimationDuration = 1000
                Dim intDarkColor As Int = 0xFF000061
                Dim intLightColor As Int = 0XFFE4E4E4
                dialog.BackgroundColor = intLightColor
                dialog.BorderCornersRadius = 30
                dialog.BorderWidth = 6
                dialog.TitleBarColor = intDarkColor
                dialog.BodyTextColor = intDarkColor
                dialog.BorderColor = intDarkColor
                dialog.ButtonsColor = intDarkColor
                dialog.ButtonsTextColor = intLightColor
                dialog.BlurBackground = True
                dialog.Title = "ATENCIÓN"
                Dim res As Object = dialog.Show("QUE VIN DE LOS ULTIMOS CAMBIOS DE BOMBAS DESEAS GUARDAR?","LOS DOS","PRIMERO","CANCELAR")
                Esperar (res) Completar (resultado como Int)

Tengo el titulo del dialogo y tres opciones a tomar: "LOS DOS","PRIMERO","CANCELAR", me gustaría generar una cuarta opción, no encuentro ningún ejemplo. alguien puede ayudarme. Gracias

 

[josejad]

Hola Rafa

[B4x] B4xDialog4Button

I needed a dialog with 4 options and rather than rewrite the b4xDialog class I opted for a different approach. This class adds a panel to an existing B4xDialog and adds 4 Buttons. quite simple really. Some code was borrowed from the B4xDialog B4xLib so I could ensure compatibility across...

www.b4x.com

 

[Piluso]

De ahí podes sacar algunas ideas, si no lo revisaste ya.


Saludos

 

[RAFA BRAVO]

Si Piluso, ese tutorial ya lo he visto y alguna idea tengo de el.
Gracias Jose eso era lo que necesitaba, funciona bien. Gracias