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.hybrid-solutions.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

• Update Limit Order
• VTL Form with a Clickable Button
• Account Balance

Back to VTL Server Script Index