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.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
Back to VTL Server Script Index
|