MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    InputBox com encerramento automático

    Compartilhe
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 147
    Registrado : 24/02/2013

    InputBox com encerramento automático

    Mensagem  brunogor em Dom 17 Jan 2016, 22:08

    Viva a todos, aqui estou eu com mais uma dúvida este ano.
    O seguinte código é de um exemplo do Sr. Avelino Sampaio e serve para fazer uma Caixa de Mensagem encerrar automáticamente:

    Num Modulo
    Código:
    Public Function MsgBoxTimer(Seconds As Integer, Prompt As String, _
    Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
    Optional Title As String) As VbMsgBoxResult
    Dim wshell As Object
    Set wshell = CreateObject("WScript.Shell")
    MsgBoxTimer = wshell.PopUp(Prompt, Seconds, Title, Buttons)
    End Function


    e depois no Form
    Código:
    MsgBoxTimer 2,"Teste com a caixa de mensagem...", vbOKOnly, "Aviso"


    Como seria para fechar uma "Inputbox" automáticamente, passado um determinado tempo?

    Obrigado

    Bruno Gordino
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 664
    Registrado : 30/08/2010

    Re: InputBox com encerramento automático

    Mensagem  gilberlanio em Seg 18 Jan 2016, 16:42

    veja esse tópico
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

    [Você precisa estar registrado e conectado para ver este link.]

    Loja virtual - Gilberlânio Rocha
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 147
    Registrado : 24/02/2013

    InputBox com encerramento automático

    Mensagem  brunogor em Seg 18 Jan 2016, 21:40

    Viva,

    Dei uma olhada no tópico e mais parecido que vi algo mas para Visual Studio:
    [Você precisa estar registrado e conectado para ver este link.]

    Código:
    INPUTBOX(cInputPrompt [, cDialogCaption [, cDefaultValue [, nTimeout [,cTimeoutValue]]]])

    Código:
    Y = "Nothing at all"
    Y = INPUTBOX("TypeHere","Input ",Y,5000)
             && Displays dialog box for 5 seconds,
             && then displays anything typed or "Nothing at all"

    Entretanto deixo aqui o exemplo onde estou a fazer testes.

    Obrigado
    Anexos
    InputBox_Timer.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (421 Kb) Baixado 9 vez(es)

      Data/hora atual: Dom 24 Set 2017, 02:20