List Box

Printable View

Apr 26th, 2005, 08:42 PM
PaK4LyFe

List Box

What is the code for double clicking a certain item in a list box. (EX: when I double click something that says "VB6" in a list box; a form pops up.)

Re: List Box

VB Code:

Private Sub List1_DblClick()
 
MsgBox List1.List(List1.ListIndex)
 
End Sub

Apr 26th, 2005, 08:50 PM
PaK4LyFe

Re: List Box

this is only giving me if I click the list box as a whole. I meant a certain item in there...
Apr 26th, 2005, 08:55 PM
RhinoBull

Re: List Box

Rather than arguing given solution you should always try run it first - what Max gave you is absolutely correct: List1.List(List1.ListIndex) represents currently selected item in the list.

Re: List Box

VB Code:

Private Sub List_Click()
    MsgBox List.Text
End Sub

Apr 26th, 2005, 09:09 PM
RhinoBull

Re: List Box

For Mr. |2eM!x (only) ;)

Quote:

Originally Posted by PaK4LyFe

What is the code for double clicking a certain item in a list box. ...
Apr 26th, 2005, 09:13 PM
Jacob Roman

Re: List Box

:lol:

And also for |2eM!x

Quote:

Originally Posted by Pak4LyFe

this is only giving me if I click the list box as a whole. I meant a certain item in there...
Apr 26th, 2005, 09:16 PM
dglienna

Re: List Box
but it is
VB Code:
```
Msgbox List1.Text
```
Apr 26th, 2005, 09:18 PM
RhinoBull

Re: List Box

It is WHAT !?
Guy asked for DBLCLICK ... NOT SINGLE ...

Re: List Box

Quote:

Originally Posted by RhinoBull

Rather than arguing given solution you should always try run it first - what Max gave you is absolutely correct: List1.List(List1.ListIndex) represents currently selected item in the list.

Well, you don't have to double click the selected item for this code to run you could have double clicked an empty area in the ListBox which I think was what he referred to.

The following code works though:

VB Code:

Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
 
Private Declare Function SendMessageNull _
 Lib "user32.dll" Alias "SendMessageA" ( _
 ByVal hwnd As Long, _
 ByVal wMsg As Long, _
 ByVal wParam As Long, _
 ByVal lParam As Long) As Long
 
Private Const LB_GETITEMHEIGHT As Long = &H1A1
 
Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static nTick As Long
    Static nOldIndex As Long
    Dim nHeight As Long
    Dim nItem As Long
    
    If Button = vbLeftButton Then
        'calculate which item we have clicked on
        nHeight = SendMessageNull(List1.hwnd, LB_GETITEMHEIGHT, 0, 0) _
         * Screen.TwipsPerPixelY
        nItem = List1.TopIndex + (Y \ nHeight)
        'check if we actually clicked on an item
        If nItem < List1.ListCount Then
            If GetTickCount - nTick < 300 And nItem + 1 = nOldIndex Then
                'okidoki we have double clicked an item
                MsgBox List1.List(nItem)
            End If
        End If
        nTick = GetTickCount
        nOldIndex = List1.ListIndex + 1
    End If
End Sub

Apr 26th, 2005, 09:20 PM
Jacob Roman

Re: List Box
Quote:
Originally Posted by dglienna

but it is

VB Code:

Msgbox List1.Text
Oh. I tried it. Yeah as long as the MultiSelect isn't on. :bigyello:

I always used the List(List1.ListIndex) thing.
Apr 26th, 2005, 09:20 PM
dglienna

Re: List Box
Ok. Instead of List.text, it is List1.text
VB Code:
```
Private Sub List1_DblClick()
 
  MsgBox List1.text
 
End Sub
```
Apr 26th, 2005, 09:27 PM
RhinoBull

Re: List Box

Quote:

Originally Posted by Joacim Andersson

Well, you don't have to double click the selected item for this code to run you could have double clicked an empty area in the ListBox which I think was what he referred to. ...

No, that is NOT the case - if you click/dblclick on the "white" space in the listbox you won't get anything back ... only dblclicking on item will return "selected".
Apr 26th, 2005, 09:31 PM
Joacim Andersson

Re: List Box

Quote:

Originally Posted by RhinoBull

No, that is NOT the case - if you click/dblclick on the "white" space in the listbox you won't get anything back ... only dblclicking on item will return "selected".

Oh yeah, you're right. All my code for nothing :cry:. It's the ListView you can double click anywhere.
Apr 26th, 2005, 09:33 PM
RhinoBull

Re: List Box

That's exactly right! :wave:
Apr 26th, 2005, 09:50 PM
|2eM!x

Re: List Box

im confused..what is wrong with the code i posted? besides having a single click instead of dblclick?
Apr 26th, 2005, 09:57 PM
Joacim Andersson

Re: List Box

Quote:

Originally Posted by |2eM!x

im confused..what is wrong with the code i posted? besides having a single click instead of dblclick?

Nothing.
Apr 26th, 2005, 10:00 PM
dglienna

Re: List Box

You changed the name of the standard listbox, although you tend to do that pretty often. I corrected it to List1.text
Apr 26th, 2005, 10:02 PM
Jacob Roman

Re: List Box

And didn't read the post question carefully. It's cool. We all make mistakes. ;)
Apr 26th, 2005, 10:03 PM
Joacim Andersson

Re: List Box

Quote:

Originally Posted by Jacob Roman

And didn't read the post question carefully. It's cool. We all make mistakes. ;)

Yeah, I did one earlier in this thread :)
Apr 26th, 2005, 10:04 PM
|2eM!x

Re: List Box

i dont do it dg, stupid MZ tools does it or whatever that program is called..i wish i could turn that dang menu off...

pisses me off so much!
Apr 26th, 2005, 10:04 PM
RhinoBull

Re: List Box

Quote:

Originally Posted by |2eM!x

im confused..what is wrong with the code i posted? besides having a single click instead of dblclick?

NOTHING really, "besides having a single click instead of dblclick" - that was meant to be a little joke but I'm afraid you took it seriously ... :)
Apr 26th, 2005, 10:06 PM
Jacob Roman

Re: List Box

And the name of the Listbox too. Yeah take it easy |2eM!x. We were just pulling your chain. Everythings kool. ;)
Apr 26th, 2005, 10:10 PM
Joacim Andersson

Re: List Box

Quote:

Originally Posted by Jacob Roman

And the name of the Listbox too.

Well you can name a ListBox simply List if you want to.
Apr 26th, 2005, 10:11 PM
|2eM!x

Re: List Box

Quote:

Originally Posted by RhinoBull

It is WHAT !?
Guy asked for DBLCLICK ... NOT SINGLE ...

i totally thought you were serious :blush:
Apr 26th, 2005, 10:15 PM
RhinoBull

Re: List Box

Nah, not at this time - it's time for a little fun - 9 to 6 is when we should be serious ... :wave:
Apr 26th, 2005, 10:25 PM
Jacob Roman

Re: List Box

Sometimes is fun to pick on |2eM!x. But I have my limits since I'm not a total creep.
Apr 26th, 2005, 10:27 PM
dglienna

Re: List Box

Quote:

Originally Posted by |2eM!x

i dont do it dg, stupid MZ tools does it or whatever that program is called..i wish i could turn that dang menu off...

pisses me off so much!

You can turn it off, but a better answer would be not to rename variables or controls unless you give them meaningful names.
Apr 26th, 2005, 10:33 PM
|2eM!x

Re: List Box

im not gonna give it a meaningful name if im writing a 3 line code : /
Apr 26th, 2005, 10:40 PM
RhinoBull

Re: List Box

I think this thread is going nowhere and we should all stop replying as it was resolved many replies back. :wave:
Apr 26th, 2005, 10:45 PM
Joacim Andersson

Re: List Box

Quote:

Originally Posted by RhinoBull

I think this thread is going nowhere and we should all stop replying as it was resolved many replies back. :wave:

I agree! Let's stop. Rhino do you want to be the first that stops? If so please reply with a Yes otherwise please reply with a No. :bigyello:
Apr 26th, 2005, 10:49 PM
Jacob Roman

Re: List Box

Ok I'll stop too. Wait a minute. I'm supposed to be in bed. ZZZZZZzzzzzzzzzz
Apr 27th, 2005, 02:41 PM
PaK4LyFe

Re: List Box

thank you all, but how do i make a form come up? Like in my program, I need a chatbox to popup and have certain information in there that i know how to do. And how do u make it so more then 1 chatbox appear with the info that I clicked on.
For example, I DblClick on an Item in the list box that says someone's IP Address. Chatbox appears up. I dblclick anohter item with an IP address also, another chatbox pops up. So far i only got 1 chatbox poping up. I cant seem to get 2,3,4,5,etc....

Hope i wasn't too confusing ....
Apr 27th, 2005, 02:51 PM
dglienna

Re: List Box

Post the code that you are using...
Apr 27th, 2005, 03:09 PM
PaK4LyFe

Re: List Box
Whne you dblclick on item in listbox:
VB Code:
```
Private Sub Friends_DblClick()
MsgBox Friends.List(Friends.ListIndex)
If vbOK = 1 Then
Server.Show
End If
End Sub
```
I dont need a msgbox, I just need the chatbox to open up with the info I cliked in the listbox. And another chatbox, with a differnt item in the listbox.