Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[Resolvido] Alterar como é exibido resultado da pesquisa

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
LorDz
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Qua Jan 03, 2018 8:41 pm

[Resolvido] Alterar como é exibido resultado da pesquisa

Mensagem por LorDz »

Ao pesquisar algum cadastro feito no modelo e dar 2 clicks, podemos visualizar o o aplicativo com todas as caixas de texto com o "enabled" desativado:

Imagem

porem como pode ser visto nesta imagem, as coisa aparecendo em "cinza" ficam meio ruim de ser visualizadas, alem de não poder mexer na scrollbar da caixa serviços, gostaria de saber então se é possível alterar a maneira como é exibido o resultado da pesquisa, para em vez de ficar com "enable:False" ficar com o "locked:True" assim a pessoa pode visualizar e até copiar as informações.

sei que clicando no "alterar" torna o texto editável, e assim mais fácil de ver, mas também torna possível da pessoa acabar modificando algo sem nem perceber, podendo assim causar problemas indesejados
Editado pela última vez por LorDz em Seg Out 15, 2018 11:15 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Alterar como é exibido resultado da pesquisa

Mensagem por Reinaldo »

Para habilitar edição nos controles:

Código: Selecionar todos

Private Sub DesabilitaControles()
    txtCodigoFornecedor.Locked = True
    txtNomeEmpresa.Locked = True
    txtNomeContato.Locked = True
    txtCargoContato.Locked = True
    txtEndereco.Locked = True
    txtCidade.Locked = True
    txtRegiao.Locked = True
    txtCEP.Locked = True
    txtPais.Locked = True
    txtTelefone.Locked = True
    txtFax.Locked = True
    txtHomePage.Locked = True
'Altera cor de fundo dos controles retornando cor tradicional
    txtNomeEmpresa.BackColor = -2147483633
    txtNomeContato.BackColor = -2147483633
    txtCargoContato.BackColor = -2147483633
    txtEndereco.BackColor = -2147483633
    txtCidade.BackColor = -2147483633
    txtRegiao.BackColor = -2147483633
    txtCEP.BackColor = -2147483633
    txtPais.BackColor = -2147483633
    txtTelefone.BackColor = -2147483633
    txtFax.BackColor = -2147483633
    txtHomePage.BackColor = -2147483633
End Sub
Para desabilitar controles e alterar sua cor de fundo para cinza

Código: Selecionar todos

Private Sub HabilitaControles()
    txtCodigoFornecedor.Locked = False
    txtNomeEmpresa.Locked = False
    txtNomeContato.Locked = False
    txtCargoContato.Locked = False
    txtEndereco.Locked = False
    txtCidade.Locked = False
    txtRegiao.Locked = False
    txtCEP.Locked = False
    txtPais.Locked = False
    txtTelefone.Locked = False
    txtFax.Locked = False
    txtHomePage.Locked = False
'Altera cor de fundo do controle
    txtNomeEmpresa.BackColor = -2147483643
    txtNomeContato.BackColor = -2147483643
    txtCargoContato.BackColor = -2147483643
    txtEndereco.BackColor = -2147483643
    txtCidade.BackColor = -2147483643
    txtRegiao.BackColor = -2147483643
    txtCEP.BackColor = -2147483643
    txtPais.BackColor = -2147483643
    txtTelefone.BackColor = -2147483643
    txtFax.BackColor = -2147483643
    txtHomePage.BackColor = -2147483643
End Sub


LorDz
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Qua Jan 03, 2018 8:41 pm

Re: Alterar como é exibido resultado da pesquisa

Mensagem por LorDz »

estou tentando achar onde eu altero isso, porem até agora nada :S


LorDz
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Qua Jan 03, 2018 8:41 pm

Re: Alterar como é exibido resultado da pesquisa

Mensagem por LorDz »

Caso alguem possa me ajudar eu ficaria bem grato

O unico lugar que achei algo se referindo ao "Enabled" foi neste trecho:
Private Sub AlteraModo(ByVal Edicao As Boolean)
Dim ctl As MSForms.Control
'controles de input
For Each ctl In Me.Controls
If IsInputControl(ctl) Then
ctl.Enabled = Edicao
End If
Next

'excessão
txtCodigo.Enabled = False

'botoes de navegacao
btnOk.Enabled = Edicao
btnCancelar.Enabled = Edicao
btnPrimeiro.Enabled = Not Edicao
btnAnterior.Enabled = Not Edicao
btnProximo.Enabled = Not Edicao
btnUltimo.Enabled = Not Edicao
'os options buttons de operacao
optAlterar.Enabled = Not Edicao
optExcluir.Enabled = Not Edicao
optNovo.Enabled = Not Edicao

If Not Edicao Then
optAlterar.Value = False
optExcluir.Value = False
optNovo.Value = False
lblStatus.Caption = ""
End If

modoEdicao = Edicao
porem tentei alterar e não funcionou.

eu uso o padrão Gerador de Cadastros 2018, só fiz algumas pequenas alterações nas textbox nada mais e precisava modificar isto como descrevi.

ou tornar a visualização da pesquisa em outra cor, ou preferencialmente no modo locked do textbox ai caso a pessoa deseje alterar algo ela o faça clicando na opção normalmente


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Alterar como é exibido resultado da pesquisa

Mensagem por webmaster »

LorDz,

Alterar essa função deveria ser o suficiente. Porém, nem todos os controles possuem a propriedade locked, por isso usei enabled.

Pode mostrar sua versão do código?


LorDz
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Qua Jan 03, 2018 8:41 pm

Re: Alterar como é exibido resultado da pesquisa

Mensagem por LorDz »

Opa amigo esta ai
projeto.rar
(70.58 KiB) Baixado 344 vezes
o arquivo tentei alterar ai para locked, porem ele simplesmente fica editável normal


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Alterar como é exibido resultado da pesquisa

Mensagem por webmaster »

Essa mudança resolve o problema:

Código: Selecionar todos

Private Sub AlteraModo(ByVal Edicao As Boolean)
    Dim ctl As MSForms.Control
    'controles de input
    For Each ctl In Me.Controls
    
        If IsInputControl(ctl) Then
           ctl.Locked = Not Edicao
        End If
    Next
    
    'excessão
    txtCodigo.Enabled = False
    
    'botoes de navegacao
    btnOk.Enabled = Edicao
    btnCancelar.Enabled = Edicao
    btnPrimeiro.Enabled = Not Edicao
    btnAnterior.Enabled = Not Edicao
    btnProximo.Enabled = Not Edicao
    btnUltimo.Enabled = Not Edicao
    'os options buttons de operacao
    optAlterar.Enabled = Not Edicao
    optExcluir.Enabled = Not Edicao
    optNovo.Enabled = Not Edicao
    optAlterar.Locked = Edicao
    optExcluir.Locked = Edicao
    optNovo.Locked = Edicao
   
    If Not Edicao Then
        optAlterar.Value = False
        optExcluir.Value = False
        optNovo.Value = False
        lblStatus.Caption = ""
    End If
    
    modoEdicao = Edicao
End Sub
No futuro, eu gostaria de ver um pull request disso no github ;)


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Alterar como é exibido resultado da pesquisa

Mensagem por Reinaldo »

Tomas, não havia visto essa nova versão do modelo cadastro, muito boa; e uma verdadeira aula sobre uso de classes; parabéns. Faltou, na minha opinião, uma divulgação maior no fórum (quiça nos fóruns irmãos Guru / Planilhando) sobre essa nova ferramenta.
Contudo, as versões iniciais, muito mais simples já resultaram num numero impressionante de requisições de adaptações; essa nova versão, bem mais (visualmente) complexa deverá sobrepujar (ou afugentar) "news pull request".Não sei se vou acompanhar no Git (falta de costume) mas...
Agora sobre a alteração proposta; sem uma verificação mais profunda a mesma atende o solicitado; porem "desabilita" a utilização dos botões de opção: "Novo, Alterar, Excuir".
Será preciso novo desenvolvimento ou incluir esses btns nas exceções:

Código: Selecionar todos

    'excessão
    'txtCodigo.Enabled = False
    optAlterar.Locked = Edicao: optExcluir.Locked = Edicao: optNovo.Locked = Edicao


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Alterar como é exibido resultado da pesquisa

Mensagem por webmaster »

Valeu pela força Reinaldo,

Também levou um tempo para o primeiro modelo se popularizar. Como a intenção não é lucrar diretamente, não vejo problema em que ele vá conquistando adeptos com o tempo. Usar o git foi uma forma que encontrei de engajar os desenvolvedores VBA a começar a usá-lo e também facilitar a colaboração.

Ainda pretendo publicar mais conteúdo sobre isso.


LorDz
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Qua Jan 03, 2018 8:41 pm

Re: Alterar como é exibido resultado da pesquisa

Mensagem por LorDz »

Obrigado ambos pela ajuda, e novamente parabéns ao tomas pelo seu sistema que ficou espetacular


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder