VTL Form with a Clickable Button
Posted by Yousef Ibrahim, Last modified by Abdullah Almasharfah on 14 December 2018 10:26 PM

'''####################################################### 
'''###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                                                                             ####
'''#######################################################


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

(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