PERCORRER COMPONENTES TABCONTROL
Galera seguinte.
Eu uso essa rotina (que eu achei aqui mesmo) para ver quais campos são obrigatorios.
For Each c In Me.TabControlInfoExtra.Controls
If (TypeOf c Is TextBox Or TypeOf c Is MaskedTextBox Or TypeOf c Is ComboBox) And (c.Tag = [Ô]*[Ô]) Then
If (c.Text = [Ô][Ô]) Or (c.Text = [Ô] / /[Ô]) Then
c.BackColor = Color.LightCoral
Cont_Erros_Obrigatorios += 1
End If
End If
Next
Levando em conta que a Tag de cada Campo foi Preenchida....
O Caso é o seguinte, ele nao ta percorrendo os controles....
Alguem tem alguma ideia de como faz para ele percorrer?
Eu uso essa rotina (que eu achei aqui mesmo) para ver quais campos são obrigatorios.
For Each c In Me.TabControlInfoExtra.Controls
If (TypeOf c Is TextBox Or TypeOf c Is MaskedTextBox Or TypeOf c Is ComboBox) And (c.Tag = [Ô]*[Ô]) Then
If (c.Text = [Ô][Ô]) Or (c.Text = [Ô] / /[Ô]) Then
c.BackColor = Color.LightCoral
Cont_Erros_Obrigatorios += 1
End If
End If
Next
Levando em conta que a Tag de cada Campo foi Preenchida....
O Caso é o seguinte, ele nao ta percorrendo os controles....
Alguem tem alguma ideia de como faz para ele percorrer?
flefle
não testei nada, pode ser besteira o que percebi.
como vc colocou um And, depois dos Or na condição if,
If (TypeOf c Is TextBox Or TypeOf c Is MaskedTextBox Or TypeOf c Is ComboBox) And (c.Tag = [Ô]*[Ô]) Then
não deveria separar assim:
If ((TypeOf c Is TextBox Or TypeOf c Is MaskedTextBox Or TypeOf c Is ComboBox) And (c.Tag = [Ô]*[Ô])) Then
não testei nada, pode ser besteira o que percebi.
como vc colocou um And, depois dos Or na condição if,
If (TypeOf c Is TextBox Or TypeOf c Is MaskedTextBox Or TypeOf c Is ComboBox) And (c.Tag = [Ô]*[Ô]) Then
não deveria separar assim:
If ((TypeOf c Is TextBox Or TypeOf c Is MaskedTextBox Or TypeOf c Is ComboBox) And (c.Tag = [Ô]*[Ô])) Then
Não não o Problema não é a condição.....
Assim um exemplo....
Nos GroupBox existem 2 Textbox....
Quando eu faço esse for ele pega e percorre todos os 2 Textbox e verifico o TAG de cada um....
Quando eu faço esse for no TabControl e não verifica os textbox, resumindo ele nao verifica nenhum controle que eu tenha colocado....
Gostaria de saber como que eu faço isso.....
Assim um exemplo....
Nos GroupBox existem 2 Textbox....
Quando eu faço esse for ele pega e percorre todos os 2 Textbox e verifico o TAG de cada um....
Quando eu faço esse for no TabControl e não verifica os textbox, resumindo ele nao verifica nenhum controle que eu tenha colocado....
Gostaria de saber como que eu faço isso.....
Se tiver como você postar está parte do código em anexo para analisarmos seria de uma grande ajuda.
Att,
Lucas
Att,
Lucas
Achei a Solução...
For Each P As TabPage In TabControl1.TabPages
For Each ctrl As Control In P.Controls
If (TypeOf ctrl Is TextBox) And (ctrl.Tag = [Ô]*[Ô]) Then
ctrl.BackColor = Color.LightCoral
End If
Next
Next
Primeiro eu devo entrar nas TabPages e depois eu procuro os Componentes....
Deu Certo!!! Obrigado a Todos que me ajudaram!!!!
For Each P As TabPage In TabControl1.TabPages
For Each ctrl As Control In P.Controls
If (TypeOf ctrl Is TextBox) And (ctrl.Tag = [Ô]*[Ô]) Then
ctrl.BackColor = Color.LightCoral
End If
Next
Next
Primeiro eu devo entrar nas TabPages e depois eu procuro os Componentes....
Deu Certo!!! Obrigado a Todos que me ajudaram!!!!
Tópico encerrado , respostas não são mais permitidas