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
|