Script
'''######################################################## '''####Script Name: Show/ Hide Form #### '''####Script Description: This Server Script shows you how to show and hide forms #### '''####Author: Yousef Najjar #### '''####Website: http://www.hybridsolutions.com #### '''####Date: 22 / March / 2012 #### '''#######################################################
Sample
Dim frm as VTLGeneral.VTLForm 'Declaring a form
Dim frm1 as VTLGeneral.VTLForm 'Declaring a form
Dim btnHide as VTLGeneral.VTLControls.CChartObjectButton
Dim btnShow as VTLGeneral.VTLControls.CChartObjectButton
Public Sub main()
frm = new VTLGeneral.VTLForm("frm0") ' Initializing a Form
frm1 = new VTLGeneral.VTLForm("frm1") ' Initializing a Form
btnHide = new VTLGeneral.VTLControls.CChartObjectButton("Hide")
btnShow = new VTLGeneral.VTLControls.CChartObjectButton("Show")
frm.addVTLControl(btnHide)
frm.addVTLControl(btnShow)
btnHide.top = "100"
btnShow.top = "100"
btnHide.left="100"
btnShow.left = "2000"
btnHide.height="400"
btnShow.height="400"
btnHide.width="1000"
btnShow.width="2000"
btnHide.caption="Hide"
btnShow.caption="Show"
frm.show()
frm1.show()
End Sub
Public Sub frm0_Hide_click() ' Note that the Event Name is case sensitive !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
GUI.MsgDialog("Form1 disappeared")
frm1.Hide()
End Sub
Public Sub frm0_Show_click()
GUI.MsgDialog("Form1 Appeared")
frm1.show()
End Sub
See Also
Back to VTL Server Script Index
|