hola
no te entendi la parte de "nombre txt entonces me que me extraiga las 3 primeras letras para preguntar si es un txt "
peo para lo demas esto te puede servir:
'este codigo va en una clase
'es importante poner en la función los parametros q reciba como Byref
Public Shared salida As Boolean = True
''' <summary>
''' Controlar que las cajas de texto/mascaras con la propiedad Tag=* esten llenas
''' </summary>
''' <param name="Form_Controlw">Form, siempre se debera poner: Me</param>
''' <param name="errorprovider_">Se debe agregar un objeto del tipo ErrorProvider al form para pasarlo a este</param>
Public Shared Function camposObligatoriosCajas(ByRef Form_Controlw As Control, ByRef errorprovider_ As ErrorProvider) As Boolean
Try
Dim Controlw As Control
Dim erroProv As ErrorProvider = errorprovider_
For Each Controlw In Form_Controlw.Controls
Dim tipo As String = Nothing
If TypeOf Controlw Is TextBox Then
tipo = "TextBox"
ElseIf TypeOf Controlw Is MinDateMaskedTextBox Then
tipo = "MinDateMaskedTextBox"
ElseIf TypeOf Controlw Is ComboBox Then
tipo = "ComboBox"
End If
If Controlw.Tag = "*" Then
Select Case tipo
Case "TextBox"
If Controlw.Text.ToUpper.Length > 0 Or Controlw.Enabled = False Then
'Controlw.BackColor = System.Drawing.SystemColors.Window
erroProv.SetError(Controlw, "")
Else
erroProv.SetIconPadding(Controlw, -17)
erroProv.SetError(Controlw, "Campo obligatorio")
'Controlw.BackColor = Color.Bisque
salida = False
End If
Case "MinDateMaskedTextBox"
If Controlw.Text.ToUpper.Length = 10 Then
'Controlw.BackColor = System.Drawing.SystemColors.Window
erroProv.SetError(Controlw, "")
Else
erroProv.SetIconPadding(Controlw, -17)
erroProv.SetError(Controlw, "Campo obligatorio")
'Controlw.BackColor = Color.Bisque
salida = False
End If
Case "ComboBox"
If CType(Controlw, ComboBox).SelectedValue <> Nothing Or Controlw.Enabled = False Then
erroProv.SetError(Controlw, "")
Else
erroProv.SetIconPadding(Controlw, -34)
erroProv.SetError(Controlw, "Campo obligatorio")
salida = False
End If
Case Else
End Select
End If
'RECURSIVIDAD SI ES CONTENEDOR
If Controlw.HasChildren = True Then
camposObligatoriosCajas(Controlw, erroProv)
If Controlw.Tag = "*" Then
Select Case tipo
Case "TextBox"
If Controlw.Text.ToUpper.Length > 0 Or Controlw.Enabled = False Then
'Controlw.BackColor = System.Drawing.SystemColors.Window
erroProv.SetError(Controlw, "")
Else
erroProv.SetIconPadding(Controlw, -17)
erroProv.SetError(Controlw, "Campo obligatorio")
'Controlw.BackColor = Color.Bisque
salida = False
End If
Case "MinDateMaskedTextBox"
If Controlw.Text.ToUpper.Length = 10 Then
'Controlw.BackColor = System.Drawing.SystemColors.Window
erroProv.SetError(Controlw, "")
Else
erroProv.SetIconPadding(Controlw, -17)
erroProv.SetError(Controlw, "Campo obligatorio")
'Controlw.BackColor = Color.Bisque
salida = False
End If
Case "ComboBox"
If CType(Controlw, ComboBox).SelectedValue <> Nothing Or Controlw.Enabled = False Then
erroProv.SetError(Controlw, "")
Else
erroProv.SetIconPadding(Controlw, -17)
erroProv.SetError(Controlw, "Campo obligatorio")
salida = False
End If
Case Else
End Select
End If
End If
Next
Return salida
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Function
**********
'en el form donde esten tus cajas de texto
1) en propiedades> Tag .... de tus textbox y combobox pones * (el signo asterisco o cualquier otra cosa pero tienes q cambiar también en la función anterior)
2) arrastas un errorProvider a tu form
3)pones esto en la parte que digas guardar, finalizar o comprobar (bueno tu entiendes) (la clase donde tendo la función anterior se llama utilitarios.vb)
If Utilitarios.camposObligatoriosCajas(Me, Me.ErrorProvider) = False Then
MessageBox.Show("Revise los campos obligatorios", "Atención", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
y listo
espero te sirva
saludos
PD: si tienes algun problema me avisas por q trate de ponerte solo el codigo q tú necesitas ya q en mi aplicación tengo algunas cosas q de pronto te confunden y no se si me jale al editar el código.
Mostrar Mensajes
