frmdemo.frm

网上教务管理系统 包括（教师

VERSION 5.00
Begin VB.Form frmdemo 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "益友软件工作室介绍"
   ClientHeight    =   3180
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4080
   Icon            =   "frmdemo.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3180
   ScaleWidth      =   4080
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   3135
      Left            =   0
      ScaleHeight     =   3135
      ScaleWidth      =   4065
      TabIndex        =   0
      Top             =   0
      Width           =   4065
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   9060
         Left            =   45
         MouseIcon       =   "frmdemo.frx":030A
         MousePointer    =   99  'Custom
         MultiLine       =   -1  'True
         TabIndex        =   2
         TabStop         =   0   'False
         Text            =   "frmdemo.frx":0614
         Top             =   0
         Visible         =   0   'False
         Width           =   4065
      End
      Begin VB.Timer Timer1 
         Enabled         =   0   'False
         Interval        =   10
         Left            =   3300
         Top             =   120
      End
      Begin VB.VScrollBar VScroll1 
         Height          =   1905
         Left            =   270
         TabIndex        =   1
         TabStop         =   0   'False
         Top             =   210
         Visible         =   0   'False
         Width           =   255
      End
   End
End
Attribute VB_Name = "frmdemo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Timer1.Enabled = True
VScroll1.Max = Picture1.Height
VScroll1.Min = 0 - Text1.Height
VScroll1.Value = VScroll1.Max
End Sub
Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Text1.Visible = True
If VScroll1.Value >= VScroll1.Min + 30 Then
  VScroll1.Value = VScroll1.Value - 15
Else
  VScroll1.Value = VScroll1.Max
  DoEvents
End If
Text1.Top = VScroll1.Value
DoEvents
End Sub