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 formDim frm1 as VTLGeneral.VTLForm 'Declaring a formDim btnHide as VTLGeneral.VTLControls.CChartObjectButtonDim btnShow as VTLGeneral.VTLControls.CChartObjectButton Public Sub main()frm = new VTLGeneral.VTLForm("frm0") ' Initializing a Formfrm1 = new VTLGeneral.VTLForm("frm1") ' Initializing a FormbtnHide = 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 SubPublic Sub frm0_Hide_click() ' Note that the Event Name is case sensitive !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!GUI.MsgDialog("Form1 disappeared")frm1.Hide()End SubPublic Sub frm0_Show_click()GUI.MsgDialog("Form1 Appeared")frm1.show()End Sub
See Also