Object with single and double click

please help me out...

Tuesday, August 29, 2006 by HaemOGObliN | Discussion: DesktopX

Heya guys...

hope you're all going great!!

Please can somebody help me with this...

I want to make a button that makes my mp3 player play with a single click and stop with a double click.

I have no idea how to use Function OnControl(lType, lCode) ... can it even do what I want it to?

I'm trying this ...

Function OnControl(lType, lCode)

If lType = 2 And lCode = 0x0203
blah blah blah blah

------------

typing 0x0203 etc causes an error ... but i can't get anything right ...

but yeah ... i want single and double click on the same button one way or another.
Please please please help!!!

Thanks a million

1 Reply 4 Referrals
Skarny
Reply #1 Thursday, September 14, 2006 5:03 PM
I'm sure this has been tackled before by people, but the first idea that comes to my head is:

Dim clicked_once

Sub Object_OnLButtonUp(x,y,dragged)
If clicked_once = False then
clicked_once = True
Object.SetTimer 1,length_of_time_for_second_click
Else
clicked_once = False
Object.KillTimer 1
'do double click stuff
End If
End Sub

Sub Object_OnTimer1
clicked_once = False
Object.KillTimer 1
End Sub

*Code in theory*

Please login to comment and/or vote for this skin.

Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:

  • Richer content, access to many features that are disabled for guests like commenting on the forums and downloading skins.
  • Access to a great community, with a massive database of many, many areas of interest.
  • Access to contests & subscription offers like exclusive emails.
  • It's simple, and FREE!
Login

Home | About | Privacy | Upload Guidelines | Terms of Service | Help
Copyright © Stardock Corporation. All Rights Reserved.


web-wc01