frm_background.frm

来自「中学教务管理系统是基于河南大学附属中学的教务管理条件所涉及」· FRM 代码 · 共 74 行

VERSION 5.00
Begin VB.Form frm_background 
   BackColor       =   &H8000000C&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   5835
   ClientLeft      =   1170
   ClientTop       =   4155
   ClientWidth     =   8895
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   5835
   ScaleWidth      =   8895
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox Picture2 
      Appearance      =   0  'Flat
      BackColor       =   &H8000000C&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   2055
      Left            =   -240
      ScaleHeight     =   2055
      ScaleWidth      =   8535
      TabIndex        =   1
      Top             =   2520
      Width           =   8535
   End
   Begin VB.Timer Timer1 
      Interval        =   2
      Left            =   840
      Top             =   4680
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H8000000C&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   855
      Left            =   0
      ScaleHeight     =   855
      ScaleWidth      =   3015
      TabIndex        =   0
      Top             =   0
      Width           =   3015
   End
End
Attribute VB_Name = "frm_background"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Picture1.Picture = LoadPicture(App.Path + "\pictures\name.gif")
Me.Width = frm_main.Width
Me.Height = frm_main.Height
Picture2.Left = 0
Picture2.Top = ScaleHeight - Picture2.Height
Picture2.Picture = LoadPicture(App.Path + "\pictures\owner.gif")
End Sub

Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 20
If Picture1.Left >= ScaleWidth + Picture1.Width Then
   Picture1.Left = -(Picture1.Width)
End If
End Sub

Private Sub Timer2_Timer()
End Sub