home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Puzzle2082789102007.psc / Mess.frm < prev    next >
Text File  |  2007-09-09  |  5KB  |  127 lines
  1. VERSION 5.00
  2. Begin VB.Form Mess 
  3.    Caption         =   "         Congratulations!"
  4.    ClientHeight    =   1710
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   4200
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   114
  12.    ScaleMode       =   3  'Pixel
  13.    ScaleWidth      =   280
  14.    Begin VB.CommandButton cmdMess 
  15.       Caption         =   "Cancel"
  16.       BeginProperty Font 
  17.          Name            =   "Times New Roman"
  18.          Size            =   9.75
  19.          Charset         =   0
  20.          Weight          =   400
  21.          Underline       =   0   'False
  22.          Italic          =   0   'False
  23.          Strikethrough   =   0   'False
  24.       EndProperty
  25.       Height          =   375
  26.       Index           =   2
  27.       Left            =   2783
  28.       TabIndex        =   3
  29.       Top             =   1200
  30.       Width           =   1125
  31.    End
  32.    Begin VB.CommandButton cmdMess 
  33.       Caption         =   "No"
  34.       BeginProperty Font 
  35.          Name            =   "Times New Roman"
  36.          Size            =   9.75
  37.          Charset         =   0
  38.          Weight          =   400
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   375
  44.       Index           =   1
  45.       Left            =   1538
  46.       TabIndex        =   2
  47.       Top             =   1200
  48.       Width           =   1125
  49.    End
  50.    Begin VB.CommandButton cmdMess 
  51.       Caption         =   "Yes"
  52.       BeginProperty Font 
  53.          Name            =   "Times New Roman"
  54.          Size            =   9.75
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   375
  62.       Index           =   0
  63.       Left            =   293
  64.       TabIndex        =   1
  65.       Top             =   1200
  66.       Width           =   1125
  67.    End
  68.    Begin VB.Label lblMess 
  69.       Alignment       =   2  'Center
  70.       BeginProperty Font 
  71.          Name            =   "Times New Roman"
  72.          Size            =   9.75
  73.          Charset         =   0
  74.          Weight          =   400
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       Height          =   675
  80.       Left            =   323
  81.       TabIndex        =   0
  82.       Top             =   240
  83.       Width           =   3555
  84.    End
  85. End
  86. Attribute VB_Name = "Mess"
  87. Attribute VB_GlobalNameSpace = False
  88. Attribute VB_Creatable = False
  89. Attribute VB_PredeclaredId = True
  90. Attribute VB_Exposed = False
  91. '
  92. '   *************************************************************************
  93. '   *************************************************************************
  94. '   ****                                                                 ****
  95. '   ****    Mess                                                         ****
  96. '   ****                                                                 ****
  97. '   ****    Written by:    Randy Giese    (2007/09/05)                   ****
  98. '   ****                                                                 ****
  99. '   ****    This is my home-made dime store version of a Message Box.    ****
  100. '   ****    It was written as a one-time shot, so I did not              ****
  101. '   ****    incorporate any options or graphics.  My only purpose in     ****
  102. '   ****    creating it was so I could display my message in the         ****
  103. '   ****    Upper Left-Hand corner of the screen.                        ****
  104. '   ****                                                                 ****
  105. '   *************************************************************************
  106. '   *************************************************************************
  107. '
  108. '   RandyGrams Comments - Left Align the above comments.
  109.  
  110. Option Explicit
  111.  
  112. Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  113.  
  114. Private Sub cmdMess_Click(Index As Integer)
  115.  
  116.     lngMsgResp = Index
  117.     Unload Me
  118.  
  119. End Sub
  120.  
  121. Private Sub Form_Load()
  122.  
  123.     SetCursorPos cmdMess(0).Left + (cmdMess(0).Width * 3 \ 4), cmdMess(0).Top + (cmdMess(0).Height \ 2) + 30
  124.     lblMess.Caption = "You've successfully solved the Puzzle!" & vbNewLine & vbNewLine & "Would you like to try a different Puzzle size?"
  125.  
  126. End Sub
  127.