Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
Mica

Apagar

Recommended Posts

Mica

Boas, tenho uma nova duvida, tenho o seguinte código que fiz assim mais ou menos só que pronto não está a funcionar, isto é, tenho duas listbox, onde vou colocando itens gostava de depois ao selecionar ambos itens da listbox, gostava de depois apaga-los caso necessário tenho aqui um código base mas não está a funcionar :s  Se puderem ajudar :D

Dim indx As Double
Dim indx1 As Double
If Listbox1.ListIndex = -1 Then
    MsgBox ("Selecione um produto")
Else
    indx = Listbox1.ListIndex
    Listbox1.RemoveItem indx
    Listbox2.RemoveItem indx

Share this post


Link to post
Share on other sites
Mica

 


     Dim indx As Double
        Dim indx1 As Double
        If ListBox1.SelectedIndex = -1 Then
            MsgBox("Selecione um produto")
        Else
            indx = ListBox1.SelectedIndex()
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
            ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
        End If

Pronto assim já funciona, mas agora eu queria outra coisinha aqui a dar, por exemplo eu adiciono os meus itens nas listbox  e depois faço total, ele apresenta o total na textbox até ai tudo bem, eu queria que ao mesmo tempo que apagasse os itens ele diminuísse no total também sem precisar de voltar a carregar na tecla total

Share this post


Link to post
Share on other sites
pmaster

Do género disto:

textbox1.text = ListBox1.Items.count

EDIT:

Não li até ao fim, mas se já tens um botão só tens de o chamar, por exemplo:

Button1_Click(Me, EventArgs.Empty)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.