Knowledgebase:
Moving Sized Label
Posted by Yousef Ibrahim, Last modified by Yousef Ibrahim on 04 July 2012 09:54 AM

'###########################################################
' 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.hybrid-solutions.com
' Date: March, 22nd, 2012
'###########################################################

Dim objID
Dim fontSize
Dim objColor

''' <summary>
''' The main function is the entry point for any Script program
''' </summary>

Public Sub main()

objID="label1"
fontSize=8
CreateObjectLabel 0,0,CSTR(objID),50,50,"welcome to VTL World "
IntervalTimer 1000
EnableTimer True
End Sub

''' <summary>
''' The function is generated when a new tick is received fro any symbol
''' </summary>

Public Sub OnTick(SymbolName)

End Sub

''' <summary>
''' The function is generated when initialization script
''' </summary>

Public Sub OnInit()
'''TODO: initialization method

End Sub


''' <summary>
''' The function is generated when deinitialization script
''' </summary>

Public Sub OnDeInit()
'''TODO: deinitialization method

End Sub


''' <summary>
''' The OnTimer function called when the timer event occurs
''' </summary>


Public Sub OnTimer()

fontSize=fontSize+1
objColor=RGBColor(200,10 * fontSize,10 * fontSize)

ObjectSetText 0,CSTR(objID),CINT(fontSize),,CLNG(objColor)

if fontSize=30 then 
EnableTimer false
End if 

End sub



See Also


Back to VTL Client Script Index

(0 vote(s))
Helpful
Not helpful

Comments (0)
Post a new comment
 
 
Full Name:
Email:
Comments:
CAPTCHA Verification 
 
Please enter the text you see in the image into the textbox below (we use this to prevent automated submissions).

Help Desk Software by Hybrid Solutions