Educandário Santa Rita de Cássia

Técnica de Desenvolvimento de Aplicativos - 02/04/07

” ‘Bom Dia’ Primeiro Ano !” Como estão vocês?
Antes de mais nada, gostaria de pedir desculpas pela demora em postar nossa aula e agradecer aos trabalhos que foram entregues.
Vamos então à nossa aula de hoje?

Trabalharemos hoje com um novo controle do Visual Basic: a Listbox, e algumas de suas propriedades. Para isso vamos ler o enunciado de nossa aplicação.

- Um aplicativo que receba informações de um livro(título, autor, editora) e a partir de um “clique” no botão ‘Adicionar’, cadastre as informações na lista no seguinte formato:

A aplicação conta também com um botão ‘Remover’, responsável por eliminar o item da lista que estiver selecionado.
Segue abaixo, a interface de nosso programa.

Já perceberam que será simples de desenvolver não é mesmo? Afinal, teremos apenas rotinas desenvolvidas para o botão Adicionar e Remover.

Então, mãos na massa.

A partir da IHM descrita acima, desenvolva sua interface de acordo com os objetos utilizados. Pretendo, daqui pra frente deixar a critério de vocês a nomenclatura dos objetos. No entanto, vou explicar o novo controle a ser utilizado: a LISTBOX.

A Listbox, é um controle que nos permite adicionar valores(no formato Texto), separados por linha. Graças a ela, poderemos então ter a nossa primeira idéia de banco de dados, e observar realmente como as disciplinas de nosso curso vão se relacionando mais ainda com o decorrer das aulas. Quanto à sua nomenclatura, vamos nomeá-la com o prefixo ‘LST’. Ex: lstLivros

Lembram-se do conceito de campo? Então, podemos dizer que cada informação a ser preenchida sobre o livro, pode ser considerada como um campo: TITULO, AUTOR, EDITORA.
Melhorando ainda mais o nosso raciocínio, podemos afirmar que se a idéia fosse montar um banco de dados relacionado à nossa aplicação, esses campos fariam parte de uma tabela LIVROS.

Uma vez, pronta a interface, vamos à programação:

Está bem claro pra nós, o que deve acontecer quando clicarmos no Botão Adicionar: Os dados do livro devem ser cadastrados na lista. Mas ainda há um detalhe: o enunciado do programa exige um formato de cadastro para esses dados: Titulo - Autor - Editora.
Talvez isso seja um problema, já que teremos as informações separadas em cada TextBox. Mas lembrem-se: temos o famoso recurso de Concatenação de variáveis (Ch & X). Graças a isso, nosso problema está resolvido mais rápido do que pensamos.

Vamos então à programação do Botão Adicionar.

Private Sub cmdAdd_Click()
Dim sTitulo, sAutor, sEditora, sDados

End Sub

Analisando a codificação acima, temos três variáveis: sTitulo, sAutor, sEditora - responsáveis por armazenar as informações das respectivas caixas de texto, além da variável sDados, que irá guardar a string completa a ser adicionada posteriormente na lista. Observe o recurso de concatenação utilizado para juntar as variáveis:

sDados = sTitulo & ” - ” & sAutor & ” - ” & sEditora

Temos agora um comando novo:

lstLivros.AddItem sDados

Já sabemos que lstLivros é a nossa ListBox. As ListBoxs possuem a propriedade AddItem que adiciona uma string à lista. No nosso caso, a string a ser adicionada é o conteúdo da variável sDados.
Ao executar o programa, preenchendo as caixas de texto e adicionando as informações, podemos observar que a cada adição, os itens são cadastrados em uma nova linha da lista.

Vamos agora ao botão ‘Remover’.

A idéia é remover da lista, o item cuja linha estiver selecionada. A propriedade ListIndex, retorna um valor inteiro referente a linha que estiver selecionada.

-1 - Nenhuma linha selecionada
0 - Primeira linha
1 - Segunda linha
2- Terceira linha
3 - Quarta linha, e assim sucessivamente.

Isto significa que quando nenhuma linha estiver selecionada, ou seja, quando a propriedade ListIndex da lista for igual a -1, devemos exibir uma mensagem de erro e não podemos remover nenhum item.

Vamos desenvolver a lógica:

SE ITEM_SELECIONADO = -1 ENTÃO
EXIBIR “Selecione um item.”
SE NÃO
REMOVER ITEM SELECIONADO
FIM SE

Simples não é? Passaremos agora então nossa lógica para a linguagem do Visual Basic.

Private Sub cmdRem_Click()
If lstLivros.ListIndex = -1 Then
MsgBox “Selecione um item.”, vbCritical, “Erro.”
Else
lstLivros.RemoveItem lstLivros.ListIndex
End If
End Sub

Observando a rotina, podemos encontrar uma outra propriedade da ListBox: RemoveItem. Ao contrário da propriedade AddItem, a propriedade RemoveItem como o próprio nome já diz, retira um determinado elemento da lista. Mas não é somente isso que essas duas propriedades tem de diferente:

lstLivros.AddItem sDados | lstLivros.RemoveItem lstLivros.ListIndex

Enquanto a propriedade AddItem recebe uma string a ser adicionada na lista, a propriedade RemoveItem, recebe um valor inteiro, a partir da propriedade ListIndex, que faz referência ao número da linha cujo item estiver selecionado, como dito anteriormente.

Fácil, fácil, fácil.

Espero que todos tenham aproveitado.

Abraços e tenham uma boa aula de Inglês Técnico.