qd.frm

对学习VB很有帮助 fskdljfl kasdjfkl asdjfk lajsd f

VERSION 5.00
Begin VB.Form qd 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   5715
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   8670
   LinkTopic       =   "Form1"
   ScaleHeight     =   5715
   ScaleWidth      =   8670
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   1320
      Top             =   5040
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "授权给： 任何给本系统         提出宝贵意见的人"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   735
      Left            =   4680
      TabIndex        =   4
      Top             =   4920
      Visible         =   0   'False
      Width           =   3735
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "开发单位：07计接本第11小组"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   495
      Left            =   4680
      TabIndex        =   3
      Top             =   4440
      Visible         =   0   'False
      Width           =   3975
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "开发单位：07计接本第11小组"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   4680
      TabIndex        =   2
      Top             =   4440
      Width           =   3975
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "授权给： 任何给本系统         提出宝贵意见的人"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   735
      Left            =   4680
      TabIndex        =   1
      Top             =   4920
      Width           =   3735
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "欢迎使用学生管理系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   735
      Left            =   7560
      TabIndex        =   0
      Top             =   1920
      Width           =   6240
   End
   Begin VB.Image Image1 
      Height          =   5775
      Left            =   0
      Picture         =   "qd.frx":0000
      Stretch         =   -1  'True
      Top             =   0
      Width           =   8655
   End
End
Attribute VB_Name = "qd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\" & "sl3.jpg")
End Sub

Private Sub Label2_Click()
frmLogin.Show
Unload Me


End Sub

Private Sub Label3_Click()
frmLogin.Show
Unload Me

End Sub

Private Sub Label1_Click()
frmLogin.Show
Unload Me
End Sub

Private Sub Image1_Click()
frmLogin.Show
Unload Me
End Sub

Private Sub Label4_Click()
frmLogin.Show
Unload Me
End Sub

Private Sub Label5_Click()
frmLogin.Show
Unload Me

End Sub

Private Sub MSVidCtl1_Click()

End Sub

Private Sub Timer1_Timer()
If Label2.Left + Label2.Width > qd.Left Then
    Label2.Left = Label2.Left - 500
Else
    Label2.Left = qd.Width
End If
   
   

If Label1.Visible = True Then
    Label4.Visible = True
    Label1.Visible = False
Else
    Label4.Visible = False
    Label1.Visible = True
End If
If Label3.Visible = True Then
    Label5.Visible = True
    Label3.Visible = False
Else
    Label5.Visible = False
    Label3.Visible = True
End If

End Sub