VERSION 5.00
Begin VB.Form FrmGame 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "精彩比赛"
   ClientHeight    =   2700
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3030
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2700
   ScaleWidth      =   3030
   StartUpPosition =   2  '屏幕中心
   Begin VB.OptionButton OptGame 
      Caption         =   "排球"
      ForeColor       =   &H00000000&
      Height          =   255
      Index           =   2
      Left            =   2160
      TabIndex        =   6
      Top             =   2280
      Width           =   855
   End
   Begin VB.OptionButton OptGame 
      Caption         =   "羽毛球"
      ForeColor       =   &H00000000&
      Height          =   255
      Index           =   1
      Left            =   1080
      TabIndex        =   5
      Top             =   2280
      Width           =   855
   End
   Begin VB.OptionButton OptGame 
      Caption         =   "体操"
      ForeColor       =   &H00000000&
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   4
      Top             =   2280
      Width           =   855
   End
   Begin VB.OptionButton OptTianjing 
      Caption         =   "田径"
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   2160
      TabIndex        =   3
      Top             =   1800
      Width           =   975
   End
   Begin VB.OptionButton OptPingpang 
      Caption         =   "乒乓球"
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   1080
      TabIndex        =   2
      Top             =   1800
      Width           =   975
   End
   Begin VB.OptionButton OptJuzhong 
      Caption         =   "举重"
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   1800
      Width           =   855
   End
   Begin VB.Image ImgGame 
      BorderStyle     =   1  'Fixed Single
      Height          =   1455
      Left            =   1320
      Stretch         =   -1  'True
      Top             =   240
      Width           =   1455
   End
   Begin VB.Label LblGame 
      Caption         =   "精彩比赛"
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   855
   End
End
Attribute VB_Name = "FrmGame"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  ImgGame.Picture = LoadPicture() '使图像框不显示任何图片
  OptJuzhong.Value = False        '使单选按钮“举重”不被选中
  OptPingpang.Value = False       '使单选按钮“乒乓球”不被选中
  OptTianjing.Value = False       '使单选按钮“田径”不被选中
  OptGame(0).Value = False
  OptGame(1).Value = False
  OptGame(2).Value = False
End Sub

Private Sub OptGame_Click(Index As Integer)
  Select Case Index
     Case 0
       ImgGame.Picture = LoadPicture(App.Path & "/第一单元/精彩比赛/体操.gif")
     Case 1
       ImgGame.Picture = LoadPicture(App.Path & "/第一单元/精彩比赛/羽毛球.gif")
     Case 2
       ImgGame.Picture = LoadPicture(App.Path & "/第一单元/精彩比赛/排球.gif")
  End Select
End Sub

Private Sub OptJuzhong_Click()
  ImgGame.Picture = LoadPicture(App.Path & "/第一单元/精彩比赛/举重.gif")
End Sub

Private Sub OptPingpang_Click()
  ImgGame.Picture = LoadPicture(App.Path & "/第一单元/精彩比赛/乒乓球.gif")
End Sub

Private Sub OptTianjing_Click()
  ImgGame.Picture = LoadPicture(App.Path & "/第一单元/精彩比赛/田径.gif")
End Sub
Private Sub Form_Unload(Cancel As Integer)
   Unload Me
   Frmsys.Show
End Sub

