Programming Tool Box/SIMS_2.iso/code/various/msg/msgform1.txt

Text File | 1995-02-27 | 519 b | 22 lines

Sub InputMsg_Click ()
    Dim text As String

    text = Getinput("You can validate your Input!", "A10", "Start")

    message "This was the value you entered:" + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + text

End Sub

Sub PromptMsg_Click ()
    Dim x As Integer

    x = Prompt("You must use the button to remove this message", 3)
End Sub

Sub TimedMsg_Click ()
    Dim text As String

    message "This message will disappear after a while, or you can click on it, or press any key."
End Sub