Funções de uma ListBox (Salvar em Txt, Split, Leitura e etc...) - VB.NET

Adicionar Um item á lista

1:  ListBox1.Items.Add (textbox1.text)  

--------------------------------------------
Remover um item da lista 

1:  ListBox1.Items.Remove (ListBox1.SelectedItem)  

--------------------------------------------

Adicionar um item da lista em uma textbox

1:  Textbox1.Text = ListBox1.SelectedItem  

--------------------------------------------

Transferir valores de uma listbox para uma textbox com os parametros "-" Split

 Crie uma função:

 

1:    Private Function Trans_valores(ByVal trans As ListBox, ByVal texto As TextBox)  
2:      TextBox1.Text = "" ' Reseta a textbox  
3:      Dim X As Short  
4:      For X = 0 To ListBox1.Items.Count - 1  
5:        TextBox1.Text &= trans.Items(X) & "-"  
6:      Next  
7:      Dim FINALE As String = Microsoft.VisualBasic.Right(TextBox1.Text, 2) ' Para que não fique aparecendo mais de um "-"  
8:      If FINALE = "--" Then  
9:        TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1) ' Apaga os dois ultimos caracteres  
10:      Else  
11:      End If  
12:    End Function  

**DEPOIS CRIE UM SUB QUE IRÁ CHAMAR A FUNÇÃO E O CHAME EM UM BUTTON**

1:    Private Sub Transferir()  
2:      Trans_valores(ListBox1, TextBox1)  
3:    End Sub  

  Para chamar basta usar Transferir()

----------------------------------------------

Transferir valores de uma textbox para uma listbox em split

 

1:      Dim s As String  
2:      Dim substring As String  
3:      Dim sp() As String  
4:      ListBox1.Items.Clear() ' Reseta os itens para não ficar sobrepondo  
5:      s = TextBox1.Text ' Carrega o texto da textbox  
6:      sp = s.Split("-") ' Splita o texto da textbox com o parametro "-"  
7:      For Each substring In sp  
8:        ListBox1.Items.Add(substring) ' Adiciona todos os valores com os parametros "-"  
9:      Next  

----------------------------------------------

Salvar uma listbox em um arquivo de texto

Trabalhar com arquivos lembre-se sempre de importar IO : Imports System.IO

1:  IO.Directory.CreateDirectory("C:\Test") 'Cria o diretorio  
2:      Dim Caminho As New IO.StreamWriter("C:\Test\Arquivo.txt") ' Caminho onde irá salvar  
3:      Dim i As Integer ' Variavel para fazer o loop  
4:      For i = 0 To ListBox1.Items.Count - 1 ' Loop   
5:        Caminho.WriteLine(ListBox1.Items.Item(i)) ' Rodando o Listbox e salvando  
6:      Next  
7:      Caminho.Close()  

    
----------------------------------------------

Outro metodo de salvar uma listbox em um arquivo de texto

1:  FileOpen(132, Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Testestes.txt", OpenMode.Output)  
2:      Dim i As Integer  
3:      For i = 0 To list_assistir.items.Count - 1  
4:        PrintLine(123, list_assistir.items(i))  
5:      Next  
6:      FileClose()  

----------------------------------------------

Terceiro metodo de salvar uma listbox em um arquivo de texto
   

1:   Dim Objfile As New System.IO.StreamWriter(My.Computer.FileSystem.SpecialDirectories.Desktop & "\INTER.txt")  
2:      Dim intCounter As Long  
3:      For intCounter = 0 To list_assistir.items.Count - 1  
4:        Objfile.WriteLine(list_assistir.items(intCounter).ToString)  
5:      Next intCounter  
6:      Objfile.Close()  
7:      Objfile.Dispose()  

----------------------------------------------

Carregando uma listbox de um arquivo de texto
   

1:  Dim leitura As New IO.StreamReader("C:\Test\Arquin.txt") ' Variavel a receber o arquivo  
2:      While (leitura.Peek() > -1) 'Loop para carregar os arquivos na Variavel leitura  
3:        ListBox1.Items.Add(leitura.ReadLine) ' Jogando os textos no listbox  
4:      End While  
5:      leitura.Close() ' fechamento da leitura  

----------------------------------------------

Alterar valor de uma listbox

1:   ListBox1.Items(ListBox1.SelectedIndex) = TextBox1.Text  

----------------------------------------------

Alterar fundo de uma listbox


Vá na SolutionExplorer e procure por: ShowAllFiles (Mostrar todos os arquivos) 
Depois vá em Form1.Design.vb, procure por listbox e utilize o seguinte codigo:

 

1:  Me.ListBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))  
2:  ' Ou procure metodos de cores  

----------------------------------------------

Alterar a cor de um item selecionado no listbox

Em form.load Add:

1:  ListBox1.DrawMode = DrawMode.OwnerDrawFixed  

Mude o evendo do listbox de "SelectedIndexChanged" para "DrawItem" e 
adicione o seguinte codigo:

1:  e.DrawBackground()  
2:      If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then  
3:        e.Graphics.FillRectangle(Brushes.SpringGreen, e.Bounds) ' Selecione a cor depois de Brushes  
4:      End If  
5:      Using b As New SolidBrush(e.ForeColor)  
6:        e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Index)), e.Font, b, e.Bounds)  
7:      End Using  
8:      e.DrawFocusRectangle()  

COMENTE

& Compartilhe

Tweet