Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[Resolvido] Alterar como é exibido resultado da pesquisa
[Resolvido] Alterar como é exibido resultado da pesquisa
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:
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
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.
- Reinaldo
- 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
Para habilitar edição nos controles:
Para desabilitar controles e alterar sua cor de fundo para cinza
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
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
Re: Alterar como é exibido resultado da pesquisa
estou tentando achar onde eu altero isso, porem até agora nada :S
Re: Alterar como é exibido resultado da pesquisa
Caso alguem possa me ajudar eu ficaria bem grato
O unico lugar que achei algo se referindo ao "Enabled" foi neste trecho:
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
O unico lugar que achei algo se referindo ao "Enabled" foi neste trecho:
porem tentei alterar e não funcionou.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
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
Re: Alterar como é exibido resultado da pesquisa
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?
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?
Re: Alterar como é exibido resultado da pesquisa
Opa amigo esta ai
o arquivo tentei alterar ai para locked, porem ele simplesmente fica editável normalRe: Alterar como é exibido resultado da pesquisa
Essa mudança resolve o problema:
No futuro, eu gostaria de ver um pull request disso no github
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
- Reinaldo
- 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
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:
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
Re: Alterar como é exibido resultado da pesquisa
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.
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.
Re: Alterar como é exibido resultado da pesquisa
Obrigado ambos pela ajuda, e novamente parabéns ao tomas pelo seu sistema que ficou espetacular