bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Formulário de Fundo

Formulário de Fundo

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

Usuário Vinicius:

Boa Tarde!

Em meu sistema implementei a tela principal, que deve ficar aberta e maximizada sempre durante o uso do sistema. Criei o formulário frmPrinc com as seguintes características:

Propriedade Estilo da borda , na aba Formato, como Nenhuma

"Popup" e "Janela restrita" da aba Outra, como Não

No evento Ao carregar, DoCmd.Maximize.

Ao abrir o sistema, o resultado desejado ocorre conforme a figura 1.  Ao abrir o formulário da figura 2 e fechar, o formulário frmPrinc fica apresentado como na figura 3. Você tem alguma dica de como posso resolver isto?

OBS: Estou tentando usar esta solução em virtude das limitações da fondoaccess....

Figura 1

Formulario de Fundo

Figura 2

Formulario de Fundo

Figura 3

Formulario de Fundo

Suporte:

Vinicius, experimente usar o MOVE no lugar do Maximizar.

Algo assim:

Me.Move 0, 0, 567 * 45, 567 * 24

Neste meu exemplo o formulário fica com 45cm de comprimento por 24cm de largura.

Usuário Vinicius:

Muito obrigado. Ajustei como mencionou e aparentemente está Ok.  Resta apenas uma dúvida: conforme a figura abaixo, o formulário apresenta a(s) barra(s) de rolagem.   Tem como suprimir isto ?

Formulario de Fundo

 

Suporte:

Vinicius, passe o código para o evento no timer e acrescente este código:

Private Sub Form_Timer()
Dim altura, largura
'passa o formulário para maximizado.
DoCmd.Maximize
'captura os valores de largura e altura do formulário maximizado
largura = Me.InsideWidth
altura = Me.InsideHeight
'retira o formulário de maximizado
DoCmd.Restore
'ajusta o formulário para as dimensões do maximizado
Me.Move 0, 0, largura, altura
Me.TimerInterval = 0
end sub

Usuário Vinicius:

Avelino, problema resolvido.  Disponibilizo abaixo, um pequeno exemplo de como ficou....

Download

 


 

 


1 comentário(s)

Alailton Gama   07/04/2019 03:42:40

UMA FORMA LEGAL SERIA SE TIVESSE UM FORM PARA TROCAR A IMAGEM... PQ SE VOCÊ DISTRIBUI O SISTEMA, QUEM ADQUIRIR PODE PERSONALIZAR


Envie seu comentário: