home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Learn_Basi1768047102004.psc / tutorials / frm_message.frm < prev    next >
Text File  |  2004-07-10  |  12KB  |  352 lines
  1. VERSION 5.00
  2. Begin VB.Form Form10 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Message Box"
  5.    ClientHeight    =   4755
  6.    ClientLeft      =   45
  7.    ClientTop       =   315
  8.    ClientWidth     =   8760
  9.    LinkTopic       =   "Form10"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   4755
  13.    ScaleWidth      =   8760
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command2 
  17.       Caption         =   "Exit"
  18.       BeginProperty Font 
  19.          Name            =   "MS Sans Serif"
  20.          Size            =   9.75
  21.          Charset         =   0
  22.          Weight          =   400
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   855
  28.       Left            =   120
  29.       Picture         =   "frm_message.frx":0000
  30.       Style           =   1  'Graphical
  31.       TabIndex        =   17
  32.       Top             =   3240
  33.       Width           =   5415
  34.    End
  35.    Begin VB.CommandButton Command1 
  36.       Caption         =   "Click For The Button Effect"
  37.       BeginProperty Font 
  38.          Name            =   "MS Sans Serif"
  39.          Size            =   9.75
  40.          Charset         =   0
  41.          Weight          =   400
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       Height          =   615
  47.       Left            =   120
  48.       TabIndex        =   16
  49.       Top             =   2520
  50.       Width           =   5415
  51.    End
  52.    Begin VB.Frame Frame2 
  53.       Caption         =   "Choose For Buttons"
  54.       BeginProperty Font 
  55.          Name            =   "MS Sans Serif"
  56.          Size            =   9.75
  57.          Charset         =   0
  58.          Weight          =   700
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       ForeColor       =   &H00FF0000&
  64.       Height          =   2295
  65.       Left            =   6120
  66.       TabIndex        =   10
  67.       Top             =   2400
  68.       Width           =   2535
  69.       Begin VB.OptionButton Option9 
  70.          Caption         =   "Abort Rety Ignore"
  71.          BeginProperty Font 
  72.             Name            =   "MS Sans Serif"
  73.             Size            =   9.75
  74.             Charset         =   0
  75.             Weight          =   400
  76.             Underline       =   0   'False
  77.             Italic          =   0   'False
  78.             Strikethrough   =   0   'False
  79.          EndProperty
  80.          Height          =   255
  81.          Left            =   240
  82.          TabIndex        =   15
  83.          Top             =   1800
  84.          Width           =   2055
  85.       End
  86.       Begin VB.OptionButton Option8 
  87.          Caption         =   "Yes No Cancel "
  88.          BeginProperty Font 
  89.             Name            =   "MS Sans Serif"
  90.             Size            =   9.75
  91.             Charset         =   0
  92.             Weight          =   400
  93.             Underline       =   0   'False
  94.             Italic          =   0   'False
  95.             Strikethrough   =   0   'False
  96.          EndProperty
  97.          Height          =   255
  98.          Left            =   240
  99.          TabIndex        =   14
  100.          Top             =   1440
  101.          Width           =   1695
  102.       End
  103.       Begin VB.OptionButton Option7 
  104.          Caption         =   "Yes No "
  105.          BeginProperty Font 
  106.             Name            =   "MS Sans Serif"
  107.             Size            =   9.75
  108.             Charset         =   0
  109.             Weight          =   400
  110.             Underline       =   0   'False
  111.             Italic          =   0   'False
  112.             Strikethrough   =   0   'False
  113.          EndProperty
  114.          Height          =   255
  115.          Left            =   240
  116.          TabIndex        =   13
  117.          Top             =   1080
  118.          Width           =   1455
  119.       End
  120.       Begin VB.OptionButton Option6 
  121.          Caption         =   "OK Cancel  "
  122.          Height          =   255
  123.          Left            =   240
  124.          TabIndex        =   12
  125.          Top             =   720
  126.          Width           =   1455
  127.       End
  128.       Begin VB.OptionButton Option5 
  129.          Caption         =   "OK "
  130.          Height          =   255
  131.          Left            =   240
  132.          TabIndex        =   11
  133.          Top             =   360
  134.          Width           =   735
  135.       End
  136.    End
  137.    Begin VB.CommandButton Command3 
  138.       Caption         =   "Click For The Style Effect"
  139.       BeginProperty Font 
  140.          Name            =   "MS Sans Serif"
  141.          Size            =   9.75
  142.          Charset         =   0
  143.          Weight          =   400
  144.          Underline       =   0   'False
  145.          Italic          =   0   'False
  146.          Strikethrough   =   0   'False
  147.       EndProperty
  148.       Height          =   615
  149.       Left            =   120
  150.       TabIndex        =   7
  151.       Top             =   1800
  152.       Width           =   5415
  153.    End
  154.    Begin VB.Frame Frame1 
  155.       Caption         =   "Choose Style"
  156.       BeginProperty Font 
  157.          Name            =   "MS Sans Serif"
  158.          Size            =   9.75
  159.          Charset         =   0
  160.          Weight          =   700
  161.          Underline       =   0   'False
  162.          Italic          =   0   'False
  163.          Strikethrough   =   0   'False
  164.       EndProperty
  165.       ForeColor       =   &H00FF0000&
  166.       Height          =   2055
  167.       Left            =   6120
  168.       TabIndex        =   2
  169.       Top             =   240
  170.       Width           =   2535
  171.       Begin VB.OptionButton Option4 
  172.          Caption         =   "Critical"
  173.          BeginProperty Font 
  174.             Name            =   "MS Sans Serif"
  175.             Size            =   9.75
  176.             Charset         =   0
  177.             Weight          =   400
  178.             Underline       =   0   'False
  179.             Italic          =   0   'False
  180.             Strikethrough   =   0   'False
  181.          EndProperty
  182.          Height          =   375
  183.          Left            =   240
  184.          TabIndex        =   6
  185.          Top             =   1440
  186.          Width           =   1095
  187.       End
  188.       Begin VB.OptionButton Option3 
  189.          Caption         =   "Information"
  190.          BeginProperty Font 
  191.             Name            =   "MS Sans Serif"
  192.             Size            =   9.75
  193.             Charset         =   0
  194.             Weight          =   400
  195.             Underline       =   0   'False
  196.             Italic          =   0   'False
  197.             Strikethrough   =   0   'False
  198.          EndProperty
  199.          Height          =   375
  200.          Left            =   240
  201.          TabIndex        =   5
  202.          Top             =   1080
  203.          Width           =   1575
  204.       End
  205.       Begin VB.OptionButton Option2 
  206.          Caption         =   "Question"
  207.          BeginProperty Font 
  208.             Name            =   "MS Sans Serif"
  209.             Size            =   9.75
  210.             Charset         =   0
  211.             Weight          =   400
  212.             Underline       =   0   'False
  213.             Italic          =   0   'False
  214.             Strikethrough   =   0   'False
  215.          EndProperty
  216.          Height          =   375
  217.          Left            =   240
  218.          TabIndex        =   4
  219.          Top             =   720
  220.          Width           =   1575
  221.       End
  222.       Begin VB.OptionButton Option1 
  223.          Caption         =   "Exclamation"
  224.          BeginProperty Font 
  225.             Name            =   "MS Sans Serif"
  226.             Size            =   9.75
  227.             Charset         =   0
  228.             Weight          =   400
  229.             Underline       =   0   'False
  230.             Italic          =   0   'False
  231.             Strikethrough   =   0   'False
  232.          EndProperty
  233.          Height          =   375
  234.          Left            =   240
  235.          TabIndex        =   3
  236.          Top             =   360
  237.          Width           =   1575
  238.       End
  239.    End
  240.    Begin VB.TextBox Text2 
  241.       Alignment       =   2  'Center
  242.       BeginProperty Font 
  243.          Name            =   "MS Sans Serif"
  244.          Size            =   9.75
  245.          Charset         =   0
  246.          Weight          =   400
  247.          Underline       =   0   'False
  248.          Italic          =   0   'False
  249.          Strikethrough   =   0   'False
  250.       EndProperty
  251.       Height          =   735
  252.       Left            =   3120
  253.       TabIndex        =   1
  254.       Text            =   " "
  255.       Top             =   240
  256.       Width           =   2895
  257.    End
  258.    Begin VB.TextBox Text1 
  259.       Alignment       =   2  'Center
  260.       BeginProperty Font 
  261.          Name            =   "MS Sans Serif"
  262.          Size            =   9.75
  263.          Charset         =   0
  264.          Weight          =   400
  265.          Underline       =   0   'False
  266.          Italic          =   0   'False
  267.          Strikethrough   =   0   'False
  268.       EndProperty
  269.       Height          =   735
  270.       Left            =   120
  271.       TabIndex        =   0
  272.       Text            =   " "
  273.       Top             =   240
  274.       Width           =   2655
  275.    End
  276.    Begin VB.Label Label2 
  277.       Alignment       =   2  'Center
  278.       Caption         =   "Enter Text for Prompt"
  279.       BeginProperty Font 
  280.          Name            =   "MS Sans Serif"
  281.          Size            =   12
  282.          Charset         =   0
  283.          Weight          =   400
  284.          Underline       =   0   'False
  285.          Italic          =   0   'False
  286.          Strikethrough   =   0   'False
  287.       EndProperty
  288.       Height          =   375
  289.       Left            =   3120
  290.       TabIndex        =   9
  291.       Top             =   1200
  292.       Width           =   2655
  293.    End
  294.    Begin VB.Label Label1 
  295.       Alignment       =   2  'Center
  296.       Caption         =   "Enter For Title"
  297.       BeginProperty Font 
  298.          Name            =   "MS Sans Serif"
  299.          Size            =   12
  300.          Charset         =   0
  301.          Weight          =   400
  302.          Underline       =   0   'False
  303.          Italic          =   0   'False
  304.          Strikethrough   =   0   'False
  305.       EndProperty
  306.       Height          =   375
  307.       Left            =   480
  308.       TabIndex        =   8
  309.       Top             =   1200
  310.       Width           =   2415
  311.    End
  312. End
  313. Attribute VB_Name = "Form10"
  314. Attribute VB_GlobalNameSpace = False
  315. Attribute VB_Creatable = False
  316. Attribute VB_PredeclaredId = True
  317. Attribute VB_Exposed = False
  318. Dim strmsg As String
  319. Private Sub Command1_Click()
  320. If Option5.Value = True Then
  321.     strmsg = MsgBox(Text2.Text, vbOKOnly, Text1.Text)
  322. ElseIf Option6.Value = True Then
  323.     strmsg = MsgBox(Text2.Text, vbOKCancel, Text1.Text)
  324. ElseIf Option7.Value = True Then
  325.     strmsg = MsgBox(Text2.Text, vbYesNo, Text1.Text)
  326. ElseIf Option8.Value = True Then
  327.     strmsg = MsgBox(Text2.Text, vbYesNoCancel, Text1.Text)
  328. ElseIf Option9.Value = True Then
  329.     strmsg = MsgBox(Text2.Text, vbAbortRetryIgnore, Text1.Text)
  330. End If
  331. End Sub
  332.  
  333. Private Sub Command2_Click()
  334. Unload Me
  335. Form2.Show
  336. End Sub
  337.  
  338. Private Sub Command3_Click()
  339.  
  340. If Option1.Value = True Then
  341. strmsg = MsgBox(Text2.Text, vbExclamation, Text1.Text)
  342. ElseIf Option2.Value = True Then
  343.     strmsg = MsgBox(Text2.Text, vbQuestion, Text1.Text)
  344. ElseIf Option3.Value = True Then
  345.     strmsg = MsgBox(Text2.Text, vbInformation, Text1.Text)
  346. ElseIf Option4.Value = True Then
  347.     strmsg = MsgBox(Text2.Text, vbCritical, Text1.Text)
  348. End If
  349.  
  350. End Sub
  351.  
  352.