mario_fun.frm

一个桌面游戏

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   2805
   ClientLeft      =   4335
   ClientTop       =   3255
   ClientWidth     =   1800
   ClipControls    =   0   'False
   LinkTopic       =   "Form2"
   ScaleHeight     =   2805
   ScaleWidth      =   1800
   Begin VB.PictureBox Pic 
      AutoSize        =   -1  'True
      Height          =   540
      Index           =   7
      Left            =   720
      Picture         =   "mario_fun.frx":0000
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   7
      Top             =   2040
      Width           =   540
   End
   Begin VB.PictureBox Pic 
      AutoSize        =   -1  'True
      Height          =   540
      Index           =   6
      Left            =   720
      Picture         =   "mario_fun.frx":030A
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   6
      Top             =   1440
      Width           =   540
   End
   Begin VB.PictureBox Pic 
      AutoSize        =   -1  'True
      Height          =   540
      Index           =   5
      Left            =   720
      Picture         =   "mario_fun.frx":0614
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   5
      Top             =   840
      Width           =   540
   End
   Begin VB.PictureBox Pic 
      AutoSize        =   -1  'True
      Height          =   540
      Index           =   4
      Left            =   720
      Picture         =   "mario_fun.frx":091E
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   4
      Top             =   240
      Width           =   540
   End
   Begin VB.PictureBox Pic 
      AutoSize        =   -1  'True
      Height          =   540
      Index           =   3
      Left            =   120
      Picture         =   "mario_fun.frx":0C28
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   3
      Top             =   2040
      Width           =   540
   End
   Begin VB.PictureBox Pic 
      AutoSize        =   -1  'True
      Height          =   540
      Index           =   2
      Left            =   120
      Picture         =   "mario_fun.frx":0F32
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   2
      Top             =   1440
      Width           =   540
   End
   Begin VB.PictureBox Pic 
      AutoSize        =   -1  'True
      Height          =   540
      Index           =   1
      Left            =   120
      Picture         =   "mario_fun.frx":123C
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   1
      Top             =   840
      Width           =   540
   End
   Begin VB.PictureBox Pic 
      AutoSize        =   -1  'True
      Height          =   540
      Index           =   0
      Left            =   120
      Picture         =   "mario_fun.frx":1546
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   0
      Top             =   240
      Width           =   540
   End
   Begin VB.Menu A 
      Caption         =   "功能"
      Begin VB.Menu A1 
         Caption         =   "自由活动"
      End
      Begin VB.Menu A2 
         Caption         =   "音效"
         Checked         =   -1  'True
      End
      Begin VB.Menu A6 
         Caption         =   "人物选择"
         Begin VB.Menu A33 
            Caption         =   "a30"
            Index           =   0
         End
         Begin VB.Menu A33 
            Caption         =   "a30"
            Index           =   1
         End
         Begin VB.Menu A33 
            Caption         =   "a30"
            Index           =   2
         End
         Begin VB.Menu A33 
            Caption         =   "a30"
            Index           =   3
         End
         Begin VB.Menu A33 
            Caption         =   "a30"
            Index           =   4
         End
         Begin VB.Menu A33 
            Caption         =   "a30"
            Index           =   5
         End
         Begin VB.Menu A33 
            Caption         =   "a30"
            Index           =   6
         End
         Begin VB.Menu A33 
            Caption         =   "a30"
            Index           =   7
         End
      End
      Begin VB.Menu A4 
         Caption         =   "作者"
      End
      Begin VB.Menu A3 
         Caption         =   "-"
      End
      Begin VB.Menu A5 
         Caption         =   "离开"
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub A1_Click()
A1.Checked = Not A1.Checked
Form1.Pic.Auto = Not Form1.Pic.Auto
End Sub

Private Sub A2_Click()
A2.Checked = Not A2.Checked
Form1.Pic.Sound = Not Form1.Pic.Sound
End Sub

Private Sub A33_Click(Index As Integer)
Form1.Pic.Ini Form1, Form1.P(Index), Form1.P2, 5, 10
End Sub

Private Sub A4_Click()
Copyright.Show
End Sub

Private Sub A5_Click()
Dim I As Integer
For I = Forms.Count - 1 To 0 Step -1
  Unload Forms(I)
Next I
End
End Sub

Private Sub Form_Load()
Dim hMenu As Long
Dim hSubMenu As Long
Dim lngID As Long
Dim I As Integer

    hMenu = GetMenu(Form2.hwnd)
    hSubMenu = GetSubMenu(hMenu, 0)       '