B4A Cuento de la buena pipa. MsgBox2. Dialog.

Con el MsgBox2 podemos presentar una caja con mensaje (como el MsgBox), pero puede tener botones de donde podemos obtener respuestas Positiva, Cancel o Negativa.
Según la respuesta el programa puede realizar un código distinto.

- Bajar: cbp.apk

_________________
- MsgBox2.

El ejemplo expuesto presenta un MsgBox2 en donde el usuario debe elegir entre tres botones:
"Sí", "No se" y "No".

Pulsando en cualquiera de los tres entramos en un bucle infinito, aunque en este caso no es infinito ya que tiene un valor límite de 10 para hacer las pruebas.

La aplicación tiene tres iconos que debemos copiar en la carpeta Files. Además debemos añadirlos al proyecto pulsando la pestaña abajo-derecha Files y luego el botón "Add Files".

_________________
- Librería Dialog.

La aplicación vuelve a realizar el mismo proceso, pero en este caso con la librería Dialog.
Con ella podemos realizar una ventana similar a la de MsgBox2, pero podemos configurar los colores, tipo de letra, etc...

Podemos buscar en internet tipos de fuentes para ver cómo funciona con distintos tipos de letras, escribiremos en un buscador...

android font download

y bajaremos algunas de tipo .ttf para hacer pruebas. Hay que tener en cuenta que todos los tipos de fuentes no funcionan, además muchos tipos viene en versión inglesa y no trae letras acentuadas, signos,... por lo cual estas no saldrán en nuestros mensajes.

Otra cosa que vemos en el código es que los botones los elegimos mediante tres números: -1 -2 y -3
Pero el -2 y el -3 están cambiado en relación a la posición de los botones en la pantalla, es decir:

Botón izquierdo = -1
Botón central = -3
Botón derecho = -2

El código es muy sencillo de entender,

- ¿Quieres que te cuente el Cuento de la Buena Pipa?
- No.
- Yo no digo que "No", yo digo si quieres que te cuente el Cuento de la Buena Pipa.
- Sí.
- Yo no digo que "Sí", yo digo si quieres que te cuente el Cuento de la Buena Pipa,
- .... Hasta el infinito.

Copia y pega estos archivos en la carpeta Files
msgbox21.gif	msgbox22.jpg	msgbox23.png	Atmostsphere.ttf

Aspecto.

Código del programa en B4A.

Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com

' Abril 2014

End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.Title="© Juan A. Villalpando"
     
Dim Respuesta As String
Respuesta = Msgbox2("¿Quieres que te cuente el cuento de la buena pipa?", "El Cuento de la Buena Pipa.", _ 
"Sí", "No se","No", LoadBitmap(File.DirAssets,"msgbox21.gif"))

For n = 1 To 10

If Respuesta = DialogResponse.POSITIVE Then
Respuesta = Msgbox2("Yo no digo que 'Sí', yo digo que si quieres que te cuente el Cuento de la Buena Pipa.", _ 
"El Cuento de la Buena Pipa.", "Sí", "No se","No", LoadBitmap(File.DirAssets,"msgbox21.gif"))
End If

If Respuesta = DialogResponse.CANCEL Then
Respuesta = Msgbox2("Yo no digo que 'No se', yo digo que si quieres que te cuente el Cuento de la Buena Pipa.", _ 
"El Cuento de la Buena Pipa.", "Sí", "No se","No", LoadBitmap(File.DirAssets,"msgbox22.jpg"))
End If

If Respuesta = DialogResponse.NEGATIVE Then
 Respuesta = Msgbox2("Yo no digo que 'No', yo digo que si quieres que te cuente el Cuento de la Buena Pipa.", _ 
"El Cuento de la Buena Pipa.", "Sí", "No se","No", LoadBitmap(File.DirAssets,"msgbox23.png"))
End If

Next


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''' OTRO CÓDIGO ''''''''''''''''''''''''''''''''''''''''''''

Dim fuente As Typeface
fuente = Typeface.LoadFromAssets("atmostsphere.ttf")

Dim dialog As CustomDialog
Dim Label1 As Label
Dim Respuesta As String
Label1.Initialize("Label1")
Label1.Typeface = fuente
Label1.TextSize = 18
Label1.Gravity=Gravity.CENTER
dialog.AddView(Label1, 0dip, 0dip, 90%x, 25%y)

Label1.Text = CRLF & " ¿Quieres que te cuente el cuento de la buena pipa?"
Respuesta = dialog.Show("El Cuento de la Buena Pipa.", "Sí", "No se", "No", LoadBitmap(File.DirAssets, "msgbox21.gif"))

For n=1 To 10
 
    ' Primer botón -1
    If Respuesta = -1 Then 
Label1.Text = CRLF & " Yo no digo que 'Sí', yo digo que si quieres que te cuente el Cuento de la Buena Pipa."
Respuesta = dialog.Show("El Cuento de la Buena Pipa.", "Sí", "No se", "No", LoadBitmap(File.DirAssets, "msgbox21.gif"))    
    End If
    
    ' Tercer botón -2
    If Respuesta = -2 Then 
Label1.Text = CRLF & " Yo no digo que 'No', yo digo que si quieres que te cuente el Cuento de la Buena Pipa."
Respuesta = dialog.Show("El Cuento de la Buena Pipa.", "Sí", "No se", "No", LoadBitmap(File.DirAssets, "msgbox22.jpg"))  
    End If
    
    ' Segundo botón -3
    If Respuesta = -3 Then 
Label1.Text = CRLF & " Yo no digo que 'No se', yo digo que si quieres que te cuente el Cuento de la Buena Pipa."
Respuesta = dialog.Show("El Cuento de la Buena Pipa.", "Sí", "No se", "No", LoadBitmap(File.DirAssets, "msgbox23.png"))  
    End If
    
Next

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

________________________________