DOCUMENT:Q171348  11-DEC-1999  [foxpro]
TITLE   :PRB: TabStrip Control is Always on Top During Runtime
PRODUCT :Microsoft FoxPro
PROD/VER:WINDOWS:5.0,5.0a,6.0
OPER/SYS:
KEYWORDS:kbvfp kbvfp500 kbvfp500a kbvfp600

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, versions 5.0, 5.0a, 6.0 
-------------------------------------------------------------------------------

SYMPTOMS
========

In Visual FoxPro 5.0, the TabStrip Control can have objects placed in front of
it during design mode but the objects go behind the TabStrip control during
runtime. Changing the ZORDER of either the TabStrip control, or the controls
placed on the TabStrip control, has no effect on the controls during runtime.

STATUS
======

This behavior is by design.

MORE INFORMATION
================

A TabStrip control is an ActiveX control that is like the dividers in a notebook
or the labels on a group of file folders. By using a TabStrip control, you can
define multiple pages for the same area of a window or dialog box in your
application. The TabStrip control is similar to the tabs on the PageFrame or
Tabbed Dialog control.

Steps to Reproduce Behavior
---------------------------

The following program illustrates the behavior of the TabStrip control during
runtime. When you execute the program, an "Insert Object" prompt appears. Select
"Insert Control" and locate, or add, the "Microsoft TabStrip Control, version
5.0." When the form runs, a TextBox should be on the TabStrip Control but
actually is behind the TabStrip control. Click on the "Place Textbox on Shape"
command button to move the TextBox to the Shape. The two command buttons on the
form change the location of the TextBox and also changes the ZORDER. When the
TextBox is in the area of the TabStrip control it does not appear on top of the
TabStrip control:

      **Start of Program
      frmTabStrip = CREATEOBJECT("tabstrip")
      frmTabStrip.SHOW(1)
      **************************************************
      *-- StartDefine: tabstrip
      DEFINE CLASS tabstrip AS FORM
          TOP = 5
          LEFT = 51
          HEIGHT = 338
          WIDTH = 335
          DOCREATE = .T.
          CAPTION = "TabStrip Example"
          NAME = "Form1"
          ADD OBJECT olecontrol1 AS OLECONTROL WITH ;
              TOP = 24, ;
              LEFT = 24, ;
              HEIGHT = 132, ;
              WIDTH = 288, ;
              NAME = "Olecontrol1"
          ADD OBJECT txtText1 AS TEXTBOX WITH ;
              HEIGHT = 60, ;
              LEFT = 36, ;
              TOP = 72, ;
              WIDTH = 252, ;
              NAME = "txtText1"
          ADD OBJECT shape1 AS SHAPE WITH ;
              TOP = 168, ;
              LEFT = 24, ;
              HEIGHT = 97, ;
              WIDTH = 288, ;
              NAME = "Shape1"
          ADD OBJECT cmdCommand1 AS COMMANDBUTTON WITH ;
              TOP = 288, ;
              LEFT = 24, ;
              HEIGHT = 25, ;
              WIDTH = 132, ;
              CAPTION = "Send Textbox to Front", ;
              NAME = "cmdCommand1"
          ADD OBJECT cmdCommand2 AS COMMANDBUTTON WITH ;
              TOP = 288, ;
              LEFT = 156, ;
              HEIGHT = 25, ;
              WIDTH = 157, ;
              CAPTION = "Place Textbox on Shape", ;
              NAME = "cmdCommand2"
          ADD OBJECT label1 AS LABEL WITH ;
              FONTBOLD = .T., ;
              CAPTION = "Shape", ;
              HEIGHT = 20, ;
              LEFT = 38, ;
              TOP = 172, ;
              WIDTH = 61, ;
              NAME = "Label1"

          PROCEDURE cmdCommand1.CLICK
              IF THIS.CAPTION = "Send Textbox to Front"
                  THISFORM.txtText1.ZORDER(0) && Send to front
                  THIS.CAPTION = "Send Textbox to Back"
              ELSE
                  THISFORM.txtText1.ZORDER(1) && Send to back
                  THIS.CAPTION = "Send Textbox to Front"
              ENDIF
          ENDPROC
          PROCEDURE cmdCommand2.CLICK
              IF THIS.CAPTION = "Place Textbox on Shape"
                  THISFORM.txtText1.TOP = 192
                  THISFORM.txtText1.ZORDER(0) && Send to front
                  THIS.CAPTION = "Place Textbox on TabStrip"
                  THISFORM.cmdCommand1.CAPTION = "Send Textbox to Back"
              ELSE
                  THISFORM.txtText1.TOP = 72
                  THIS.CAPTION = "Place Textbox on Shape"
              ENDIF
          ENDPROC
      ENDDEFINE
      *-- EndDefine: tabstrip

REFERENCES
==========

Visual Basic Online Help file.

Additional query words:

======================================================================
Keywords          : kbvfp kbvfp500 kbvfp500a kbvfp600 
Technology        : kbVFPsearch kbAudDeveloper kbVFP500 kbVFP600 kbVFP500a
Version           : WINDOWS:5.0,5.0a,6.0
Issue type        : kbprb

=============================================================================

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 1999.