Show/ Hide Form
Posted by Yousef Ibrahim, Last modified by Abdullah Almasharfah on 14 December 2018 10:23 PM

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

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

(1 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