Please remove
www.mevaprod.co.za 083 398 7918 011-659-0798 Designer Databases Project Management Database Hosting Regards John Disclaimer Any unauthorised use or interception of this e-mail is strictly prohibited. If this e-mail is not intended for you, you may not copy, distribute or disclose the contents to anyone. If you are not the intended recipient please delete this e-mail immediately. MevaProd cannot accept responsibility or liability for any damages whatsoever arising from or as a result of the use of or reliance on the content of this message. MevaProd cannot give any warranty or guarantee concerning the confidentiality or security of the e-mail system. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Arnaud Nicolet Sent: 29 September 2006 03:38 PM To: Getting Started Subject: Re: Enable or disable distinct Tabpanel pages Le 29 sept. 06 à 15:21 Soir, Bart Pietercil a écrit: >> But, what do you mean by "they may see the controls, but can't use >> them"? >> When a control is invisible, it can't be neither seen nor used. > > Yes I understand > > I just mean that it is OK for my user to see the control as long as > they are not able to manipulate them. Since I throw a msgbox when > they see the second page they cannot manipulate it because when the > msgbox is closed the tabpanel.value = 0 Ok, now I understand. If you want, you can however hide them. For example, if you use this method: sub SetControlsVisibleInTabPanel(PanelID as Integer,IsVisible As Boolean) dim c As Control dim i As integer dim r As RectControl for i=0 to ControlCount-1 c=Control(i) if c.TabPanelIndex=PanelID then if c isa RectControl then r=RectControl(c) r.Visible=False end if end if Next self.Refresh end sub you can then use SetControlsVisibleInTabPanel 2,false MsgBox "So you think you are allowed to see this pane?! Haha, that's funny!" SetControlsVisibleInTabPanel 2,true_______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives of this list here: <http://support.realsoftware.com/listarchives/lists.html> -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.407 / Virus Database: 268.12.9/458 - Release Date: 27/Sep/2006 -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.1.407 / Virus Database: 268.12.9/458 - Release Date: 27/Sep/2006 _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives of this list here: <http://support.realsoftware.com/listarchives/lists.html>
