Information générale
Catégorie:
Gestionnaire d'écran & Écrans
This is more of a "novice way" to do it - but - if you put a shape object on the actual area of the tab you don't want clicked on, the use can never click on the tab portion of that area (because it's underneath the shape).
>I have a click procedure I use to empty the contents from the either of 2 Pages of my pageframe. Unfortuantely, I really do not want to do this. The problem is that the usersw may soemtimes click anywhere on page 1 or Page 2 and then their screen goes blank. Not a pretty picture.
>
>What I want to accomplish is to use this code only if the user clicks on the actual TAB of the PageFrame. So, does anyone know how I can fool FoxPro and do this?
>
>My code is below:
>
>Page1.Click - The idea was that if the user is on Page 2 and clicks on Page 1, the following would happen:
>===========
>WITH ThisForm
> *.cProject_No = ""
> SELECT V_ProjectsPI
> ZAP
> SELECT V_POHeaderPI
> ZAP
> ThisForm.cPO_Main = ""
> SELECT V_PODetailPI
> ZAP
> SELECT V_POCostsPI
> ZAP
>ENDWITH
>WITH ThisForm.pgfProject.Page1
> .txtSearchProject.Value = ThisForm.cProject_No
> .cmdReviewPOJobLog.Enabled = .F.
> .cmdReviewPO.Enabled = .F.
> .txtProject_No.Value = ""
> .txtProject_Name.Value = ""
> .txtVen_Name.Value = ""
> .txtVen_Ad1.Value = ""
> .txtVen_Ad2.Value = ""
> .txtVen_City.Value = ""
> .txtVen_State.Value = ""
> .txtVen_Zip.Value = ""
> .txtSearchProject.SetFocus()
>ENDWITH
>
>Page2.Click( ) - If the user is on Page 1 and clicks on Page 2, the following happens:
>==============
>WITH ThisForm
> SELECT V_ProjectsPI
> ZAP
> SELECT V_POHeaderPI
> ZAP
> ThisForm.cPO_Main = ""
> SELECT V_PODetailPI
> ZAP
> SELECT V_POCostsPI
> ZAP
>ENDWITH
>WITH ThisForm.pgfProject.Page2
> .txtSearchProject.Value = ThisForm.cProject_No
> .cmdReviewPOJobLog.Enabled = .F.
> .cmdReviewPO.Enabled = .F.
> .txtProject_No.Value = ""
> .txtProject_Name.Value = ""
> .txtVen_Name.Value = ""
> .txtVen_Ad1.Value = ""
> .txtVen_Ad2.Value = ""
> .txtVen_City.Value = ""
> .txtVen_State.Value = ""
> .txtVen_Zip.Value = ""
> .txtSearchProject.SetFocus()
>ENDWITH
>
>
>Cecil
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement