DOCUMENT:Q190258  11-DEC-1999  [foxpro]
TITLE   :BUG: Pressing ESC Twice in Combo Box Resets ListIndex Property
PRODUCT :Microsoft FoxPro
PROD/VER:WINDOWS:3.0,3.0b,5.0,5.0a
OPER/SYS:
KEYWORDS:

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

 - Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b, 5.0, 5.0a 
-------------------------------------------------------------------------------

SYMPTOMS
========

When you make a selection from a combo box and you reopen the combo box and
press the ESC key twice, the ListIndex property of the combo box changes to zero
even though an item is still selected.

STATUS
======

Microsoft has confirmed this to be a bug in the Microsoft products listed at the
beginning of this article. We are researching this bug and will post new
information here in the Microsoft Knowledge Base as it becomes available.

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

The ListIndex property of a list box or combo box specifies the index number of
the selected item in a combo box or list box control. The index number should be
a non-zero value if an item is selected. However, in this case, it returns a
zero value for the index number even though an item is selected.

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

The following example echoes the method being called and the value of the combo
box ListIndex property each time either the Valid or KeyPress events of the
combo box execute.

1. Run the following code from a program (.PRG) file:

         PUBLIC oform1
         oform1=CREATEOBJECT("form1")
         oform1.SHOW

         DEFINE CLASS form1 AS FORM
            AUTOCENTER = .T.
            NAME = "Form1"
            DIMENSION aarray[1]

            ADD OBJECT combo1 AS COMBOBOX WITH ;
               ROWSOURCETYPE = 5, ;
               ROWSOURCE = "thisform.aArray", ;
               HEIGHT = 24, ;
               LEFT = 144, ;
               TOP = 36, ;
               WIDTH = 100, ;
               NAME = "Combo1"

            ADD OBJECT edit1 AS EDITBOX WITH ;
               HEIGHT = 109, ;
               LEFT = 12, ;
               TOP = 96, ;
               WIDTH = 348, ;
               NAME = "Edit1"

            PROCEDURE LOAD
               DIME THIS.aarray[10]
               FOR lni = 1 TO ALEN[this.aArray]
                  THIS.aarray[lni] = 'Number '+ALLTR(STR(lni))
               ENDF
            ENDPROC

            PROCEDURE combo1.VALID
               THISFORM.edit1.VALUE = PROGRAM()+' '+STR(THIS.LISTINDEX)+ ;
                  CHR(13)+ THISFORM.edit1.VALUE
            ENDPROC

            PROCEDURE combo1.KEYPRESS
               LPARAMETERS nKeyCode, nShiftAltCtrl
               THISFORM.edit1.VALUE = PROGRAM()+' '+STR(THIS.LISTINDEX)+ ;
                  CHR(13)+ THISFORM.edit1.VALUE
            ENDPROC

         ENDDEFINE

2. Click the down arrow of the combo box to open the combo box. Using the mouse,
   select "Number 2" from the combo box. This closes the combo box.

3. Next, click the down arrow of the combo box to open the combo box again.
   Press the ESC key twice. The first click closes the drop-down combo box. The
   second ESC resets the value the ListIndex to zero (0).

REFERENCES
==========

Visual FoxPro Help; search on: "ListIndex" (without the quotation marks)
(c) Microsoft Corporation 1998, All Rights Reserved.
Contributions by Jim Saunders, Microsoft Corporation


Additional query words: kbDSupport kbDSE kbnokeyword

======================================================================
Keywords          :  
Technology        : kbVFPsearch kbAudDeveloper kbVFP300 kbVFP300b kbVFP500 kbVFP500a
Version           : WINDOWS:3.0,3.0b,5.0,5.0a
Issue type        : kbbug

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

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.