View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Robert Crandal Robert Crandal is offline
external usenet poster
 
Posts: 309
Default Listbox questions

Thank you thank you..... that was doubly helpful!



"Dave Peterson" wrote in message
...
I'm not quite sure what you're looking for, but you could use the .value
and/or
the .listindex and the .list properties and the _click event--if you only
allow
a single selection.

If you allow multiselection, you could use the _change event. (Actually,
you
could use the _change event in both single/multi selection cases.

Option Explicit
Private Sub ListBox1_Click()
With Me.ListBox1
MsgBox .Value & vbLf & .ListIndex _
& vbLf & .List(.ListIndex)
End With
End Sub

or
Option Explicit
Private Sub ListBox1_Change()
With Me.ListBox1
If .ListIndex -1 Then
MsgBox .ListIndex _
& vbLf & .Selected(.ListIndex) _
& vbLf & .List(.ListIndex)
End If
End With
End Sub

========
But I'm not sure I'd use either of these events. I find it more usual (as
a
user) to allow me to pick and choose the selection(s) I want. I can
change my
mind lots of times before I commit my choice.

And I usually have to hit an ok commandbutton to tell the program that I'm
done.

With a single selection:
Option Explicit
Private Sub CommandButton1_Click()

With Me.ListBox1
If .ListIndex < 0 Then
MsgBox "nothing chosen"
Else
MsgBox .ListIndex & vbLf & .Value & vbLf & .List(.ListIndex)
End If
End With
End Sub
Private Sub UserForm_Initialize()
Dim iCtr As Long

With Me.ListBox1
.Clear
.MultiSelect = fmMultiSelectSingle
For iCtr = 1 To 20
.AddItem "A" & iCtr
Next iCtr
End With

Me.CommandButton1.Caption = "Ok"
End Sub

With multiselect:

Option Explicit
Private Sub CommandButton1_Click()

Dim iCtr As Long


With Me.ListBox1
For iCtr = 0 To .ListCount - 1
If .Selected(iCtr) Then
MsgBox iCtr & vbLf & .List(iCtr)
End If
Next iCtr
End With
End Sub
Private Sub UserForm_Initialize()
Dim iCtr As Long

With Me.ListBox1
.Clear
.MultiSelect = fmMultiSelectMulti
For iCtr = 1 To 20
.AddItem "A" & iCtr
Next iCtr
End With

Me.CommandButton1.Caption = "Ok"
End Sub

Again, you can actually use the loop with the single selection, but why
bother.


Robert Crandal wrote:

If I add like 20 items to my userform's listbox control, how can I
determine if a user selects or double clicks on item 10?? I'm
just trying to figure out which event handles when an item is
selected or double clicked.

Thank you


--

Dave Peterson