Double Clicking List Items

[BefunMunkToloGen]

Can you make say a msgbox pop up when 1 item in a list is double clicked?

Thanks

[Arachnid13]

Private Sub List1_DblClick()
msgbox "MESSAGE TO POP UP"
End Sub

[dglienna]

You may want to time the clicks, but this is the basics.

Option Explicit
 
Private Sub Form_Load()
List1.AddItem 1
List1.AddItem 2
 
End Sub
 
Private Sub List1_Click()
Static clcount
clcount = (clcount + 1)
If clcount = 2 Then Msgbox "Double-Clicked!" : clcount = 0
End Sub

[Arachnid13]

You may want to time the clicks, but this is the basics.

Option Explicit
 
Private Sub Form_Load()
List1.AddItem 1
List1.AddItem 2
 
End Sub
 
Private Sub List1_Click()
Static clcount
clcount = (clcount + 1)
If clcount = 2 Then Msgbox "Double-Clicked!" : clcount = 0
End Sub

ummm... why do it this complicated? whats wrong with the double click event?

[BefunMunkToloGen]

The list data is text and also i want the message box to be different for each list item.. thanks :P

@Arachnid13, im not trying to make it so when someone double clicks the list a message box appears, i want it so when they click a single item (i.e not the whole list) the message box appears.

Cheers

[vbasicgirl]

Private Sub List1_DblClick()
 Msgbox List1.List(List1.Listindex)
End Sub

casey.

[BefunMunkToloGen]

That works fine, but I want it like this (sorry its late here lol).

On double clicking 1234 it says "Hello"
On double clicking item4 it says "tralala"

1234 and item4 are different items if you know what i mean.

[vbasicgirl]

if you want different for each one then you may have to do a select case

Select Case List1.List(List1.Listindex)
 Case "1234"
   msgbox "Hello"
 Case "something else"
   msgbox "tralala"
End Select

if you have a lot of different items then it may be better to put all the answers in a array then call the array like this

Private Sub List1_DblClick()
 Msgbox thearray(List1.Listindex)
End Sub

casey.

[BefunMunkToloGen]

What would i do without you? lol thanks al lot casey and everyone else