Article ID: 171348
Article Last Modified on 12/11/1999
APPLIES TO
- Microsoft Visual FoxPro 5.0 Standard Edition
- Microsoft Visual FoxPro 5.0a
- Microsoft Visual FoxPro 6.0 Professional Edition
This article was previously published under Q171348
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.
Keywords: kbprb KB171348
