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

    [Resolvido]Impor um Limite para o Mouse Andar

    Compartilhe

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Qui 21 Dez 2017, 15:56

    Existe alguma maneira de colocar um limite num form para o mouse não passar desse limite?

    Ou então desabilitar o Segundo Clique?

    Eu vou por aqui 2 prints para entenderem melhor a minha duvida



    Ou seja se der duplo clique lá em cima...
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Fica assim:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    As 2 soluções que vejo, é uma maneira de desactivar o duplo clique, caso clique 2 vezes não faça nada, ou impor o limite do mouse, não passar lá para cima

    Alguma sugestão?

    Obrigado
    avatar
    luissiscone
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 16/02/2011

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  luissiscone em Sex 22 Dez 2017, 13:41

    Ve se este exemplo te atende !

    Código:
    Option Compare Database

    #If VBA7 And Win64 Then
           Private Declare PtrSafe Function ClipCursor Lib "user32" (lpRect As Any) As Long
           Private Declare PtrSafe Function ShowCursor Lib "user32" (ByVal bshow As Long) As Long
    #Else
           Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
           Private Declare Function ShowCursor Lib "user32" (ByVal bshow As Long) As Long
    #End If

    Private Type RECT
           Left As Long
           Top As Long
           Right As Long
           Bottom As Long
    End Type

    Public Function LimitaMouse(Optional X1 As Integer, Optional Y1 As Integer, Optional X2 As Integer, Optional Y2 As Integer) As Variant
           Dim retangulo As RECT
           retangulo.Left = X1
           retangulo.Top = Y1
           retangulo.Right = X2
           retangulo.Bottom = Y2
           ClipCursor retangulo
    End Function

    Private Sub Form_Load()
           LimitaMouse 50, 100, 300, 200
    End Sub

    Private Sub Form_Timer()
           If TimerInterval = 5000 Then
             LimitaMouse 1000, 1000, 1000, 1000
           End If
    End Sub
    Anexos
    Database1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 11 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9860
    Registrado : 04/11/2009

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  JPaulo em Sex 22 Dez 2017, 14:27

    Uma forma de não permitir duplo cklick no titulo do form e ele alterar o redimensionamento é:

    1º PopUp = Sim
    2º Estilo da Borda = Dialog
    3º Auto Redimensionamento = Não

    E voilá.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    Sucesso e Bons Estudos
    Success and Good Studies

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

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Sex 22 Dez 2017, 19:55

    irei tentar as 2 assim que possivel

    Muito obrigado pelas respostas, aguardem o meu retorno

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Qua 10 Jan 2018, 08:55

    Passado tanto tempo finalmente vou poder conseguir testar

    Mais uma vez aguardem o meu retorno

    Obrigado

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Qua 10 Jan 2018, 09:19

    JPaulo, eu tentei primeira a sua, e sem sucesso Sad

    Caso tenha se esquecido de mais alguma opção por favor informe aqui no tópico

    No entanto muito obrigado pela sua resposta e pelo seu tempo

    Irei agora tentar a do luissiscone, e já digo qualquer coisa Smile

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Qua 10 Jan 2018, 09:33

    tentei tambem a opção luissiscone, mas fica muito pequeno, eu tentei colocar outros valores mas fica sempre demasiado pequeno

    Não tem como colocar os valores certos, ou dizer-me os valores certos?

    Obrigado

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Qui 11 Jan 2018, 09:09

    up

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Seg 15 Jan 2018, 08:58

    up

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  Noobezinho em Seg 15 Jan 2018, 09:51

    Diogo

    Uma pergunta:

    Já foi em Arquivo --> opções Access --> Banco de dados atual --> Opções da Janela Documento --> Janelas Sobrepostas?

    Selecionou essa última?

    Se caso não seja isso:
    O primeiro formulário está tomando a tela toda?


    Explique melhor para entendermos o que deseja.

    [ ]'s

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Seg 15 Jan 2018, 10:03

    Noobezinho,

    Como sabe o windows tem uma definição de double click, ou seja quando clique 2 vezes rápido em cima de uma janela tanto access tanto google chorme tanto alguma coisa, ela maximiza ou minimiza correto?

    Eu queria arranjar alguma maneira de tal não acontecer, ou seja, quando alguém cliquar 2 vezes no titulo do access da base de dados, ele não pode minimizar

    Já me fiz entender amigo?

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  Noobezinho em Seg 15 Jan 2018, 10:25

    Diogo

    experimente isso, na folha de propriedades do formulário:

    Caixa de controle = não
    Botão fechar = não
    Botão Min Max = Nenhum

    Aguardo...

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Seg 15 Jan 2018, 10:31

    acabei de tentar amigo

    Tentei com as suas definiçoes, não deu, depois manti as suas definições, acresentei as do JPaulo também e nada Sad

    Sem Sucesso Sad

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  Noobezinho em Seg 15 Jan 2018, 10:47

    Tem algo errado ai, meu amigo, porque aqui funciona perfeitamente, fiz vários testes antes de enviar a mensagem

    Experimente em outro formulário, se for preciso crie  outro e coloque essas propriedades para ver se funfa

    Mas, podemos radicalizar, se ainda não conseguir, eu passo outra opção mais radical Razz

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Seg 15 Jan 2018, 11:25

    poderia-me passar esse formulário que funciona para eu testar aqui?

    Pode ter a ver com uma outra opção que esteja ativa

    Abraço

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  Noobezinho em Seg 15 Jan 2018, 12:16

    Estou enviado o exemplo com 2 formulários, da mesma tabela.

    O formulário cópia, já está com as propriedades e está funfando  legal aqui na minha máquina.

    Deixei o frm_Clientes para você definir as propriedades e testar.

    [ ]'s

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Qua 17 Jan 2018, 09:30

    olá de novo

    Eu tenho na minha bd, um hide, ele esconde o access, ou seja eu adiciono
    Código:
    DoCmd.maximize

    E ele abre em toda a tela, e o access fica por baixo, ou seja, parece um progama real em full screen

    E Quando meto o formulário igual nos meus, cliquo 2 vezes no titulo e ele minimiza na mesma

    Quer a minha bd para testar?

    Posso colocar o hide na sua e mandar para donwload

    Abraço, e desculpa pelo atrasado da resposta


    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  Noobezinho em Qua 17 Jan 2018, 09:48

    Diogo


    Envie parte do teu BD, para testar.

    Aguardo...


    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Qui 18 Jan 2018, 12:58

    ai tem, coloquei no form Cópia de frm_Clientes

    Abraço

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  Noobezinho em Qui 18 Jan 2018, 13:19

    Diogo

    O anexo não veio Rolling Eyes


    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Qui 18 Jan 2018, 14:09

    erro meu foi mal


    Anexos
    TesteForm.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 7 vez(es)

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  Noobezinho em Qui 18 Jan 2018, 20:58

    Diogo

    Realmente, não funciona quando o formulário está maximizado, deve ser padrão, para que se comporte como todo aplicativo, ao clicar duas vezes no cabeçalho.

    Mas dá para fazer o seguinte:

    Crie um formulário para teste,  na folha de propriedades, coloque o Estilo de borda = Nenhum

    Isso fará que o formulário fiquem sem o cabeçalho.

    Retire também os botões de navegação e as barras de rolagem.

    Então caso queira, você pode simular um cabeçalho usando um controle caixa.

    Qualquer dúvida, retorne.

    [ ]'s

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Qui 18 Jan 2018, 21:46

    irei tentar assim que possivel Wink

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  diogoisaias21 em Seg 22 Jan 2018, 11:51

    tentei o estilo de borda nenhum e funcionou Wink

    Muito obrigado mais uma vez

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Impor um Limite para o Mouse Andar

    Mensagem  Noobezinho em Seg 22 Jan 2018, 13:44

    Ótimo !!


    Valeu o retorno

    Boa sorte !

      Data/hora atual: Ter 19 Jun 2018, 01:47