Dubbelklik in een Autovorm

Status
Niet open voor verdere reacties.
D

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
720
Goedenavond,

De vraag is kan men ook dubbelklikken in een Autovorm voor een event?

Thanks

Dutch
 

Bijlagen

  • DubbelklikAutovorm.xls
    27,5 KB · Weergaven: 35
Nee, daar is geen dubbelklik event voor.
Maar je kan het wel simuleren:
Code: 
Sub File_Klikken()
    If LastClickObj = "" Then
        LastClickObj = Application.Caller
        LastClickTime = CDbl(Timer)
    Else
        If CDbl(Timer) - LastClickTime > 0.25 Then
            LastClickObj = Application.Caller
            LastClickTime = CDbl(Timer)
        Else
            If LastClickObj = Application.Caller Then
                MsgBox ("Dubbelklik)
                LastClickObj = ""
            Else
                LastClickObj = Application.Caller
                LastClickTime = CDbl(Timer)
            End If
        End If
    End If
End Sub
De 2e klik van een "dubbelklik" dient dan binnen een kwart seconde na de eerste klik te gebeuren.
 
Laatst bewerkt:
edmoor zei:
Nee, daar is geen dubbelklik event voor.
Maar je kan het wel simuleren:
Code: 
Sub File_Klikken()
    If LastClickObj = "" Then
        LastClickObj = Application.Caller
        LastClickTime = CDbl(Timer)
    Else
        If CDbl(Timer) - LastClickTime > 0.25 Then
            LastClickObj = Application.Caller
            LastClickTime = CDbl(Timer)
        Else
            If LastClickObj = Application.Caller Then
                MsgBox ("Dubbelklik)
                LastClickObj = ""
            Else
                LastClickObj = Application.Caller
                LastClickTime = CDbl(Timer)
            End If
        End If
    End If
End Sub
De 2e klik van een "dubbelklik" dient dan binnen een kwart seconde na de eerste klik te gebeuren.
Klik om te vergroten...

Hoi Edmoor, zou een mooie oplossing zijn, maar reageert niet.

Zou het geen change event of zo moeten zijn?

Hoe ga je aangeven als je een Autovorm aanklikt of hij reageert?
 
Laatst bewerkt:
Je moet natuurlijk wel die macro aan je vorm toewijzen.
 
He Edmoor, werkt, maar moet nog even uitwerken.

Gaan we morgen doen, toch thuis..

Thanks je hoort me morgen weer..
 
Klik met rechts op je vorm en kies Macro toewijzen.
 
Heb het gedaan Edmoor, vb-tje erbij weer.

Wat de doelstelling is zie op het werkblad.

Truste voor laters

Thanks
 

Bijlagen

  • DubbelklikAutovorm #2.xls
    35 KB · Weergaven: 28
Wat je doet in de voorbeeldcode helpt de hele structuur van het simuleren van dubbelklik om zeep.
 
Goedemorgen Edmoor,

We gaan weer verder :)

Heb een nieuw vb-tje bijgevoegd met de opzet van het geheel.

Wil graag een ladekast maken met bv. 5 x 3 laden.
Vervolgens als men op een lade klikt dat deze open gaat en je 7 mappen ziet;
Vervolgens als men op een map klikt dat er een document wordt geopend of een bestand;
Als men op een andere lade klikt zou de huidige weer dicht moeten gaan en de nieuwe open;
Als men op de Kast klikt zou alle laden dicht moeten zijn;

pff valt niet mee :)

Dit is het idee erachter
 

Bijlagen

  • DubbelklikAutovorm #3.xls
    55,5 KB · Weergaven: 29
Laatst bewerkt:
Goedenavond Edmoor,

Zijn weer een klein stukje verder.

Maar begrijp nog steeds niet wat je gisteravond bedoelde dat wat ik in de voorbeeldcode deed het hele structuur om zeep hielp??
 

Bijlagen

  • DubbelklikAutovorm #9.xls
    120 KB · Weergaven: 25
Laatst bewerkt:
Wat ik al zei, en zeker in je document in #10, heb je het simuleren van een dubbelklik, wat je originele vraag was, volledig overhoop geholpen.
Ik hou er niet van als ik goed werkende code lever die na eigen aanpassing niet meer werkt en mij dan gevraagd wordt er verder mee te stoeien.
Daar ga ik niet aan beginnen.
 
Hoi Edmoor,

Is met de beste bedoelingen, en probeer mee te denken.

Heb een vb-tje er weer bij gedaan zoals het was.

Krijg hem niet werkende, de map wordt alleen even blauw als je erop klikt.
 

Bijlagen

  • DubbelklikAutovorm #0.xls
    22 KB · Weergaven: 24
Dat het met de beste bedoelingen is begrijp ik wel :)
IK heb het wat makkelijker voor je gemaakt.
Test je document uit #12 hier, daarin hoef je NIETS in de FIle_klikken sub aan te passen:
Bekijk bijlage DubbelklikAutovorm #0.xls
 
Hoi Edmoor,

Thanks, maar werkt nog niet correct helaas.

Hij reageert niet als dubbelklikken, maar na de 2e klik geeft ie dubbelklikken aan..

Ga nu (weer) naar bedje toe en ga er morgen mee verder.

Nogmaals bedankt voor het meedenken.

Vr. Gr.

Dutch
 
Hoi Edmoor,

Ben er al de hele dag mee bezig, werkt nog steeds niet. Zelfde probleem nog
 
Dan kan ik er niks aan doen.
Het werkt hier prima in het document dat in #15 staat.
 
Jammer,

De opzet was als er een dubbelklik in het Autovorm voorkwam, om dan een actie te kunnen doen.

Maar geeft niet evengoed bedankt voor de hulp, tijd en inzet.

Vr. Gr.

Dutch
 
Wat je hierboven zegt is exact wat er in het document in #15 gebeurt.
Dubbelklik op een autovorm en werkt daarin prima.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan