Ir para o conteúdo
f_praia

Eliminar, Substituir e Procurar Nomes seleccionados na List Box através de um ficheiro

Mensagens Recomendadas

f_praia

Boas Tardes a todos.

Estou com uma dúvida que é a seguinte:

Fiz um programa em Visual Basic em que o utilizador cria uma familia numa list Box (LB_Familia), e depois corresponde essa familia á 2ª List Box que mostra os membros da familia (LB_MembrosF), tudo através de "manipulação" de ficheiros.

O que queira fazer ou acrescentar era poder eliminar, substituir e procurar essa Familia / Membros só que estou na dúvida como fazer.

Vou introduzir uma parte do código que já fiz:


Dim mensagem, titulo, botoes, icone As String
   Dim resposta As DialogResult
   Dim caminho As String = "C:\Users\Praias\Documents\Visual Studio 2015\Projects\Projecto - Família [Países_Cidades]\Ficheiros de Texto\Familia.txt"
   'Adicionar Familia Nova
   Private Sub FamiliaNovaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FamiliaNovaToolStripMenuItem.Click
       LB_MembrosF.Items.Clear()
       Dim familia As StreamWriter = New StreamWriter(caminho, True)
       Dim novaFamilia As String
       novaFamilia = InputBox("Escreva uma nova Familia")
       If novaFamilia <> "" Then
           familia.WriteLine(novaFamilia)
           Dim criarfichfamilia As StreamWriter = New StreamWriter("C:\Users\Praias\Documents\Visual Studio 2015\Projects\Projecto - Família [Países_Cidades]\Ficheiros de Texto\" & novaFamilia & ".txt")
           criarfichfamilia.Close()
       End If
       familia.Close()
       Main_Menu.CarregarLstFamilia()
   End Sub
   'Adiconar Membros Novos á Familia Selecionada
   Private Sub MembrosNovosasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MembrosNovosasToolStripMenuItem.Click
       If LB_Familia.SelectedIndex = -1 Then
           mensagem = "A Familia não está seleccionada"
           titulo = "Adicionar Membros á Familia"
           botoes = MessageBoxButtons.OK
           icone = MessageBoxIcon.Information
           MessageBox.Show(mensagem)
           MessageBox.Show(titulo)
           MessageBox.Show(botoes)
           MessageBox.Show(icone)
       Else
           Dim Membros As StreamWriter = New StreamWriter("C:\Users\Praias\Documents\Visual Studio 2015\Projects\Projecto - Família [Países_Cidades]\Ficheiros de Texto\" & LB_Familia.Text & ".txt", True)
           Dim novomembro As String = ""
           novomembro = InputBox("Escreva uma/um nova/o membro")
           If novomembro <> "" Then
               Membros.WriteLine(novomembro)
           End If
           Membros.Close()
           Main_Menu.CarregarLstFamiliaMembros()
       End If
   End Sub

Obrigado a todos se for essa possível ajuda.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.