Selected Prop of List Box Can Cause Click Event & Out of Stack

MORE INFORMATION

   [form.]{filelistbox|listbox}.Selected(index)[ = {True|False}]
				

   True  = The item is selected.
   False = (Default) The item is not selected.
				

Changing Item's Selected Property Can Cause Second Click Event

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add a list box (list1) to Form1. (Or you can use a file list box.)
3. Add the following code to the Form Load event:

      Sub Form_Load ()
         For i = 1 To 5
            list1.AddItem Str$(i)  'Add more than 2 items to the list box.
         Next
      End Sub
   						

4. Add the following code to the List1 Click event:

      Sub List1_Click ()
         Static x   ' Preserve the value of x between Click events.
         x = x + 1  ' Increment the count of Click events.
         Print x    ' Print the cumulative number of click events.
         ' The following statement only causes a second event when an item
         ' other than the first item is clicked. Clicking the first item
         ' (item 0) does not cause a second event, because list1.Selected(0)
         ' is already True:
         list1.Selected(0) = True   ' Selects the first item.
      End Sub
   						

5. Start the program, or press the F5 key. Click any list box item other than the first. That causes two Click events. Click the first item in the list box. That causes just one Click event. Click more items to repeat the same behavior. Close the form to end the program.

How to Make File List Box Items That Can Be Scrolled, But Not Selected

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add a file list box to Form1.
   
   
   1. a. Add the following code to the File1 Click event:

            Sub File1_Click ()
               ' If no item is selected in the file list box, exit the sub:
               If File1.ListIndex = -1 Then Exit Sub
               File1.Selected(File1.ListIndex) = False
            End Sub
      								

      NOTE: If you left out the above If statement, then the File1.Selected(File1.ListIndex) statement would give the following error when you click the file list box:
      Invalid property array index (Error 381)
      The index value of the File1.Selected() property must be greater than 0. By default, File1.ListIndex starts as -1.
   2. Instead, you can add the following code to the File1 Click event. In this example, the focus always reverts to the first item when you click any other item. The first item remains unselected (without highlight). The focus is indicated by a dotted box around the item.

            Sub File1_Click ()
               ' NOTE: If you delete the following line, you get "Out of Stack
               ' Space" due to recursion (about 30 iterations):
               If File1.ListIndex = -1 Then Exit Sub
               File1.Selected(0) = True
               File1.Selected(0) = False  'Resets first item to nonselected.
            End Sub
      								

3. Start the program, or press the F5 key. Now you can click items in the file list box, but they won't be selected or highlighted.