home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Map_Scape20401412312006.psc / frmMap.frm < prev    next >
Text File  |  2006-12-27  |  2KB  |  98 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMap 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "MapScape Unregistered Version:"
  6.    ClientHeight    =   7050
  7.    ClientLeft      =   150
  8.    ClientTop       =   540
  9.    ClientWidth     =   8625
  10.    ClipControls    =   0   'False
  11.    Icon            =   "frmMap.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    MouseIcon       =   "frmMap.frx":0CCA
  16.    MousePointer    =   99  'Custom
  17.    NegotiateMenus  =   0   'False
  18.    Palette         =   "frmMap.frx":1994
  19.    ScaleHeight     =   7050
  20.    ScaleWidth      =   8625
  21.    StartUpPosition =   1  'CenterOwner
  22.    Begin VB.Image imgMap 
  23.       Height          =   53760
  24.       Left            =   -32640
  25.       MouseIcon       =   "frmMap.frx":1D99
  26.       MousePointer    =   99  'Custom
  27.       Picture         =   "frmMap.frx":2A63
  28.       Top             =   -23400
  29.       Width           =   59520
  30.    End
  31.    Begin VB.Menu mnuFile 
  32.       Caption         =   "&File"
  33.       Begin VB.Menu mnuExit 
  34.          Caption         =   "Exit"
  35.       End
  36.    End
  37.    Begin VB.Menu pmnuHelp 
  38.       Caption         =   "&Help"
  39.    End
  40. End
  41. Attribute VB_Name = "frmMap"
  42. Attribute VB_GlobalNameSpace = False
  43. Attribute VB_Creatable = False
  44. Attribute VB_PredeclaredId = True
  45. Attribute VB_Exposed = False
  46.     Dim StartX As Long, StartY As Long
  47.  
  48. Private Sub Form_KeyPress(KeyAscii As Integer)
  49. If KeyAscii = 100 Then
  50. imgMap.Left = imgMap.Left - 250
  51. Else
  52. If KeyAscii = 115 Then
  53. imgMap.Top = imgMap.Top - 250
  54. Else
  55. If KeyAscii = 97 Then
  56. imgMap.Left = imgMap.Left + 250
  57. Else
  58. If KeyAscii = 119 Then
  59. imgMap.Top = imgMap.Top + 250
  60. Else
  61. End If
  62. End If
  63. End If
  64. End If
  65. End Sub
  66.  
  67.  
  68.  
  69. Private Sub Form_Load()
  70. Me.Caption = "MapScape Unregistered V" & " " & App.Major & "." & App.Minor
  71. End Sub
  72.  
  73. Private Sub Form_Terminate()
  74. Unload frmMap
  75. Unload frmSplash
  76. Unload frmHelp
  77. End Sub
  78.  
  79. Private Sub Form_Unload(Cancel As Integer)
  80. Unload frmMap
  81. Unload frmSplash
  82. Unload frmHelp
  83. End Sub
  84.  
  85. Private Sub imgMap_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  86.  ' Leaves the object
  87.  
  88.  
  89. End Sub
  90.  
  91. Private Sub mnuExit_Click()
  92. Unload Me
  93. End Sub
  94.  
  95. Private Sub pmnuHelp_Click()
  96. Show frmHelp
  97. End Sub
  98.