home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD5591582000.psc / Controls / Credits.ctl next >
Encoding:
Text File  |  2000-05-04  |  2.9 KB  |  106 lines
  1. VERSION 5.00
  2. Begin VB.UserControl Credits 
  3.    BackColor       =   &H00808080&
  4.    ClientHeight    =   1530
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   3570
  8.    ScaleHeight     =   1530
  9.    ScaleWidth      =   3570
  10.    Begin VB.Timer Timer2 
  11.       Enabled         =   0   'False
  12.       Interval        =   250
  13.       Left            =   4080
  14.       Top             =   960
  15.    End
  16.    Begin VB.Timer Timer1 
  17.       Enabled         =   0   'False
  18.       Interval        =   55
  19.       Left            =   4080
  20.       Top             =   480
  21.    End
  22.    Begin VB.PictureBox Picture1 
  23.       BackColor       =   &H00808080&
  24.       BorderStyle     =   0  'None
  25.       Height          =   1455
  26.       Left            =   0
  27.       ScaleHeight     =   1455
  28.       ScaleWidth      =   3615
  29.       TabIndex        =   0
  30.       Top             =   0
  31.       Width           =   3615
  32.       Begin VB.TextBox Text1 
  33.          Alignment       =   2  'Center
  34.          Appearance      =   0  'Flat
  35.          BackColor       =   &H00808080&
  36.          BorderStyle     =   0  'None
  37.          ForeColor       =   &H00FFFFFF&
  38.          Height          =   6480
  39.          Left            =   0
  40.          MouseIcon       =   "Credits.ctx":0000
  41.          MousePointer    =   99  'Custom
  42.          MultiLine       =   -1  'True
  43.          TabIndex        =   2
  44.          TabStop         =   0   'False
  45.          Text            =   "Credits.ctx":030A
  46.          Top             =   10
  47.          Visible         =   0   'False
  48.          Width           =   3615
  49.       End
  50.       Begin VB.VScrollBar VScroll1 
  51.          Height          =   3615
  52.          Left            =   0
  53.          TabIndex        =   1
  54.          TabStop         =   0   'False
  55.          Top             =   0
  56.          Visible         =   0   'False
  57.          Width           =   255
  58.       End
  59.    End
  60. End
  61. Attribute VB_Name = "Credits"
  62. Attribute VB_GlobalNameSpace = False
  63. Attribute VB_Creatable = True
  64. Attribute VB_PredeclaredId = False
  65. Attribute VB_Exposed = False
  66. Public Function Staterup()
  67. VScroll1.Max = Picture1.Height
  68. VScroll1.min = 0 - Text1.Height
  69. VScroll1.Value = VScroll1.Max
  70. Text1.Top = VScroll1.Value
  71. Text1.Visible = True
  72. Timer1.Enabled = True
  73. End Function
  74. Public Function Killer()
  75. Timer1.Enabled = False
  76. Text1.Visible = False
  77. End Function
  78.  
  79. Private Sub Timer1_Timer()
  80. If VScroll1.Value >= VScroll1.min + 30 Then
  81.   VScroll1.Value = VScroll1.Value - 20
  82. Else
  83.   VScroll1.Value = VScroll1.Max
  84.   DoEvents
  85.   Timer1.Enabled = False
  86.   Timer2.Enabled = True
  87. End If
  88. Text1.Top = VScroll1.Value
  89. Text1.Visible = True
  90. DoEvents
  91. End Sub
  92.  
  93. Private Sub Timer2_Timer()
  94. Timer2.Enabled = False
  95. VScroll1.Max = Picture1.Height
  96. VScroll1.min = 0 - Text1.Height
  97. VScroll1.Value = VScroll1.Max
  98. Text1.Top = VScroll1.Value
  99. Text1.Visible = True
  100. Timer1.Enabled = True
  101. End Sub
  102.  
  103. Private Sub UserControl_Terminate()
  104. Timer1.Enabled = False
  105. End Sub
  106.