主界面.frm

完全能够实现功能

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   7155
   ClientLeft      =   165
   ClientTop       =   870
   ClientWidth     =   8940
   LinkTopic       =   "Form2"
   ScaleHeight     =   7155
   ScaleWidth      =   8940
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Height          =   5655
      Left            =   720
      Picture         =   "主界面.frx":0000
      ScaleHeight     =   5595
      ScaleWidth      =   7515
      TabIndex        =   1
      Top             =   1080
      Width           =   7575
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   390
      Left            =   0
      TabIndex        =   2
      Top             =   6765
      Width           =   8940
      _ExtentX        =   15769
      _ExtentY        =   688
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   5
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Key             =   "disInfor"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            TextSave        =   "2007-1-6"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Object.Width           =   1235
            MinWidth        =   1235
            TextSave        =   "12:40"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   1
            Enabled         =   0   'False
            Object.Width           =   882
            MinWidth        =   882
            TextSave        =   "CAPS"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   3
            Enabled         =   0   'False
            Object.Width           =   882
            MinWidth        =   882
            TextSave        =   "INS"
         EndProperty
      EndProperty
   End
   Begin VB.Label Label1 
      Caption         =   "全民行动起来一起学习英语"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C000C0&
      Height          =   615
      Left            =   1800
      TabIndex        =   0
      Top             =   360
      Width           =   5895
   End
   Begin VB.Menu A 
      Caption         =   "汉译英(&A)"
      Begin VB.Menu E 
         Caption         =   "新建句型"
      End
   End
   Begin VB.Menu B 
      Caption         =   "英译汉(&B)"
      Begin VB.Menu F 
         Caption         =   "新建句型"
      End
   End
   Begin VB.Menu C 
      Caption         =   "添加陌生单词(&C)"
      Begin VB.Menu G 
         Caption         =   "新建单词"
      End
   End
   Begin VB.Menu D 
      Caption         =   "多媒体英语学习(&D)"
      Begin VB.Menu H 
         Caption         =   "打开窗口"
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub E_Click()
Form2.Hide
Form3.Show
End Sub

Private Sub F_Click()
Form2.Hide
Form4.Show
End Sub

Private Sub G_Click()
Form2.Hide
Form5.Show
End Sub

Private Sub H_Click()
Form2.Hide
Form6.Show
End Sub



Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
    Select Case Panel.Key
    Case "disInfor"
        Panel.Text = "计算机"
    Case Else
        MsgBox Panel.Index
    End Select
End Sub