Solved

.ListIndex = -1 causing erratic results

Posted on 2004-10-20
12
326 Views
Last Modified: 2010-05-02
On some of my combo boxes (multiselect = extended), with certain items or selection of items selected, [controlname].ListIndex = -1 deselects all the items in the combobox but they stay highlighted.

In other words:  sometimes after using [controlname].ListIndex = -1,  PatientList.ListCount = 0 but the item(s) in the list remains highlighted.

Any suggestions?  Thanks!
0
Comment
Question by:thenelson
  • 4
  • 2
  • 2
  • +3
12 Comments
 
LVL 26

Expert Comment

by:EDDYKT
ID: 12362155
You need to do this to clear


For i = 1 To List1.ListCount
List1.Selected(i - 1) = False
Next
0
 
LVL 26

Assisted Solution

by:EDDYKT
EDDYKT earned 250 total points
ID: 12362162
By the way are you talking combo box or list box?
0
 
LVL 48

Expert Comment

by:Mikal613
ID: 12362678
change there style = 2
0
 
LVL 39

Author Comment

by:thenelson
ID: 12363987
'For i = 0 To PatientList.ListCount - 1
'    PatientList.Selected(i) = False
'Next i

would be faster than:

For i = 1 To List1.ListCount
List1.Selected(i - 1) = False
Next

(doesn't require the (i-1) calculation with each iteration.)

I'm going for the more elegant, faster solution of .listindex=-1.

It's a combo box.

I need the additional function of style=3.

I meant to put this question in the Access channel -- oh well.
0
 
LVL 13

Accepted Solution

by:
Michael_D earned 250 total points
ID: 12364497
From MSDN:

"For a control in which users can make multiple selections, this property's behavior depends on the number of items selected.If only one item is selected, ListIndex returns the index of that item. In a multiple selection, ListIndex returns the index of the item contained within the focus rectangle, whether or not that item is actually selected."

Therefore setting ListIndex = -1 will not clear .Selected property for items but only will remove the current item from the Box
Even that only in case of simple combo.


Regards,

Michael
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 39

Author Comment

by:thenelson
ID: 12364862
Thanks Michael.  
Good info!
0
 
LVL 39

Author Comment

by:thenelson
ID: 12364877
I made a mistake -- it is a list box.

in another thread, someone suggested using [controlname]=null.  That creates the same condition as .listindex=-1.  Is that also not reliable?
0
 
LVL 27

Expert Comment

by:Ark
ID: 12366698
Try API instead:
SendMessage list1.hwnd,LB_SETSEL,False,ByVal -1
0
 
LVL 8

Expert Comment

by:Ashutosh Vyas
ID: 12397468
.listindex = -1 works well for me.
0
 
LVL 13

Expert Comment

by:Michael_D
ID: 12432681
thenelson tried to find "the more elegant, faster solution of .listindex=-1."
But it isn't perfect world therefor I think EDDYKT gave the right solution
and I have explained why thenelson's method will not work.

So I suggest :
>>> Split
EDDYKT - 250
Michael_D - 250

Best regards,

Michael

0
 
LVL 39

Author Comment

by:thenelson
ID: 12435579
A split sounds good to me.

Nelson
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

920 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now