Início![[Resolvido]Zoom em Forms Empty](https://2img.net/i/empty.gif)
Rui_Parente 12/1/2011, 11:44Olá a todos,
sabem da existência de algum código que permita fazer "zoom" (+ ou -) num form?
Obrigado por qualquer ajuda
sabem da existência de algum código que permita fazer "zoom" (+ ou -) num form?
Obrigado por qualquer ajuda
4 participantes
[Resolvido]Zoom em Forms
Rui_Parente- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 60
Registrado : 06/01/2011
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Pesquise a função MoveSize. Você pode usá-la para obter o resultado esperado:
DoCmd.MoveSize 0, 0, 5000, 3500 ' DoCmd.MoveSize Direita, Abaixo, Largura, Altura
Você pode tentar algo assim no botão de aumentar:
DoCmd.MoveSize 0, 0, 5000 + 200, 3500 + 170
e no botão de diminuir:
DoCmd.MoveSize 0, 0, 5000 - 200, 3500 - 170
O mais prático é você trabalhar com variáveis para poder obter um melhor resultado:
Dim Larg As String, Altr As String
Larg = 5000
Altr = 3500
DoCmd.MoveSize 0, 0, Larg, Alt
Nos botões:
DoCmd.MoveSize 0, 0, Larg + 200, Alt + 170
DoCmd.MoveSize 0, 0, Larg - 200, Alt - 170
DoCmd.MoveSize 0, 0, 5000, 3500 ' DoCmd.MoveSize Direita, Abaixo, Largura, Altura
Você pode tentar algo assim no botão de aumentar:
DoCmd.MoveSize 0, 0, 5000 + 200, 3500 + 170
e no botão de diminuir:
DoCmd.MoveSize 0, 0, 5000 - 200, 3500 - 170
O mais prático é você trabalhar com variáveis para poder obter um melhor resultado:
Dim Larg As String, Altr As String
Larg = 5000
Altr = 3500
DoCmd.MoveSize 0, 0, Larg, Alt
Nos botões:
DoCmd.MoveSize 0, 0, Larg + 200, Alt + 170
DoCmd.MoveSize 0, 0, Larg - 200, Alt - 170
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Rui_Parente- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 60
Registrado : 06/01/2011
Olá bom dia,
Vou então tentar e já digo algo.
Obrigado.
Vou então tentar e já digo algo.
Obrigado.
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Caso não queira mexer nas posições do form em relação à esquerda e ao topo da tela, pode suprimir essas medidas:
DoCmd.MoveSize , , Larg + 200, Alt + 170
DoCmd.MoveSize , , Larg + 200, Alt + 170
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Gostaria de entender que tipo de zoom você necessita no form.
É estar dentro de uma caixa de texto e fazer zoom ?
É estar o form aberto e ter uma tecla para aumentar o form e outra para reduzir ?
Aguardo
É estar dentro de uma caixa de texto e fazer zoom ?
É estar o form aberto e ter uma tecla para aumentar o form e outra para reduzir ?
Aguardo
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvido]Zoom em Forms Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Rui_Parente- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 60
Registrado : 06/01/2011
Ainda não tive tempo para testar a dica anterior, mas a ideia é fazer zoom do form por inteiro (+ e -).
Obrigado
Obrigado
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Qual é a versão do Access?
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Rui_Parente- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 60
Registrado : 06/01/2011
É o 2003 (continua a ser o meu preferido).
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Talvez experimentado assim sobre a caixa de texto
SendKeys "{+F2}", True
Para objectos, não para o form
SendKeys "{+F2}", True
Para objectos, não para o form
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Talvez o que você esteja querendo seja um exemplo que se adapte a diferentes configurações de vídeos. Tem um exemplo no repositório de exemplos e tambem no portal svcsoftwarehouse.com
Dê uma olhada se não é isso que pretendes.
Dê uma olhada se não é isso que pretendes.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Se for isso tem aqui
Access-Redimensione formulários MS Access para ajustar à resolução atual da tela
http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000200
Access-Redimensione formulários MS Access para ajustar à resolução atual da tela
http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000200
Rui_Parente- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 60
Registrado : 06/01/2011
Não é bem isso.
O que tinha em mente seria algo que é possível fazer nos browsers de internet. Qualquer coisa desse género.
O que tinha em mente seria algo que é possível fazer nos browsers de internet. Qualquer coisa desse género.
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
No Ms Access, por KeyCode não dá para fazer o que você pretende, tipo dos Browsers com a tecla Ctrl+Roda do mouse.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Rui_Parente- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 60
Registrado : 06/01/2011
Olá e desculpem a demora.
Eu gostaria de fazer algo assim num form que utilizo, mas não sendo possível, ele continua a ser muito funcional.
Obrigado, de qualquer forma.
Eu gostaria de fazer algo assim num form que utilizo, mas não sendo possível, ele continua a ser muito funcional.
Obrigado, de qualquer forma.
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Obrigado pelo retorno