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

Sample

Dim btn As VTLGeneral.VTLControls.CChartObjectButton

Dim lbl As VTLGeneral.VTLControls. CChartObjectLabel
Dim frm As VTLGeneral.VTLForm

Public Sub main()

Dim property_id As VTLGeneral.ENUM_ACCOUNT_INFO_DOUBLE 
property_id=VTLGeneral.ENUM_ACCOUNT_INFO_DOUBLE.ACCOUNT_BALANCE

frm = 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.CChartObjectButton
btn2= New VTLGeneral.VTLControls.CChartObjectButton("btn4")
frm2.AddVTLControl(btn2)


 btn.Height="300"

frm.Caption = (btn.height) 
frm.show()
End Sub


Public Sub frm1_btn1_click()

frm.Caption="Hello World"

For x As Integer=0 to 3
lbl.Caption=(ClientCode.AccountInfoDouble(x).Tostring())
Next

End Sub

See Also

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

Back to VTL Server Script Index