Jump to content

Listbox


Daniel Guede
 Share

Recommended Posts

Boa tarde a todos eu tenho uma duvida já tentei de várias maneiras e não consegui chegar no ponto onde eu queria então vim tirar a minha duvida entre os melhores a programar, indo ao assunto objetivo é, eu quero passar os dados da Listbox1 para a Lixtbox2 mas isso consegui obter resultados mas o que eu queria mesmo era como fazer o enabled do dado na Listbox1 após de ter sido enviado para a Listbox2 para que o Jogador não venha repetir a mesma seleção quero que fique enbled mas sem apagar para que possamos ver que já foi selecionado ai tem o código já faz praticamente tudo  envia os dados para uma box e volta a coocar novamente o dados para box.

Espero que possam ajudar-me Obrigado aguardo a vossa resposta atenciosamente.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Seta_Direita.Click

        If ListBox1.SelectedIndex = -1 Then Exit Sub
        For x = ListBox1.Items.Count - 1 To 0 Step -1
            If ListBox1.GetSelected(x) Then
                ListBox2.Items.Add(ListBox1.Items(x))
            End If
        Next x
       
    End Sub

    Private Sub Seta_Esquerda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Seta_Esquerda.Click
        Dim i As Integer

        If ListBox2.SelectedIndex = -1 Then Exit Sub
        For i = ListBox2.Items.Count - 1 To 0 Step -1
            If ListBox2.GetSelected(i) Then
                ListBox1.Items.Add(ListBox2.Items(i))
                ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
            End If
        Next i


    End Sub

End Class

EDIT: GeSHi adicionado

Link to comment
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
 Share

×
×
  • Create New...

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.