Hola;
Agregar elementos en un list y ver la cantidad de lementos ingresados es así:
Private Sub cmdAgregar_Click()
Dim Data As String
'La variable con su correspondiente TextBox
Data = txtDato.Text
'El dato contenido en el textbox lo agrego a la lista
if Data <> "" Then 'Si hay algo procedo
List1.AddItem Data
lblContador = "Cuenta total : " & List1.ListCount & " Datos"
else
lblMensaje = "El campo de Datos de Ingreso se encuentra vacío"
end If
End Sub
Nos vemos. |
