VERSION 5.00
Begin VB.Form FrmStar 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "明星档案"
   ClientHeight    =   4710
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5610
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4710
   ScaleWidth      =   5610
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame FraIfo 
      Caption         =   "基本信息"
      Height          =   1455
      Left            =   240
      TabIndex        =   3
      Top             =   1680
      Width           =   2775
      Begin VB.Image ImgCountry 
         BorderStyle     =   1  'Fixed Single
         Height          =   495
         Left            =   1800
         Stretch         =   -1  'True
         Top             =   240
         Width           =   735
      End
      Begin VB.Label LblCountry1 
         Caption         =   "国籍"
         Height          =   255
         Left            =   240
         TabIndex        =   9
         Top             =   360
         Width           =   495
      End
      Begin VB.Label LblSex2 
         Height          =   255
         Left            =   840
         TabIndex        =   8
         Top             =   720
         Width           =   735
      End
      Begin VB.Label LblSex1 
         Caption         =   "性别"
         Height          =   255
         Left            =   240
         TabIndex        =   7
         Top             =   720
         Width           =   735
      End
      Begin VB.Label LblCountry2 
         Height          =   375
         Left            =   840
         TabIndex        =   6
         Top             =   360
         Width           =   855
      End
      Begin VB.Label LblProgram1 
         Caption         =   "比赛项目"
         Height          =   255
         Left            =   240
         TabIndex        =   5
         Top             =   1080
         Width           =   735
      End
      Begin VB.Label LblProgram2 
         Height          =   255
         Left            =   1200
         TabIndex        =   4
         Top             =   1080
         Width           =   1335
      End
   End
   Begin VB.ComboBox CboName 
      Height          =   300
      Left            =   240
      TabIndex        =   0
      Text            =   "奥运明星"
      Top             =   1200
      Width           =   2295
   End
   Begin VB.Image ImgStar 
      BorderStyle     =   1  'Fixed Single
      Height          =   2295
      Left            =   3240
      Stretch         =   -1  'True
      Top             =   840
      Width           =   2055
   End
   Begin VB.Label Label1 
      Caption         =   "其它信息"
      Height          =   255
      Left            =   240
      TabIndex        =   11
      Top             =   3360
      Width           =   735
   End
   Begin VB.Label LblOther2 
      BorderStyle     =   1  'Fixed Single
      Height          =   1215
      Left            =   1080
      TabIndex        =   10
      Top             =   3360
      Width           =   4215
   End
   Begin VB.Label LblSelect 
      Caption         =   "请选择奥运明星"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   840
      Width           =   1695
   End
   Begin VB.Label LblTitle 
      Caption         =   "奥运明星小档案"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1680
      TabIndex        =   1
      Top             =   240
      Width           =   2175
   End
End
Attribute VB_Name = "FrmStar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CboName_Click()
Select Case CboName.ListIndex
    Case 0
      LblCountry2.Caption = "中国"
      LblSex2.Caption = "男"
      LblProgram2.Caption = "110米栏"
      LblOther2.Caption = " 生日  1983年7月13日" + _
      "                            籍贯  上海" + _
      "                                     身高  1.88米" + _
      "                                   体重  74公斤"
      ImgStar.Picture = LoadPicture(App.Path & "\00.jpg")
      ImgCountry.Picture = LoadPicture(App.Path & "\中国.gif")
    Case 1
      LblCountry2.Caption = "中国"
      LblSex2.Caption = "男"
      LblProgram2.Caption = "篮球"
      LblOther2.Caption = " 生日 1980年9月12日" + _
      "                             籍贯  上海" + _
      "                                     身高  2.26米" + _
      "                                   位置  中锋      球衣号 11号" + _
      "                  手掌  21厘米    臂长  221厘米" + _
      "                  血型  A型   星座 处女座属相 猴 "
      ImgStar.Picture = LoadPicture(App.Path & "\01.jpg")
      ImgCountry.Picture = LoadPicture(App.Path & "\中国.gif")
    Case 2
      LblCountry2.Caption = "中国"
      LblSex2.Caption = "女"
      LblProgram2.Caption = "排球"
      LblOther2.Caption = " 生日  1981年10月8日" + _
      "                            出生地  江苏南京" + _
      "                               身高 1.97米        体重 75公斤" + _
      "                 场上位置  副攻     效力球队  八一女排" + _
      "          扣球高度  3.26米   拦网高度  3.15米  " + _
      "          教育背景  大专     个人爱好  绘画，听音乐"
      ImgStar.Picture = LoadPicture(App.Path & "\02.jpg")
      ImgCountry.Picture = LoadPicture(App.Path & "\中国.gif")
    Case 3
      LblCountry2.Caption = "中国"
      LblSex2.Caption = "男"
      LblProgram2.Caption = "乒乓球"
      LblOther2.Caption = " 生日  1984年4月15日" + _
      "                            籍贯  江苏南通" + _
      "                                 身高  1.73米" + _
      "                                   左手横握球拍，两面弧圈球打法，正手杀伤力强、球风凶悍。2004年雅典奥运会夺得男双金牌。"
      ImgStar.Picture = LoadPicture(App.Path & "\03.jpg")
      ImgCountry.Picture = LoadPicture(App.Path & "\中国.gif")
  End Select
End Sub

Private Sub Form_Load()
  CboName.AddItem "刘翔"
  CboName.AddItem "姚明"
  CboName.AddItem "赵蕊蕊"
  CboName.AddItem "陈杞"
End Sub
