‘###########################################################
‘ Script Name: Moving Sized Label
‘ Author: Ehab Kanani
‘ Descreption: This Client Script will create a label that gets bigger to reach a particular size then stops using a timer.
‘ Website:http://www.hybridsolutions.com
‘ Date: March, 22nd, 2012
‘###########################################################
Dim objIDDim fontSizeDim objColor''' ''' The main function is the entry point for any Script program''' Public Sub main()objID="label1"fontSize=8CreateObjectLabel 0,0,CSTR(objID),50,50,"welcome to VTL World "IntervalTimer 1000EnableTimer TrueEnd Sub''' ''' The function is generated when a new tick is received fro any symbol''' Public Sub OnTick(SymbolName)End Sub''' ''' The function is generated when initialization script''' Public Sub OnInit()'''TODO: initialization methodEnd Sub''' ''' The function is generated when deinitialization script''' Public Sub OnDeInit()'''TODO: deinitialization methodEnd Sub''' ''' The OnTimer function called when the timer event occurs''' Public Sub OnTimer()fontSize=fontSize+1objColor=RGBColor(200,10 * fontSize,10 * fontSize)ObjectSetText 0,CSTR(objID),CINT(fontSize),,CLNG(objColor)if fontSize=30 then EnableTimer falseEnd if End sub
See Also