DOCUMENT:Q93215 04-MAY-2001 [vbwin] TITLE :Making Enter Key in Directory List Box Act Like Double-Click PRODUCT :Microsoft Visual Basic for Windows PROD/VER::1.0 OPER/SYS: KEYWORDS: ====================================================================== ------------------------------------------------------------------------------- The information in this article applies to: - Microsoft Visual Basic for MS-DOS 1.0 - Microsoft Visual Basic Standard Edition for Windows, versions 1.0, 2.0, 3.0 ------------------------------------------------------------------------------- SUMMARY ======= When you double-click an item in a directory list box control, it opens the directory and displays its subdirectories. The directory list box control ignores the Enter key by default. To cause a directory list box to treat the Enter key the same way as a double-click, set the Path property to List(ListIndex) from within the KeyPress event handler. MORE INFORMATION ================ The following code shows how to cause a directory list box to open the selected directory when the user presses the ENTER key. This code causes a Change event, just as when you double-click an item. Sub Dir1_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then Dir1.Path = Dir1.List(Dir1.ListIndex) End If End Sub If your form contains a command button with the Default property set to True, pressing the ENTER key clicks the command button instead of firing the KeyPress event. In this case, set the Path property to List(ListIndex) from within the button Click event handler. For example: Sub Command1_Click () Dir1.Path = Dir1.List(Dir1.ListIndex) End Sub Additional reference(s): Chapter 18, "Using the File-System Controls" of the "Microsoft Visual Basic for Windows Programmer's Guide" Chapter 10, "Using the File-System Controls" of the "Microsoft Visual Basic for MS-DOS Programmer's Guide" Additional query words: 1.00 2.00 3.00 ====================================================================== Keywords : Technology : kbVBSearch kbAudDeveloper kbVB300Search kbVB300 kbZNotKeyword3 kbVB100DOS Version : :1.0 ============================================================================= 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.