form7.frm

完整的英语900句源码－采用顶条技术

VERSION 5.00
Begin VB.Form Form7 
   BackColor       =   &H000000FF&
   BorderStyle     =   0  'None
   Caption         =   "版本信息"
   ClientHeight    =   1995
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3210
   LinkTopic       =   "Form7"
   LockControls    =   -1  'True
   ScaleHeight     =   1995
   ScaleWidth      =   3210
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Image Image1 
      Height          =   1905
      Left            =   50
      Picture         =   "Form7.frx":0000
      Top             =   50
      Width           =   3120
   End
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
    Form1.Image1.Enabled = False '显示版本信息时禁止菜单弹出
End Sub

'点击退出版本信息显示
Private Sub Image1_Click()
    Unload Form7
    Form1.Image1.Enabled = True '版本信息显示完毕时恢复菜单弹出
End Sub