[Resolvido] Adicionar item na listbox em uma determinada posição

[Gvip 0]

Galera to precisando muito disso, to pesquisando jah tem um bom tempo e não to vendo solução.

 

Eu preciso inserir um item na listbox em uma determinada posição.

 

Valew pela ajuda!

 

Abraços...

[Claudio Neto 3]

Olá Cvip.

 

Não encontrei nenhuma propriedade que lhe permita fazer isso, então criei algo que pode te ajudar.

 

Coloque em seu programa um list, um command e dois textbox.

 

No primeiro textbox coloque um número entre 1 e 8, na segunda coloque um texto qualquer.

 

Agora copie o código abaixo, teste e diga o resultado:

 

Private Sub Command1_Click()
Dim arrItens() As String

ReDim arrItens(List1.ListCount)

For i = 0 To List1.ListCount - 1
	arrItens(i) = List1.List(i)
Next

List1.Clear

For i = 0 To CDbl(Text1.Text) - 1
	List1.AddItem arrItens(i)
Next

List1.AddItem Text2.Text

For i = CDbl(Text1.Text) To UBound(arrItens)
	List1.AddItem arrItens(i)
Next

End Sub

Private Sub Form_Load()

For i = 1 To 10
	List1.AddItem i
Next

End Sub

Fico aguardando pra ver se deu certo.

 

Abraços...

[Gvip 0]

Fala Claudio,

 

Cara deu tudo certo, já está adaptado pro meu programinha e ficou show de bola.

 

Muito obrigado.

 

Abraço!