frmmap1.frm

一个RPG游戏源代码

VERSION 5.00
Begin VB.Form frmmap1 
   BackColor       =   &H80000007&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   11520
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   15060
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MousePointer    =   99  'Custom
   ScaleHeight     =   768
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   1004
   ShowInTaskbar   =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.PictureBox picbutton 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   375
      Index           =   1
      Left            =   1560
      Picture         =   "frmmap1.frx":0000
      ScaleHeight     =   375
      ScaleWidth      =   1245
      TabIndex        =   10
      Top             =   120
      Width           =   1245
   End
   Begin VB.PictureBox picbutton 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   375
      Index           =   0
      Left            =   120
      Picture         =   "frmmap1.frx":18DE
      ScaleHeight     =   375
      ScaleWidth      =   1245
      TabIndex        =   9
      Top             =   120
      Width           =   1245
   End
   Begin VB.TextBox txtwalk 
      Height          =   375
      Left            =   4320
      TabIndex        =   8
      Text            =   "l"
      Top             =   240
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.PictureBox picbar3 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1350
      Left            =   -9000
      Picture         =   "frmmap1.frx":31BC
      ScaleHeight     =   90
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   614
      TabIndex        =   5
      Top             =   7080
      Visible         =   0   'False
      Width           =   9210
      Begin VB.Label lbltalk2 
         BackStyle       =   0  'Transparent
         Caption         =   "对话"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000E&
         Height          =   852
         Left            =   1068
         TabIndex        =   6
         Top             =   228
         Width           =   6012
      End
      Begin VB.Label lbltalk1 
         BackStyle       =   0  'Transparent
         Caption         =   "对话"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   852
         Left            =   1080
         TabIndex        =   7
         Top             =   240
         Width           =   6012
      End
   End
   Begin VB.PictureBox picbar1 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   4125
      Left            =   -4920
      Picture         =   "frmmap1.frx":697F
      ScaleHeight     =   275
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   339
      TabIndex        =   1
      Top             =   2880
      Visible         =   0   'False
      Width           =   5085
      Begin VB.PictureBox picbar2 
         AutoSize        =   -1  'True
         BorderStyle     =   0  'None
         Height          =   3405
         Left            =   312
         Picture         =   "frmmap1.frx":B52A
         ScaleHeight     =   227
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   285
         TabIndex        =   2
         Top             =   288
         Visible         =   0   'False
         Width           =   4275
         Begin VB.Label text2 
            BackStyle       =   0  'Transparent
            Caption         =   "你好我叫李浩然"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H8000000E&
            Height          =   3612
            Left            =   108
            TabIndex        =   3
            Top             =   108
            Width           =   3252
         End
         Begin VB.Label text1 
            BackStyle       =   0  'Transparent
            Caption         =   "你好我叫李浩然"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   3612
            Left            =   120
            TabIndex        =   4
            Top             =   120
            Width           =   3252
         End
      End
   End
   Begin VB.PictureBox picmap 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   11520
      Left            =   120
      Picture         =   "frmmap1.frx":E959
      ScaleHeight     =   768
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   1024
      TabIndex        =   0
      Top             =   600
      Width           =   15360
      Begin VB.Timer Timer1 
         Enabled         =   0   'False
         Interval        =   1
         Left            =   3720
         Top             =   240
      End
      Begin VB.Image Image1 
         Height          =   495
         Index           =   2
         Left            =   6240
         Top             =   2280
         Width           =   135
      End
      Begin VB.Image imgme 
         Height          =   720
         Left            =   5280
         Picture         =   "frmmap1.frx":24E99B
         Top             =   3600
         Width           =   720
      End
      Begin VB.Image imgnpc 
         Height          =   720
         Index           =   3
         Left            =   2640
         Picture         =   "frmmap1.frx":24F865
         Top             =   4560
         Width           =   720
      End
      Begin VB.Image imgnpc 
         Height          =   720
         Index           =   2
         Left            =   1440
         Picture         =   "frmmap1.frx":25072F
         Top             =   2520
         Width           =   720
      End
      Begin VB.Image imgnpc 
         Height          =   720
         Index           =   1
         Left            =   360
         Picture         =   "frmmap1.frx":2523F9
         Top             =   2520
         Width           =   720
      End
      Begin VB.Image Image1 
         Height          =   255
         Index           =   1
         Left            =   0
         Top             =   2280
         Width           =   1695
      End
      Begin VB.Image imgnpc 
         Height          =   720
         Index           =   0
         Left            =   3120
         Picture         =   "frmmap1.frx":2540C3
         Top             =   2520
         Width           =   720
      End
      Begin VB.Image Image1 
         Height          =   1695
         Index           =   0
         Left            =   1680
         Top             =   840
         Width           =   1935
      End
   End
   Begin VB.Image imgmove3 
      Height          =   720
      Left            =   1320
      Picture         =   "frmmap1.frx":254F8D
      Top             =   0
      Visible         =   0   'False
      Width           =   720
   End
   Begin VB.Image imgmove1 
      Height          =   720
      Left            =   0
      Picture         =   "frmmap1.frx":255E57
      Top             =   0
      Visible         =   0   'False
      Width           =   720
   End
   Begin VB.Image imgmove2 
      Height          =   720
      Left            =   600