[Resolvido]Configurar botões do Access

Olá amigos!

Procurei no forum por botões e não encontrei nada que pudesse exclarecer minha duvida. que é a seguinte:

É possivel retirar a borda dos botões do access sem torna-lo transparente?


Desde já, obrigado!

Você pode usar rótulos no lugar de botões tambem, os quais pode colocar com borda, sem borda, em cores diferentes. E eles tem os principais eventos do botão, como "Ao clicar", "Ao pressionar mouse", etc. Mas há casos em que o botão é preferível ao invés do label. Nesses casos, pode colocar o label como fundo e o botão na frente, com fundo transparente e Transparência = Sim.

Criquio,

Obrigado pela atenção!

Essa opção que voce colocou eu conheço e já utilizei muito, porém, realmente gostaria de utilizar somente o botão de comando sem torna-lo transparente para não perder o seu efeito ao mover o mouse. Seria muito bom para o projeto que tenho em mente se fosse possivel apenas retirar a borda do botão.

Por acaso voce conhece algum código pra tornar somente a borda invisivel e ao mover o mouse retorna-la visivel novamente?

Ou, definitivamente, não é possivel de forma alguma fazer essa alteração no botão do Access?

Obrigado!

Como nas propriedades de um botão não existe essa possibilidade, acho meio difícil, mas pode ser que por API ou algum componente externo, exista algo que o permita. Como nunca precisei disso, nunca pesquisei.

Criquio,

Vou seguir o caminho que indicou e tentar encotrar uma forma de fazer isso. Caso eu tenha sucesso, retornarei com a solução.

Mais uma vez, muito obrigado por sua atenção.


Sucesso!

Criquio,

Reabri o tópico porque analisei um pouco mais o que pretendo e cheguei a seguinte conclusão:

Seria possivel através de um codigo retornar normal o fundo de um botão configurado como fundo transparente e depois torna-lo transparente novamente?

Esse evento ocorreria ao mover o mouse.

Isso atenderia a minha necessidade.


Sucesso!

Tentei o seguinte:

No evento ao mover o mouse...

Me.cmdSalva.Transparent = False

Mas não deu o resultado esperado.

Pessoal,

Fiz o simples:

Defini a propriedade "Estilo do fundo" do botão como "Transparente" e no evento "Ao mover mouse", inseri:

Me!cmdSalva.BackStyle = 1

E no detalhe do formulario, no evento "Ao mover mouse", inseri:

Me!cmdSalva.BackStyle = 0

Obtive o resultado desejado, porém, ao ficar movendo o mouse pelo detalhe o botão fica piscando rapidamente, como se tivesse alternando entre o transparente e o normal.

Alguém sabe como eu resolvo esse probleminha?

Sucesso!

O tópico desceu devido aos outros que foram sendo upados por isso nem vi as mensagens. Ideal seria se no vba tivesse as propriedades onMouseOver e onMouseOut do javascript por exemplo, mas há como contornar a situação deixando tudo no mousemove. Para isso, usaríamos a posição X e Y do cursor, comparando com uma certa distância da borda do botão para o centro. Por exemplo, podemos programar para que o efeito apareça quando o mouse estiver da distância de 100 twips da borda para o centro e quando for o inverso, o efeito seja desfeito. Algo assim:

If X > 100 And X < Me.NomeDoBotão.Width - 100 And Y > 100 And Y < Me.NomeDoBotão.Height - 100 Then
Me.Comando0.ForeColor = 255
Else
Me.Comando0.ForeColor = 0
End If

Criquio,

Da forma que voce colocou ficou melhor, mas ainda fica com o mesmo defeito quando o mouse se move sobre o botão.

Estou estudando uma forma semelhante a sua, se funcionar no perfeito eu retorno com o resultado.

Obrigado!

Pessoal,

Ainda estou estudando uma forma de me aproximar do resultado perfeito, mas vou deixar o link para quem interessar em conferir o resultado atingido até agora:

http://dl.dropbox.com/u/36798853/Sideagri2007.rar

Sucesso!

É mais ou menos por aí mesmo. Vou deixar só uma dica para economizar linhas de código. É só criar uma função assim:

Public Function Efeitos()

If X > 200 And X < Screen.ActiveControl.Width - 200 And Y > 200 And Y < Screen.ActiveControl.Height - 200 Then
Screen.ActiveControl.BackStyle = 1
Else
Screen.ActiveControl.BackStyle = 0
End If

End Function

Coloque essa função em um módulo público, e poderá usá-la em qualquer formulário para qualquer controle, bastando chamar a função no evento "Ao mover o mouse":

Call Efeitos

Criquio,

Achei ótima sua sugestão, porém, deu erro de variavel não definida.

O que pode ser?

Tente assim:

Public Function Efeitos(X As Single, Y As Single)

If X > 200 And X < Screen.ActiveControl.Width - 200 And Y > 200 And Y < Screen.ActiveControl.Height - 200 Then
Screen.ActiveControl.BackStyle = 1
Else
Screen.ActiveControl.BackStyle = 0
End If

End Function

E na chamada assim:

Call Efeitos(X, Y)

Agora não deu mensagem de erro, mas, eu chamei a função no botão "Cadastros" e o efeito ficou no botão "Movimentações", que é o botão de tem o foco quando o form é ativado.

Mas, também percebi que os defeitos foram minimizados.

Esqueci de dizer para colocar o foco no botão antes:

Me.NomeDoBotão.SetFocus
Call Efeitos(X, Y)

Criquio,

Dessa vez deu certo.

Ainda fica com o defeito de piscar, porém, menos notavel, e se passar o mouse muito rapido pelo botão ele não retorna ao efeito transparente.

Mas vou continuar estudando essa rotina, como ainda sou muito leigo em VBA vou ter que fazer muitos testes ainda pra tentar atingir o perfeito.

Muito obrigado pela atenção de sempre.

Sucesso!

Pessoal,

Vou dar como resolvido esse tópico. Se eu conseguir melhorar o efeito vou disponibilizar um exemplo no repositorio aos interessados.


Sucesso!