DOCUMENT:Q134306 15-FEB-2000 [foxpro] TITLE :How to Simulate a Tabbed Dialog Box with Vertical Tabs PRODUCT :Microsoft FoxPro PROD/VER:WINDOWS:3.0 OPER/SYS: KEYWORDS: ====================================================================== ------------------------------------------------------------------------------- The information in this article applies to: - Microsoft Visual FoxPro for Windows, version 3.0 ------------------------------------------------------------------------------- SUMMARY ======= Currently, there is no built-in means in the Form Designer to provide vertical tabs on PageFrame Pages. This article shows by example how to simulate PageFrame vertical tabs. MORE INFORMATION ================ The following code sample shows how to create a form with multiple pages and vertical tabs. Clicking the appropriate tab displays a WAIT WINDOW that identifies the current page selected. Code Sample ----------- ************************ Start of Example *********************** frmForm=CREATEOBJECT("verticaltab") frmForm.SHOW READ EVENTS DEFINE CLASS verticaltab AS form Top = 0 Left = 0 DoCreate = .T. Caption = "Form1" LockScreen = .F. Name = "Form1" ADD OBJECT pageframe1 AS pageframe WITH ; ErasePage = .T., ; PageCount = 2, ; Top = 24, ; Left = 96, ; Width = 253, ; Height = 192, ; Tabs = .F., ; Name = "Pageframe1", ; Page1.Caption = "Page1", ; Page1.Name = "Page1", ; Page2.Caption = "Page2", ; Page2.Name = "Page2" ADD OBJECT commandgroup1 AS commandgroup WITH ; AutoSize = .F., ; ButtonCount = 2, ; BackColor = RGB(192,192,192), ; Value = 1, ; Height = 193, ; Left = 0, ; Top = 24, ; Width = 97, ; Name = "Commandgroup1", ; Command1.AutoSize = .F., ; Command1.Top = 1, ; Command1.Left = -1, ; Command1.Height = 85, ; Command1.Width = 98, ; Command1.Picture = "..\", ; Command1.Caption = "page1", ; Command1.Name = "Command1", ; Command2.AutoSize = .F., ; Command2.Top = 85, ; Command2.Left = 0, ; Command2.Height = 108, ; Command2.Width = 97, ; Command2.Caption = "page2", ; Command2.Name = "Command2" ADD OBJECT line1 AS line WITH ; BorderWidth = 2, ; Height = 85, ; Left = 96, ; Top = 26, ; Width = 0, ; Name = "Line1" ADD OBJECT line2 AS line WITH ; BorderStyle = 1, ; BorderWidth = 2, ; Height = 105, ; Left = 96, ; Top = 110, ; Width = 0, ; Name = "Line2" PROCEDURE commandgroup1.Command1.Click thisform.line1.bordercolor=rgb(192,192,192) thisform.line2.bordercolor=rgb(0,0,0) thisform.pageframe1.activepage=1 WAIT WINDOW "Page 1" ENDPROC PROCEDURE commandgroup1.Command2.Click thisform.line1.bordercolor=rgb(0,0,0) thisform.line2.bordercolor=rgb(192,192,192) thisform.pageframe1.activepage=2 WAIT WINDOW "Page 2" ENDPROC ENDDEFINE ************************ End of Example ************************* Step-by-Step Example -------------------- Use the following steps to create the vertical tabs through the interface: 1. Open the appropriate form. 2. In the Form Controls toolbar, select the page frame button, and drag it to size on the form. (Visual FoxPro creates a page frame with two pages and a tab on each page by default.) NOTE: If you want more than two pages, set the PageCount property of the PageFrame to the appropriate number. 3. Set the Tabs property of the page frame to False (.F.), so you don't create horizontal tabs. 4. In the Form Controls toolbar, select the Builder Lock button, if it's not already selected. 5. In the Form Controls toolbar, select the Command Group button, and drag it to create a vertical button group on either side of the page frame. The buttons in this group will simulate the PageFrame tabs. 6. In the Command Group builder: a. Set the number of buttons (tabs) equal to the number of pages, or set the ButtonCount property of the command button group when you exit the builder. b. Label the buttons with captions or graphics, or set the Caption or Picture property of each button when you exit the builder. NOTE: Adjust the Command Buttons, as appropriate, to obtain the desired size and shape. c. Click OK when you're finished with the builder. 7. On the Form, double-click the Command Group to display the Code window. 8. In the Code window, select each button from the Object list, and enter code that specifies the page corresponding to that button. For example, to assign the first page of a page frame named pgfMyframe to a button, enter this code: THISFORM.pgfMyframe.ActivePage = 1 9. Save and Run the Form. NOTE: The command buttons can be placed on the Form individually and stretched vertically in order to better simulate vertical tabs. Additional query words: 3.00 VFoxWin ====================================================================== Keywords : Technology : kbVFPsearch kbAudDeveloper kbVFP300 Version : WINDOWS:3.0 ============================================================================= THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY. Copyright Microsoft Corporation 2000.