[บทเรียน,B4X] การแก้ปัญหาเรื่องกล่องแสดงข้อความ เรียงตามลำดับที่ก่อนหลัง

[Theera]

ขอขอบคุณ Walt61 และSagenut ณ ที่นี่ด้วยครับ

    Dim name As String = "John Doe"
    Dim age As String = "50"
    Wait For (xui.MsgboxAsync(name, "B4X")) Msgbox_Result(ignoredDialogResponse As Int)
    Wait For (xui.MsgboxAsync(age, "B4X")) Msgbox_Result(ignoredDialogResponse As Int)

หรือสามารถเขียนได้อีกวิธีหนึ่ง(Segenut's Code)

Private Sub Button2_Click
    Show(Array As String("Name", "Age", "Sex"))    'Here you can add all the messages to be shown in sequence
End Sub

Private Sub Show (texts() As String)
    For Each Msg As String In texts
        Wait For (xui.MsgboxAsync(Msg, "B4X")) Msgbox_Result(ignoredDialogResponse As Int)
    Next
End Sub