Cómo agregar números al cuadro de lista en vb

Dado que la lista es una tabla de datos de una sola columna, su solicitud es realmente más fácil de implementar usando una cuadrícula o similar. También se puede implementar usando una lista, pero debe implementarse suavemente usando código.

Agregue 1 control ListBox, 1 TextBOX y 3 controles CommandButton al formulario. Cambie la propiedad Ordenada del ListBox a Verdadero. Esta propiedad permite que el control ListBox ordene automáticamente alfabéticamente.

Debido al atributo Ordenado, el número de serie debe completarse con 00; de lo contrario, el resultado de la clasificación será

1, 10, 100, 11, 12...

Luego pegue el siguiente código:

p>

Private Sub Command1_Click()

En caso de error, reanudar siguiente

'Agregar una nueva información

Me.List1.AddItem Right("00" amp; Me.List1.ListCount 1, 3) amp " " amp; Me.Text1.Text

'Si desea insertarlo en los datos, usa el siguiente código, pero necesitas crear otro texto para escribir la inserción El número de serie, es decir, reemplazar Tmp con el valor del nuevo texto

'Dim Tmp As Integer

'Tmp = 10

'Tmp-1 es cambiar el número de serie 10 a la novena fila de la lista, porque la lista comienza desde 0.

'Me.List1 .AddItem Right("00" amp; Tmp, 3) amp; " " amp Me.Text1. Texto, Tmp - 1

'For i = Tmp To Me.List1.ListCount - 1

' DoEvents

' Me.List1.List(i) = Right("00" amp; i 1, 3) amp " " amp; i), Len(Me.List1.List(i)) - InStr(Me.List1.List( i), " ") - 2)

'Siguiente

'Cambiar la última columna de datos al número más grande

'Me.List1.List(Me .List1.ListCount - 1) = Right("00" & Me.List1.ListCount, 3) & " " & Derecha(Me.List1.List(Me.List1.ListCount - 1), Len(Me. List1.List(Me.List1.ListCount - 1)) - InStr(Me.List1.List(Me.List1.ListCount - 1) ), " ") - 2)

End Sub

Private Sub Command2_Click()

En caso de error, reanudar siguiente

'Modificar información

Me.List1.List(Me.Text1.Tag) = Derecha ("00" amp; Me.Text1.Tag 1, 3) amp " " Me.Text1.Text

Finalizar sub

Subcomando privado3_Click()

En caso de error, reanudar siguiente

'Eliminar información

Para i = CInt (Me.Text1.Tag) Para Mí.List1.ListCount - 1

DoEvents

Me.List1.List(i) = Right("00" amp; i 1, 3) amp " " amp; Right(Me.List1.List(i 1), Len(Me; .List1.List(i 1)) - InStr(Me.List1.List(i 1), " ") - 2)

Siguiente

'Eliminar los últimos datos p>

Me.List1.RemoveItem (Me.List1.ListCount - 1)

'Dado que la lista se usa como número de serie, el método RemoveItem ya no se puede usar

'Me.List1.RemoveItem (Me.Text1.Tag)

End Sub

Private Sub Form_Load()

'Si este lugar es 1000, necesitas cambiar Derecha( "00" amp; i, 3) se cambia a Derecha("000" amp; i, 4)

'El número máximo debe modificarse

Para i = 1 a 100

Me.List1.AddItem Right("00" amp; i, 3) amp "XXX" i

Siguiente

Me.Command1 .Caption = "Agregar"

Me.Command2.Caption = "Modificar"

Me.Command3.Caption = "Eliminar"

End Sub

Private Sub List1_Click()

'Elimina el número de serie de la información de la lista y muéstralo en el texto

Me.Text1. Text = Right(Me.List1.Text, Len(Me.List1.Text) - InStr(Me.List1.Text, " ") - 2)

'Guarda el número de serie en el atributo Tag de Texto

Yo.Text1.Tag = Me.List1.ListIndex

Fin Sub