|
|
Postada em 24/06/2004 17:01 hs
Olá, Gostaria de saber se tem como simplificar a seguinte rotina. Quando um campo recebe o foco ele fica com uma outra cor de fundo, e qdo perde o foco fica com a cor inicial... até ai tudo bem... mas acontece q isso tem q ser feito um por um... ColorGot = "&H00F0F0F0"
ColorLost = "&H80000005" Private Sub Txtsenha_GotFocus()
txtSenha.BackColor = ColorGot
End Sub Private Sub Txtsenha_LostFocus()
txtSenha.BackColor = ColorLost
End Sub Eu gostaria de fazer o seguinte... cria uma funcao q faça isso sem especificar o nome do campo por ex: this.backcolor = colorlost (em vb isso não funciona) *E tbm isso seria implementado com Keypress para mudar de campo... |
|
|
|
|
|
|
|
Postada em 24/06/2004 17:15 hs
Não sei se isso vai te ajudar, pois vc terá de colocar isso no GotFocus e no LostFocus(ou no Validate, que eu acho melhor) do mesmo jeito.
Screen.ActiveControl.BackColor
________________________ Té + Que NIMB role bons Dados! 
|
|
|
|
|
|
Postada em 24/06/2004 17:22 hs
posso dar uma sugestao pra vc , nos seus texts crie arrays, ele vai ficar assim : text1(0).text , entendeu. dai o q vc vai fazer no evento q vc quer q mude a cor coloque um Select case especificando o text q ira mudar de cor . Select case index case 0,1,2,3 comando pra mudar a cor end select pois atraves do select ele ira verificar qual text esta executando o evento. OK
------------------------------------------------------------------------------------------------------------------------------------------------------------------------- tom -Catanduva/SP Analista Sistemas - Visual Basic 6 - VB.NET "Confiai perpetuamente no Senhor, porque o Senhor Deus é uma Rocha Eterna" Isaías 26:4 
|
|
|
|
|
|
Postada em 24/06/2004 17:40 hs
Tom, valeu pela resposta... + no meu sistema num iria da muito certo usar array... + valew mesmo assim... Waldir, esse esquema funcionou muito bem... quebrou mó galho... + eu to usando nos eventos got e lost focus... vc disse que no validate ficaria melhor, como? Public Function ComFoco()
Screen.ActiveControl.BackColor = "&H00F0F0F0"
End Function Private Sub txtNome_GotFocus()
ComFoco
End Sub ta blz assim... + se der pra melhorar, melhor ainda...  Muito Obrigado... - Eriston |
|
|
|
|
|
Postada em 24/06/2004 17:47 hs
________________________ Té + Que NIMB role bons Dados!
|
|
|
|
|
|
Postada em 24/06/2004 18:00 hs
Acho que aqui num vou ter esse tipow de problema usando o lostfocus... valeu pela ajuda... t+ - Eriston |
|
|
|
