Script

‘‘‘#######################################################
‘‘‘###Script Name: VTL Form with a Clickable Button ####
‘‘‘###Script Description: This Server script will create a form with a clickable button####
‘‘‘###Author: Yousef Najjar ####
‘‘‘###Website: http://www.hybridsolutions.com ####
‘‘‘###Date: 22 / March / 2012 ####
‘‘‘#######################################################

Sample

Dim btn As VTLGeneral.VTLControls.CChartObjectButtonDim lbl As VTLGeneral.VTLControls. CChartObjectLabelDim frm As VTLGeneral.VTLFormPublic Sub main()Dim property_id As VTLGeneral.ENUM_ACCOUNT_INFO_DOUBLE property_id=VTLGeneral.ENUM_ACCOUNT_INFO_DOUBLE.ACCOUNT_BALANCEfrm = New VTLGeneral.VTLForm("frm1")btn= New VTLGeneral.VTLControls.CChartObjectButton("btn1")lbl= New VTLGeneral.VTLControls.CChartObjectlabel("lbl1")btn.Width="3600"frm.AddVTLControl(btn)frm. AddVTLControl (lbl) Dim frm2 As New VTLGeneral.VTLForm("frm2") Dim btn2 As VTLGeneral.VTLControls.CChartObjectButtonbtn2= New VTLGeneral.VTLControls.CChartObjectButton("btn4")frm2.AddVTLControl(btn2) btn.Height="300"frm.Caption = (btn.height) frm.show()End SubPublic Sub frm1_btn1_click()frm.Caption="Hello World"For x As Integer=0 to 3lbl.Caption=(ClientCode.AccountInfoDouble(x).Tostring())NextEnd Sub

See Also

• Account Balance
• Account Name, Type and Balance
• Account Summary

Back to VTL Server Script Index