BUG: DBCombo Issues Click Event While Scrolling

ID: Q142835


The information in this article applies to:
  • Microsoft Visual Basic Professional and Enterprise Editions, 16-bit and 32-bit, for Windows, version 4.0


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.


MORE INFORMATION

Steps to Reproduce the Problem

  1. Start Visual Basic, or if Visual Basic is already running, start a new project.


  2. Add a data control to Form1.


  3. Change these properties of the data control:
    
       DatabaseName:   BIBLIO.MDB
       RecordSource:   Authors 


  4. Add a DBCombo control to the form.


  5. Change these properties of the DBCombo control:
    
       RowSource:   Data1
       ListField:   AU_ID 


  6. Add the following code to the Click event of DBCombo1:
    
       Private Sub DBCombo1_Click(Area As Integer)
           Debug.Print "CLICK"
       End Sub 


  7. 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.


Additional query words: 4.00 vb4win vb4all

Keywords : PrgCtrlsCus
Version : 4.00 | 4.00
Platform : NT WINDOWS
Issue type :


Last Reviewed: September 1, 1999
© 2000 Microsoft Corporation. All rights reserved. Terms of Use.