BUG: Pages of PageFrame Created with AddObject Method Invisible (180495)


The information in this article applies to:

  • Microsoft Visual FoxPro for Macintosh 3.0b
  • Microsoft Visual FoxPro for Windows 3.0
  • Microsoft Visual FoxPro for Windows 3.0b
  • Microsoft Visual FoxPro for Windows 5.0
  • Microsoft Visual FoxPro for Windows 5.0a
  • Microsoft Visual FoxPro for Windows 6.0
This article was previously published under Q180495

SYMPTOMS

When using a multirow pageframe object, the currently selected page, pages on the same row, and controls contained on the selected page are not visible. This behavior only occurs when the TabStretch property of a pageframe is set to 0 - Multiple Rows.

CAUSE

When you add pages to a pageframe object using the AddObject method, Visual FoxPro may not correctly determine how the pages should display.

RESOLUTION

When you add pages to a pageframe object using the AddObject method, force recalculation of the page display by setting the TabStretch property of the pageframe to the existing TabStretch property value as shown below: 
   pageform.pageframe1.TabStretch=pageform.pageframe1.TabStretch

STATUS

Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article.

MORE INFORMATION

Steps to Reproduce Behavior

  1. Create a form called pageform.
  2. Add a pageframe object and set the following properties: 
          TabStretch : 0 - Multiple Rows - in Visual FoxPro version 5.x.
      TabStretch : 0 - Stack         - in Visual FoxPro version 3.x.
      Height     : 135
      Width      : 330
  3. Create a program called Pageform.prg using the following code: 
          PUBLIC pageform
      DO FORM pageform
      DO WHILE pageform.pageframe1.PAGECOUNT < 12
        lcpagename = "Page" + ALLTRIM(STR(pageform.pageframe1.PAGECOUNT+1))
        pageform.pageframe1.ADDOBJECT(lcpagename,"Page")
        pageform.pageframe1.ACTIVEPAGE=pageform.pageframe1.PAGECOUNT
        lcpageadd="PageForm.PageFrame1."+lcpagename+ ;
           ".AddObject('TextBox1','TextBoxa')"
        &lcpageadd
        pageform.REFRESH
      ENDDO
      RETURN

      DEFINE CLASS textboxa AS TEXTBOX
         TOP=25
         LEFT=10
         HEIGHT=20
         WIDTH=100
         VISIBLE=.T.
      ENDDEFINE

REFERENCES

Modification Type:MajorLast Reviewed:5/12/2003
Keywords:kbbug kbnofix KB180495 kbAudDeveloper
©2002 Microsoft Corporation. All rights reserved.