Microsoft KB Archive/215442

= PRB: InteractiveChange Event of List Box Does Not Execute After Clicking and Dragging a List Box Item =

Article ID: 215442

Article Last Modified on 8/27/2002

-

APPLIES TO


 * Microsoft Visual FoxPro 6.0 Professional Edition

-



This article was previously published under Q215442



SYMPTOMS
The InteractiveChange event of a list box does not execute when the mouse button is clicked on a list box item, held while the mouse pointer is dragged to another item in the list box, and then released.



MORE INFORMATION
Using Visual FoxPro 3.0 or Visual FoxPro 5.0, depressing the left-mouse button with the mouse pointer on a list box item, dragging the mouse pointer to another item in the list box and then releasing the mouse button causes the ListBox.InteractiveChange event to execute. However, the InteractiveChange event does not fire in Visual FoxPro 6.0.

Steps to Reproduce Behavior
  Create a program file called "List.prg" using the following code: PUBLIC ox ox=CREATEOBJECT('listtest') ox.SHOW DEFINE CLASS listtest AS FORM HEIGHT = 168 WIDTH = 169 DOCREATE = .T.  AUTOCENTER = .T.   CAPTION = "Form1" NAME = "Form1"

ADD OBJECT list1 AS LISTBOX WITH ; HEIGHT = 120, ; LEFT = 24, ; TOP = 24, ; WIDTH = 120, ; NAME = "List1"

PROCEDURE INIT FOR i=1 TO 7 THISFORM.list1.ADDITEM(REPLICATE('0', ; 4-LEN(ALLTRIM(STR(i))))+ALLTRIM(STR(i))) NEXT ENDPROC

PROCEDURE list1.INTERACTIVECHANGE =MESSAGEBOX(this.value,64,'InteractiveChange') ENDPROC ENDDEFINE

 Click the left-mouse button on list box item "0001." While holding the left-mouse button down, move the mouse pointer to list box item "0005." Release the left-mouse button. Note that the code associated with the list1.INTERACTIVECHANGE event is not executed.

Using Visual FoxPro 3.x and Visual FoxPro 5.x, the list1.INTERACTIVECHANGE event code is executed.

(c) Microsoft Corporation 1999, All Rights Reserved. Contributions by John Desch, Microsoft Corporation.

Keywords: kbcontainer kbprb kbctrl kbpending KB215442

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.