Microsoft KB Archive/142835

= BUG: DBCombo Issues Click Event While Scrolling =

Article ID: 142835

Article Last Modified on 12/9/2003

-

APPLIES TO


 * Microsoft Visual Basic 4.0 Professional Edition
 * Microsoft Visual Basic 4.0 Professional Edition
 * Microsoft Visual Basic 4.0 16-bit Enterprise Edition
 * Microsoft Visual Basic 4.0 32-Bit Enterprise Edition

-



This article was previously published under Q142835



SUMMARY
While using the mouse to scroll through items in the list of a DBCombo control the DBCombo's Click event is fired for every row scrolled.



WORKAROUND
Do not rely upon the Click event of the DBCombo control to indicate when an item has been selected. One possible workaround to detect when a user has made a change would be to store the contents of the Text property of the DBCombo in the DBCombo's GotFocus event, and then check to see whether this had changed in the LostFocus event of the same control.



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



Steps to Reproduce the Problem
 Start Visual Basic, or if Visual Basic is already running, start a new project. Add a data control to Form1.  Change these properties of the data control: DatabaseName:  BIBLIO.MDB RecordSource:  Authors  Add a DBCombo control to the form.  Change these properties of the DBCombo control: RowSource:  Data1 ListField:  AU_ID   Add the following code to the Click event of DBCombo1: Private Sub DBCombo1_Click(Area As Integer) Debug.Print "CLICK" End Sub </li> Press F5 to run the application. Use the mouse to drop the combo box. Select a visible number and keep the mouse button depressed. Now drag downwards to force the list to scroll. Notice the generated "CLICK" statements in the debug window.</li></ol>

Additional query words: 4.00 vb4win vb4all

Keywords: kbbug KB142835

-

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

© Microsoft Corporation. All rights reserved.