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]Código que altere resolução do monitor

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3911
    Registrado : 06/11/2009

    [Resolvido]Código que altere resolução do monitor Empty [Resolvido]Código que altere resolução do monitor

    Mensagem  Assis em 28/1/2019, 18:21

    Boa tarde Amigos

    Alguém tem um exemplo de BD que permita mudar a resolução do monitor (tela)?

    Obrigado


    Última edição por Assis em 29/1/2019, 10:09, editado 1 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 22/11/2016

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  IvanJr. em 28/1/2019, 23:40

    *Nobre Assis, sugiro alteração do nome do tópico para "Código que altere resolução do monitor", ou algo mais descritivo.

    Lembro de já ter visto algo que fazia isso, talvez outro membro relembre de onde.

    Qual a finalidade? Talvez haja outra solução. Não é o ideal que o desenvolvedor altere configurações na máquina do cliente.


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2047
    Registrado : 13/04/2012

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Fernando Bueno em 29/1/2019, 02:21

    Boa noite;

    Lembro de um exemplo do mestre João Paulo que alterava a resolução da tela, se não me

    engano era um exemplo de reservas em pousada, acredito que seja o que você procura Assis.



    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Código que altere resolução do monitor 16rzeq
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3911
    Registrado : 06/11/2009

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Assis em 29/1/2019, 10:21

    Bom dia

    Ivan e Fernando a ideia é:
    Eu executo as BD na resolução 1366 * 768 e ao abrir noutra resolução a visualização é diferente.
    Então se ao abrir a BD num monitor com a resolução do monitor diferente de 1366*768, mudava a resolução para a dita resolução, e ao fechar a BD voltava a mudar a resolução para a original.

    Obrigado





    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  ahteixeira em 29/1/2019, 10:27

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3911
    Registrado : 06/11/2009

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Assis em 29/1/2019, 10:47

    Obrigado Teixeira



    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3911
    Registrado : 06/11/2009

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Assis em 29/1/2019, 11:57

    Bom dia Amigos

    Teixeira no exemplo que me indicou tem a função abaixo.

    Tenho que mudar alguma coisa ?

    Meu monitor o máximo é 1366*768

    Obrigado

    Código:
    Function SizeAccess()
    Dim cx As Long, cy As Long, cHeight As Long
    Dim cWidth As Long, H As Long

    H = Application.hWndAccessApp
    cx = 80: cy = 80: cWidth = 640: cHeight = 480

    SetWindowPos H, HWND_TOP, cx, cy, cWidth, cHeight, SWP_NOZORDER
    End Function


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  JPaulo em 29/1/2019, 12:42

    Código:
    'Num modulo novo, cole e salve:

    'Digite a resolução em que os seus formularios
    'foram criados, exemplo 1336

    Global Const DesignResolutionX = 1336


    Global Const WM_HORZRES = 8
    Global Const WM_VERTRES = 10

    Dim Width As Integer
    Dim Factor As Single

    #If VBA7 Then 'para 64 bits
    Declare PtrSafe Function WM_apiGetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal hdc As Long, ByVal nIndex As Long) As Long
    Declare PtrSafe Function WM_apiGetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
    Declare PtrSafe Function WM_apiGetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long
    Declare PtrSafe Function WM_apiReleaseDC Lib "user32" Alias "ReleaseDC" (ByVal hwnd As Long, ByVal hdc As Long) As Long
    Declare PtrSafe Function WM_apiGetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
    #Else 'para 32 bits
    Declare Function WM_apiGetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal hdc As Long, ByVal nIndex As Long) As Long
    Declare Function WM_apiGetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
    Declare Function WM_apiGetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long
    Declare Function WM_apiReleaseDC Lib "user32" Alias "ReleaseDC" (ByVal hwnd As Long, ByVal hdc As Long) As Long
    Declare Function WM_apiGetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
    #End If

    Public Function GetScreenResolution() As String
    'retorna a altura e a largura
    Dim DisplayHeight As Integer
    Dim DisplayWidth As Integer
    Dim hDesktopWnd As Long
    Dim hDCcaps As Long
    Dim iRtn As Integer

    'API que obtem a resolução atual
        hDesktopWnd = WM_apiGetDesktopWindow()
        hDCcaps = WM_apiGetDC(hDesktopWnd)
        DisplayHeight = WM_apiGetDeviceCaps(hDCcaps, WM_VERTRES)
        DisplayWidth = WM_apiGetDeviceCaps(hDCcaps, WM_HORZRES)
        iRtn = WM_apiReleaseDC(hDesktopWnd, hDCcaps)
        GetScreenResolution = DisplayWidth & "x" & DisplayHeight
        Width = DisplayWidth

    End Function

    Public Sub ReSizeForm(frm As Form)
    Dim ctl As Control

    On Error Resume Next
    SetFactor 'chama o sub SetFactor
        With frm
        .Width = frm.Width * Factor
        End With
        For Each ctl In frm.Controls
        With ctl
        .Height = ctl.Height * Factor
        .Left = ctl.Left * Factor
        .Top = ctl.Top * Factor
        .Width = ctl.Width * Factor
        .FontSize = .FontSize * Factor
        End With
    Next ctl
    End Sub

    Sub SetFactor()
        GetScreenResolution 'chama a função GetScreenResolution
        Factor = Width / DesignResolutionX
    End Sub

    'Para chamar, no evento VBA ao carregar do seu formulario;

    'Private Sub Form_Load()
    '    Call ReSizeForm(Me)
    'End Sub


    .................................................................................
    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]Código que altere resolução do monitor Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código que altere resolução do monitor Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código que altere resolução do monitor Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3911
    Registrado : 06/11/2009

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Assis em 1/2/2019, 12:16

    Boa tarde Amigos

    Esta BD é para quem usa resolução superior a 1024*768, e o Monitor onde possa ser aberta é de resolução diferente.

    Ao abri esta BD de exemplo é convidado a alterar a resolução para a resolução em que a BD foi criada.

    Ao fechar a mesma BD a resolução do Monitor volta ao tamanho original. ????????????

    (No meu funciona espero que me informem como se porta nos Vossos Monitores).

    Testem e retornem.

    Aguardo
    Anexos
    [Resolvido]Código que altere resolução do monitor AttachmentAlterar Resolução Para a Ideal da BD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (50 Kb) Baixado 14 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 897
    Registrado : 01/03/2014

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Celso Roberto em 1/2/2019, 20:20

    Olá Assis

    Eu tenho este que uso que salvo engano foi criado pelo Criquio
    Veja se te ajuda

    Abraços
    Anexos
    [Resolvido]Código que altere resolução do monitor AttachmentFormTamanhoDaTela_Criquio.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 13 vez(es)


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3911
    Registrado : 06/11/2009

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Assis em 1/2/2019, 20:44

    Obrigado Celso



    .................................................................................
    *** Só sei que nada sei ***
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 897
    Registrado : 01/03/2014

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Celso Roberto em 21/2/2019, 19:42

    Olá Assis..

    E este como esta?
    Resolveu ?

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3911
    Registrado : 06/11/2009

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Assis em 22/2/2019, 10:44

    Bom dia Celso

    O seu exemplo é bom para quem vai fazer uma BD nova. Agora para alterar uma já feita dá muito trabalho.

    Optei por um exemplo que ao abrir uma BD se a resolução do Vídeo for diferente da resolução em que foi feita a BD, convida o utilizador a alterar a resolução do vídeo para a resolução em que foi feita a BD.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 897
    Registrado : 01/03/2014

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Celso Roberto em 1/3/2019, 14:53

    Olá Assis,

    Obrigado pelo retorno

    Também guardei seu exemplo para uso posterior

    Abraços



    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 22/11/2016

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  IvanJr. em 12/3/2019, 12:47

    Aqui, Assis
    Anexos
    [Resolvido]Código que altere resolução do monitor AttachmentResolução.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (372 Kb) Baixado 7 vez(es)


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3911
    Registrado : 06/11/2009

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Assis em 12/3/2019, 14:50

    Ivan

    Testei num monitor com resolução 1920x1080.

    A abrir muda a resolução.

    Mas ao fechar não retorna o valor inicial e dá o error da imagem que anexo.

    Obrigado
    [Resolvido]Código que altere resolução do monitor Sem_tz84


    .................................................................................
    *** Só sei que nada sei ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 22/11/2016

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  IvanJr. em 12/3/2019, 15:25

    Aqui funciona tranquilo. Testei em todas as resoluções disponíveis na minha máquina. Tenta essa variação.
    Anexos
    [Resolvido]Código que altere resolução do monitor AttachmentResolução2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (373 Kb) Baixado 7 vez(es)


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3911
    Registrado : 06/11/2009

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Assis em 12/3/2019, 17:26

    Ivan

    Eis o erro, na minha BD.

    O exemplo eu o Ivan postou funciona bem.


    [Resolvido]Código que altere resolução do monitor Sem_tz85


    .................................................................................
    *** Só sei que nada sei ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 22/11/2016

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  IvanJr. em 12/3/2019, 19:23

    Observe no meu arquivo que na função "ChangeRes" os parâmetros são recebidos por valor (ByVal). Faça as mesmas alterações no seu arquivo.


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3911
    Registrado : 06/11/2009

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Assis em 12/3/2019, 20:04

    Ivan

    Resolvi ….

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado

    [Resolvido]Código que altere resolução do monitor Empty Re: [Resolvido]Código que altere resolução do monitor

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 08:04