Agregar mascara a un textbox
Nuevamente te tengo una nueva consulta
Necesito poner una mascara a un textbox, de la siguiente manera
La mascara que necesito poner es para el Tipo de documento de identificación
Actualmente estoy utilizando un combobox y dos textbox, en el combobox1 tengo una lista desplegable de los tipos de documentos el cual los adquiere de una tabla de la base de datos y en texbox1 me aparece la descripción que según elija en el combobox1 que también esta en la base de datos y en el textbox2 tengo que escribir el registro o el numero del documento que elija pero esta mascara también esta en la misma tabla de donde estoy tomando el tipo de documento, ahora te muestro como es que esta estructurado
ComboBox1 Textbox1 Textbox2 Label1
1 cedula de vecindad
2 REPRESENTANTE LEGAL
3 certificado de nacimiento
4 PASAPORTE
5 DPI
Mira lo que necesito ahora es que en el textbox2 me reconozca el registro que según me pide el sistema, pero necesito que a la par del textbox2 aparezca un Label con el formato que pide el sistema.
Estos son los códigos que utilizo para generar las instrucciones del combobox y el textobox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LlenaComboBox()
End Sub
Private Sub LeeDatos()
Dim oDocumentosDs As New DataSet
Dim oDocumentosDA As New SqlDataAdapter("Select * from APTIPIDE", cnnConexion)
oDocumentosDA.Fill(oDocumentosDs, "Documentos")
End Sub
Private Sub LlenaComboBox()
Dim oDocumentosDs As New DataSet
Dim oDocumentosDA As New SqlDataAdapter("Select * from APTIPIDE", cnnConexion)
oDocumentosDA.Fill(oDocumentosDs, "Documentos")
oDocumentosDA = Nothing
CbApTidCod.DataSource = oDocumentosDs.Tables("Documentos")
CbApTidCod.DisplayMember = "ApTidCod"
CbApTidCod.ValueMember = "ApTidDes"
End Sub
Private Sub CargaDatos(ByVal Id As String)
sqlCadena = "SELECT * FROM APTIPIDE " & _
"WHERE ApSucCodig "
Dim oDocumentosDs As New DataSet
Dim oDocumentosDA As New SqlDataAdapter(sqlCadena, cnnConexion)
End Sub
Private Sub CbApTidCod_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbApTidCod.Leave
TxtApTidCod.Text = CbApTidCod.SelectedValue
CargaDatos(CbApTidCod.Text)
End Sub