MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Teclado Virtual

    ribeiroguaruja
    ribeiroguaruja
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 30/05/2015

    [Resolvido]Teclado Virtual Empty [Resolvido]Teclado Virtual

    Mensagem  ribeiroguaruja 17/6/2021, 03:22

    Boa noite pessoal...

    Estou utilizando o access 2013 no windows 10 32 bits.

    Procuro uma solução para complementar meu sistema para acesso via conexão remota pelo android num tablet!

    Estou à procura de procedimento para esconder o teclado virtual ao sair de um campo...

    agradeço a ajuda



    .................................................................................
    affraid
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

    [Resolvido]Teclado Virtual Empty Re: [Resolvido]Teclado Virtual

    Mensagem  ahteixeira 17/6/2021, 08:44

    Olá Nilton,

    Talvez fazer o "Kill" ao sair, veja aqui se ajuda:
    access-programmers.co.uk/forums/threads/trigger-windows-10-on-screen-keyboard-using-vba.290628/
    codeproject.com/Questions/159644/how-to-show-hide-windows-Virtual-keyboard


    Abraço
    ribeiroguaruja
    ribeiroguaruja
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 30/05/2015

    [Resolvido]Teclado Virtual Empty Re: [Resolvido]Teclado Virtual

    Mensagem  ribeiroguaruja 17/6/2021, 15:19

    bom dia Teixeira

    no meu caso, em todos forms onde tem entrada de dados, na ação "ao apertar mouse" eu abro o teclado virtual...

    essa parte já está ok

    agora preciso esconder este teclado "ao perder foco" do campo ou da caixa de texto

    para ficar parecido com o teclado automático do android

    [Resolvido]Teclado Virtual 1f601  [Resolvido]Teclado Virtual 1f609


    .................................................................................
    affraid
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

    [Resolvido]Teclado Virtual Empty Re: [Resolvido]Teclado Virtual

    Mensagem  ahteixeira 17/6/2021, 16:40

    Olá Nilton

    Não testei, mas poderia colocar no evento ao perder o foco (campo) quer seja por bater enter ou clicar noutro espaço.
    A questão será se passa de um campo para outro vai retirar o teclado e voltar a chamar.

    Veja também os eventos do formulário se ajuda

    [Resolvido]Teclado Virtual 0178

    Abraço
    ribeiroguaruja
    ribeiroguaruja
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 30/05/2015

    [Resolvido]Teclado Virtual Empty Re: [Resolvido]Teclado Virtual

    Mensagem  ribeiroguaruja 17/6/2021, 16:48

    Olá Teixeira

    não funciona

    só estou conseguindo minimizar o menu pelo botão minimizar do mesmo

    já procurei uma solução e não encontrei

    grato
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

    [Resolvido]Teclado Virtual Empty Re: [Resolvido]Teclado Virtual

    Mensagem  ahteixeira 17/6/2021, 16:56

    Olá,

    Baixou e testou o exemplo do primeiro link?
    Se não conseguir, monte um pequeno formulario onde pretende ter o teclado e partilhe a base de dados para se testar.

    Abraço
    ribeiroguaruja
    ribeiroguaruja
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 30/05/2015

    [Resolvido]Teclado Virtual Empty Re: [Resolvido]Teclado Virtual

    Mensagem  ribeiroguaruja 17/6/2021, 18:49

    Olá Teixeira

    Agora funcionou perfeitamente

    obrigado pela atenção...

    segue o conteúdo do link...

    Código:
    Dim lngPtr As Long
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

    'Call Wow64DisableWow64FsRedirection prior to calling ShellExecute and Wow64RevertWow64FsRedirection, immediately after.
    Private Declare Function Wow64DisableWow64FsRedirection Lib "kernel32.dll" (ByRef ptr As Long) As Boolean
    Private Declare Function Wow64RevertWow64FsRedirection Lib "kernel32.dll" (ByRef ptr As Long) As Boolean

    Public Function ShowKeyboard()
    Call Wow64DisableWow64FsRedirection(lngPtr)
    ShellExecute 0, "open", "osk.exe", "", "", vbNormalFocus
    Call Wow64RevertWow64FsRedirection(lngPtr)
    End Function

    Public Function HideKeyboard()
    Call Wow64DisableWow64FsRedirection(lngPtr)
    ShellExecute 0, "open", "tskill", "osk", "", vbHidden
    Call Wow64RevertWow64FsRedirection(lngPtr)
    End Function
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

    [Resolvido]Teclado Virtual Empty Re: [Resolvido]Teclado Virtual

    Mensagem  ahteixeira 18/6/2021, 09:16

    Olá Nilton,

    Fico feliz por ter resolvido.
    Obrigado pelo retorno, o fórum agradece.

    Abraço


      Data/hora atual: 1/8/2021, 12:19