home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / __v2_A__(A543672102002.psc / frmMain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-30  |  2.1 KB  |  68 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Tile Examples"
  5.    ClientHeight    =   1380
  6.    ClientLeft      =   45
  7.    ClientTop       =   300
  8.    ClientWidth     =   2490
  9.    Icon            =   "frmMain.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1380
  14.    ScaleWidth      =   2490
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton cmdUnload 
  17.       Caption         =   "Quit"
  18.       Height          =   375
  19.       Left            =   75
  20.       TabIndex        =   2
  21.       Top             =   975
  22.       Width           =   2295
  23.    End
  24.    Begin VB.CommandButton cmdPathFinding 
  25.       Caption         =   "Pathfinding"
  26.       Height          =   375
  27.       Left            =   75
  28.       TabIndex        =   1
  29.       Top             =   525
  30.       Width           =   2295
  31.    End
  32.    Begin VB.CommandButton cmdDraw 
  33.       Caption         =   "Fast draw tile map"
  34.       Height          =   375
  35.       Left            =   75
  36.       TabIndex        =   0
  37.       Top             =   75
  38.       Width           =   2295
  39.    End
  40. Attribute VB_Name = "frmMain"
  41. Attribute VB_GlobalNameSpace = False
  42. Attribute VB_Creatable = False
  43. Attribute VB_PredeclaredId = True
  44. Attribute VB_Exposed = False
  45. Option Explicit
  46. '*******************************************************************************************
  47. 'Tile map examples
  48. '*******************************************************************************************
  49. ' Julien Lecomte
  50. ' webmaster@amanitamuscaria.org
  51. ' http://www.amanitamuscaria.org
  52. ' Feel free to use, abuse or distribute. (USUS, FRUCTUS, & ABUSUS)
  53. ' If you improve it, tell me !
  54. ' Don't take credit for what you didn't create. Thanks.
  55. '*******************************************************************************************
  56. Private Sub cmdDraw_Click()
  57.     frmDraw.Show vbModal, Me
  58. End Sub
  59. Private Sub cmdPathFinding_Click()
  60.     frmPathfinding.Show vbModal, Me
  61. End Sub
  62. Private Sub cmdUnload_Click()
  63.     Unload Me
  64. End Sub
  65. Private Sub Form_Load()
  66.     Randomize
  67. End Sub
  68.