mudar a cor do text box quando mudar o foco

[rafaeltejeda]

eu gostaria de saber como eu poderia fazer uma rotina pra quando eu colocar um foco em um campo ele mudar de cor e quando perder o foco ele voltar na cor original, eu achei esse código na net em vb etentei refazelo no .net mas me da um erro esse é o código em vb:

Private Sub Foco(ByRef txt As TextBox, Optional ByVal Cor As OLE_COLOR = vbYellow)
    With txt
        .SelStart = 0
        .SelLength = Len(.Text)
        .BackColor = Cor
    End With
End Sub

Private Sub Text1_GotFocus(Index As Integer)
    Call Foco(Text1(Index), vbYellow)
End Sub

Private Sub Text1_LostFocus(Index As Integer)
    Call Foco(Text1(Index), vbWhite)
End Sub

esse é o que eu tentei refazer em .net

Private Sub Foco(ByRef txt As TextBox, Optional ByVal Cor As ConsoleColor = ConsoleColor.Yellow)

With txt

.SelectionStart = 0

.SelectionLength = Len(.Text)

.BackColor = Color.Yellow

End With

End Sub

Private Sub Textbox1_GotFocus(ByVal Index As Integer)

Call Foco(Text(Index), ConsoleColor.Yellow)

End Sub

Private Sub Text_LostFocus(ByVal Index As Integer)

Call Foco(Text(Index), ConsoleColor.White)

End Sub

e ele da erro nessa trecho do código: Text(Index) fala que Erro 1 Valor do tipo 'Char' não pode ser convertido em 'System.Windows.Forms.TextBox'.

alguém pode me ajudar

grato

[Graymalkin]

Não existem mais arrays de controles no VB.NET, por isso não pode existir aquele parâmetro Index. Veja estes tópicos:

http://scriptbrasil.com.br/forum/index.php?showtopic=53280

http://scriptbrasil.com.br/forum/index.php?showtopic=74494

Abraços,

Graymalkin