主窗口.frm

不完全版的问道助手

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H0080FF80&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "《问道》助手"
   ClientHeight    =   4365
   ClientLeft      =   150
   ClientTop       =   840
   ClientWidth     =   7095
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4365
   ScaleWidth      =   7095
   StartUpPosition =   3  '窗口缺省
   WhatsThisButton =   -1  'True
   WhatsThisHelp   =   -1  'True
   Begin VB.CommandButton Command1 
      BackColor       =   &H0080FF80&
      Caption         =   "退出"
      Height          =   615
      Left            =   360
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   3600
      Width           =   1215
   End
   Begin VB.Label Label2 
      BackColor       =   &H0080FF80&
      Caption         =   "制作人：魏振楠     QQ：460724734     E-mail:[e-mail]"
      Height          =   615
      Left            =   4680
      TabIndex        =   1
      Top             =   3600
      Width           =   2055
   End
   Begin VB.Image Image1 
      Height          =   2175
      Left            =   360
      Picture         =   "主窗口.frx":0000
      Stretch         =   -1  'True
      Top             =   1320
      Width           =   6375
   End
   Begin VB.Label Label1 
      BackColor       =   &H0080FF80&
      Caption         =   "注：本软件所有素材均载自网络。若侵犯了您的权利，请及时与本人取得联系。"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   3495
      Left            =   600
      TabIndex        =   0
      Top             =   0
      Width           =   6135
   End
   Begin VB.Menu File 
      Caption         =   "文件"
      Begin VB.Menu introduce 
         Caption         =   "游戏介绍"
      End
      Begin VB.Menu premise 
         Caption         =   "游戏前提"
      End
      Begin VB.Menu guide 
         Caption         =   "操作指南"
      End
      Begin VB.Menu role 
         Caption         =   "门派角色"
      End
      Begin VB.Menu newplayer 
         Caption         =   "新手攻略"
      End
      Begin VB.Menu systemplay 
         Caption         =   "系统玩法"
      End
      Begin VB.Menu information 
         Caption         =   "常用资料"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu share 
      Caption         =   "经验共享"
      Begin VB.Menu jiadian 
         Caption         =   "新手加点"
         Begin VB.Menu gold 
            Caption         =   "金系"
            Begin VB.Menu lijin 
               Caption         =   "力金"
            End
            Begin VB.Menu fajin 
               Caption         =   "法金"
            End
         End
         Begin VB.Menu wood 
            Caption         =   "木系"
            Begin VB.Menu limu 
               Caption         =   "力木"
            End
            Begin VB.Menu ti 
               Caption         =   "体木"
            End
         End
         Begin VB.Menu fire 
            Caption         =   "火系"
            Begin VB.Menu lihuo 
               Caption         =   "力火"
            End
            Begin VB.Menu fahuo 
               Caption         =   "法火"
            End
         End
         Begin VB.Menu water 
            Caption         =   "水系"
            Begin VB.Menu lishui 
               Caption         =   "力水"
            End
            Begin VB.Menu fashui 
               Caption         =   "法水"
            End
         End
         Begin VB.Menu land 
            Caption         =   "土系"
            Begin VB.Menu litu 
               Caption         =   "力土"
            End
            Begin VB.Menu fatu 
               Caption         =   "法土"
            End
         End
         Begin VB.Menu feng 
            Caption         =   "封手"
            Begin VB.Menu g 
               Caption         =   "金"
            End
            Begin VB.Menu m 
               Caption         =   "木"
            End
            Begin VB.Menu shui 
               Caption         =   "水"
            End
            Begin VB.Menu huo 
               Caption         =   "火"
            End
            Begin VB.Menu tu 
               Caption         =   "土"
            End
         End
      End
      Begin VB.Menu pc 
         Caption         =   "宠物选择"
         Begin VB.Menu fashi 
            Caption         =   "法师"
         End
         Begin VB.Menu zhanshi 
            Caption         =   "战士"
         End
         Begin VB.Menu fengshou 
            Caption         =   "封手"
         End
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
End
End Sub

Private Sub Exit_Click()
End
End Sub

Private Sub introduce_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub premise_Click()
Form3.Show
Form1.Hide
End Sub