Alguns aplicativos possuem a seguinte função:

 

Exemplo do "RegClean.exe"

 

Se clicar no aplicativo uma vez ele abre normal, se der um duplo-clique, ele abre executando a função de scaneamento do registro.

 

Como o software entende que foi clicado duas vezes ou apenas uma?

 

Se tenho um programa de consulta de arquivos no disco, e clico uma vez ele abre normal, queria que quando clicasse duas vezes ele abrisse executando a função de busca.

Alguns controles têm a propriedade click e dblclick( o commandbutton não), exemplo:

Private Sub Label1_Click()

Faz isto

End Sub

Private Sub Label1_DblClick()

Faz aquilo

End Sub

 

Seria isto que queria?

 

Então será uma questão de utilizar um outro controle.

Ainda não é isto! Vou tentar ser mais claro.

 

para abrir um aplicativo normalmente, você deverá clicar duas vezes no seu respectivo ícone ou executável. Ele abrirá normalmente. A função que gostaria de colocar no meu software é a do 3º clique. Ou seja, se clicar duas vezes ele abrirá normalmente, se clicar 3 vezes ele abrirá executando alguma função.

 

Fui mais claro??

Josefh uzando um terceiro clique não sei te dizer, mas voce pode utilizar com uma tecla precionada. Eu fiz uma funcaozinha abaixo que vc podera colocar no seu primeiro form e ela ira executar determinada funcao se abrir com a tecla shift e abre normalmente se não entrar no sistema sem precionar shift. Acho que talvez possa ajuda-lo

 

Dim CONTEXECUCAO As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    'EXEMPLO UTILIZANDO A TECLA SHIFT
    If (Shift = 1) And (CONTEXECUCAO = 0) Then
        RODAFUNCAO()
        CONTEXECUCAO = 1
    End If

CONTEXECUCAO = 1

End Sub

Private Sub Form_Load()
    CONTEXECUCAO = 0
End Sub
um abraço

 

A função abaixo executa uma mensagem se depois do formulário aberto for pressionada a tecla SHIFT. Pois bem: Para abrir um programa vc poderá clicar duas vezes no executável ou selecioná-lo e teclar "ENTER".

 

Precisava que essa função fosse habilitada para ser executada antes do evento load do form. Ou seja se simplesmente teclar "ENTER" o programa abre, porém se teclar "ENTER" com a tecla "SHIFT" pressionada, o programa abre exibindo a mensagem conforme o exemplo abaixo.

 

Dim CONTEXECUCAO As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    'EXEMPLO UTILIZANDO A TECLA SHIFT
    If (Shift = 1) And (CONTEXECUCAO = 0) Then
        MsgBox "Abriu com o SHIFT"
        CONTEXECUCAO = 1
    End If
CONTEXECUCAO = 1

End Sub
Private Sub Form_Load()
    CONTEXECUCAO = 0
End Sub