home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / dameware / infotick / infotick.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-10  |  6.7 KB  |  209 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   4275
  6.    ClientLeft      =   1140
  7.    ClientTop       =   1515
  8.    ClientWidth     =   6945
  9.    Height          =   4680
  10.    Left            =   1080
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4275
  13.    ScaleWidth      =   6945
  14.    Top             =   1170
  15.    Width           =   7065
  16.    Begin INFOTICKLib.InfoTick InfoTick4 
  17.       Height          =   615
  18.       Left            =   480
  19.       TabIndex        =   3
  20.       Top             =   3240
  21.       Width           =   6135
  22.       _Version        =   65536
  23.       _ExtentX        =   10821
  24.       _ExtentY        =   1085
  25.       _StockProps     =   125
  26.       Text            =   "Higher Please!"
  27.       ForeColor       =   255
  28.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  29.          name            =   "Arial"
  30.          charset         =   0
  31.          weight          =   400
  32.          size            =   8.25
  33.          underline       =   0   'False
  34.          italic          =   0   'False
  35.          strikethrough   =   0   'False
  36.       EndProperty
  37.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  38.          name            =   "Arial"
  39.          charset         =   0
  40.          weight          =   400
  41.          size            =   8.25
  42.          underline       =   0   'False
  43.          italic          =   0   'False
  44.          strikethrough   =   0   'False
  45.       EndProperty
  46.       Caption         =   "Higher Please!"
  47.       ForeColor       =   255
  48.       BackColor       =   12632256
  49.       Scrolling       =   0   'False
  50.       TimerInterval   =   100
  51.    End
  52.    Begin INFOTICKLib.InfoTick InfoTick3 
  53.       Height          =   495
  54.       Left            =   840
  55.       TabIndex        =   2
  56.       Top             =   360
  57.       Width           =   4455
  58.       _Version        =   65536
  59.       _ExtentX        =   7858
  60.       _ExtentY        =   873
  61.       _StockProps     =   125
  62.       Text            =   "IBM | 5 1/4 | GSU | 2 1/6 | IIT | 1 7/8 | PPW | 1 1/4 | LPL | 1 1/8 | GLF | 1 1/2 | HPL | 2 1/8"
  63.       ForeColor       =   65280
  64.       BackColor       =   32768
  65.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  66.          name            =   "Arial"
  67.          charset         =   0
  68.          weight          =   400
  69.          size            =   9.75
  70.          underline       =   0   'False
  71.          italic          =   0   'False
  72.          strikethrough   =   0   'False
  73.       EndProperty
  74.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  75.          name            =   "Arial"
  76.          charset         =   0
  77.          weight          =   400
  78.          size            =   9.75
  79.          underline       =   0   'False
  80.          italic          =   0   'False
  81.          strikethrough   =   0   'False
  82.       EndProperty
  83.       Caption         =   "IBM | 5 1/4 | GSU | 2 1/6 | IIT | 1 7/8 | PPW | 1 1/4 | LPL | 1 1/8 | GLF | 1 1/2 | HPL | 2 1/8"
  84.       OffsetText      =   -1  'True
  85.    End
  86.    Begin INFOTICKLib.InfoTick InfoTick2 
  87.       Height          =   495
  88.       Left            =   720
  89.       TabIndex        =   1
  90.       Top             =   2280
  91.       Width           =   5655
  92.       _Version        =   65536
  93.       _ExtentX        =   9975
  94.       _ExtentY        =   873
  95.       _StockProps     =   125
  96.       Text            =   "Default Caption"
  97.       ForeColor       =   65535
  98.       BackColor       =   16711680
  99.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  100.          name            =   "Footlight MT Light"
  101.          charset         =   0
  102.          weight          =   300
  103.          size            =   18
  104.          underline       =   0   'False
  105.          italic          =   0   'False
  106.          strikethrough   =   0   'False
  107.       EndProperty
  108.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  109.          name            =   "Footlight MT Light"
  110.          charset         =   0
  111.          weight          =   300
  112.          size            =   18
  113.          underline       =   0   'False
  114.          italic          =   0   'False
  115.          strikethrough   =   0   'False
  116.       EndProperty
  117.       ForeColor       =   65535
  118.       BackColor       =   16711680
  119.       Scrolling       =   0   'False
  120.       TimerInterval   =   1000
  121.    End
  122.    Begin INFOTICKLib.InfoTick InfoTick1 
  123.       Height          =   495
  124.       Left            =   720
  125.       TabIndex        =   0
  126.       Top             =   1080
  127.       Width           =   5415
  128.       _Version        =   65536
  129.       _ExtentX        =   9551
  130.       _ExtentY        =   873
  131.       _StockProps     =   125
  132.       Text            =   "Scrolling fast...."
  133.       ForeColor       =   255
  134.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  135.          name            =   "MS Sans Serif"
  136.          charset         =   0
  137.          weight          =   400
  138.          size            =   12
  139.          underline       =   0   'False
  140.          italic          =   0   'False
  141.          strikethrough   =   0   'False
  142.       EndProperty
  143.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  144.          name            =   "MS Sans Serif"
  145.          charset         =   0
  146.          weight          =   400
  147.          size            =   12
  148.          underline       =   0   'False
  149.          italic          =   0   'False
  150.          strikethrough   =   0   'False
  151.       EndProperty
  152.       Caption         =   "Scrolling fast...."
  153.       ForeColor       =   255
  154.       BackColor       =   12632256
  155.       ScrollDelay     =   0
  156.    End
  157. Attribute VB_Name = "Form1"
  158. Attribute VB_Creatable = False
  159. Attribute VB_Exposed = False
  160. Dim nCounter
  161. Dim nWait
  162. Dim nCount
  163. Dim flag
  164. Private Sub Form_Load()
  165. nCounter = 0
  166. nWait = 0
  167. nCount = 0
  168. flag = 0
  169. End Sub
  170. Private Sub Form_Resize()
  171.     InfoTick3.Move 0, 0, ScaleWidth, InfoTick3.Height
  172. End Sub
  173. Private Sub InfoTick2_Timer()
  174. If nCounter = 0 Then
  175.     InfoTick2.Text = "First Line of Text"
  176. End If
  177. If nCounter = 1 Then
  178.     InfoTick2.Text = "Second Line of Text"
  179. End If
  180. If nCounter = 2 Then
  181.     InfoTick2.Text = "One more Line of Text"
  182.     nCounter = 0
  183. End If
  184. nCounter = nCounter + 1
  185. End Sub
  186. Private Sub InfoTick4_Timer()
  187. If nWait < 5 And nCount > 30 Then
  188.     nWait = nWait + 1
  189.     If nWait = 5 Then
  190.         nCount = 30
  191.         nWait = 0
  192.     End If
  193. ElseIf flag = 0 Then
  194.     nCount = nCount + 1
  195.     InfoTick4.Font.Size = nCount
  196.     If nCount > 30 Then
  197.        flag = 1
  198.        InfoTick4.Text = "Lower Please!"
  199.     End If
  200. ElseIf flag = 1 Then
  201.     nCount = nCount - 1
  202.     InfoTick4.Font.Size = nCount
  203.     If nCount < 2 Then
  204.         flag = 0
  205.         InfoTick4.Text = "Higher Please!"
  206.     End If
  207. End If
  208. End Sub
  209.