DOCUMENT:Q142835 11-JAN-2001 [vbwin] TITLE :BUG: DBCombo Issues Click Event While Scrolling PRODUCT :Microsoft Visual Basic for Windows PROD/VER:4.00 | 4.00 OPER/SYS: KEYWORDS: ====================================================================== ------------------------------------------------------------------------------- The information in this article applies to: - Microsoft Visual Basic Professional Edition, 16-bit, for Windows, version 4.0 - Microsoft Visual Basic Professional Edition, 32-bit, for Windows, version 4.0 - Microsoft Visual Basic Enterprise Edition, 16-bit, for Windows, version 4.0 - Microsoft Visual Basic Enterprise Edition, 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 : Technology : kbVBSearch kbAudDeveloper kbVB400Search kbVB400 kbVB16bitSearch Version : 4.00 | 4.00 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 2001.