home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / various / msg / msg.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-26  |  1.6 KB  |  52 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   5565
  8.    Height          =   4545
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4020
  12.    ScaleWidth      =   5565
  13.    Top             =   1020
  14.    Width           =   5685
  15.    Begin CommandButton InputMsg 
  16.       Caption         =   "Show Input Message"
  17.       Height          =   615
  18.       Left            =   1440
  19.       TabIndex        =   2
  20.       Top             =   2520
  21.       Width           =   3375
  22.    End
  23.    Begin CommandButton PromptMsg 
  24.       Caption         =   "Show message requiring User Action"
  25.       Height          =   615
  26.       Left            =   1440
  27.       TabIndex        =   1
  28.       Top             =   1560
  29.       Width           =   3375
  30.    End
  31.    Begin CommandButton TimedMsg 
  32.       Caption         =   "Show timed message"
  33.       Height          =   615
  34.       Left            =   1440
  35.       TabIndex        =   0
  36.       Top             =   600
  37.       Width           =   3375
  38.    End
  39. Sub InputMsg_Click ()
  40.     Dim text As String
  41.     text = Getinput("You can validate your Input!", "A10", "Start")
  42.     message "This was the value you entered:" + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + text
  43. End Sub
  44. Sub PromptMsg_Click ()
  45.     Dim x As Integer
  46.     x = Prompt("You must use the button to remove this message", 3)
  47. End Sub
  48. Sub TimedMsg_Click ()
  49.     Dim text As String
  50.     message "This message will disappear after a while, or you can click on it, or press any key."
  51. End Sub
  52.