Componentes Visuais (2)

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

*
Componentes da
Interface Gráfica
CheckBox, OptionButton
Listbox, ComboBox
*
Interface Gráfica
Até o momento foram trabalhados os componentes mais básicos da Interface Gráfica:
TextBox
Label
Command Button
Outros componentes visuais que podem ser adicionados aos formulários de VB:
CheckBox
OptionButton
ListBox
ComboBox
Menus
Etc...
*
CheckBox
Um CheckBox é uma caixa de verificação, a qual pode assumir um dos seguintes estados:
Marcado
Desmarcado
Este controle (ou componente) possui uma propriedade Value, que guarda 0 (desmarcado) , 1 (marcado) ou 2 (“cinzento”) , dependendo do estado que o mesmo se encontra.
As propriedades Name e Caption são idênticas às dos outros componentes.
Os componentes deste tipo se comportam de forma independente.
*
Exemplo Checkbox
...
If chkfut.Value = True Then
 lblfut.Caption = "Futebol - Sim"
 Else
 lblfut.Caption = "Futebol - Não"
 End If
 
 If chkvolei.Value = True Then
 lblvolei.Caption = "Volei - Sim"
 Else
 lblvolei.Caption = "Volei - Não"
 End If
...
*
OptionButton
Um OptionButton, assim como o CheckBox, é uma caixa de verificação que assume os estados:
Marcado
Desmarcado
A propriedade Value, que pode ter os valores False (desmarcado) , ou True (marcado) , dependendo do estado que o mesmo se encontra.
As propriedades Name e Caption são idênticas às dos outros componentes
Os componentes deste tipo podem ser agrupados (normalmente utilizando o componente Frame - Quadro) e então tem um valor dependente dos demais (só um está marcado por vez).
*
Exemplo OptionButton
...
If optmasc.Value = True Then
 lblsexo.Caption = "Sexo: Masculino"
 End If
 
 If optfem.Value = True Then
 lblsexo.Caption = "Sexo: Feminino"
 End If
...
*
ListBox
Um ListBox é um componente que permite apresentar ao usuário um conjunto de valores para que este selecione um ou mais valores.
Funções de manipulação (supondo nome do componente = lst):
lst.Clear 	  apaga o conteúdo do listBox
lst.AddItem(valor)  acrescenta um item ao conjunto de valores
lst.Selected(pos)  true se o item na posição pos está selec.
lst.List(pos)  o valor que está na posição pos
lst.ListCount  número de itens na lista
lst.ListIndex  número do item selecionado: 	 -1 : nenhum valor selecionado ≥0 : posição do valor selecionado, o primeiro é 0
Propriedades
lst.MultiSelect  0 : só um item selecionado por vez 			  1 : vários itens selecionados por vez
*
Exemplo1 ListBox
Private Sub cmdadicionar_Click()
 Dim nome As String
 
 nome = txtnome.Text
 
 lstnomes.AddItem (nome)
 
 txtnome.Text = ""
 txtnome.SetFocus
 
End Sub
Private Sub cmdlimpar_Click()
 lstnomes.Clear
 txtnome.Text = ""
 txtnome.SetFocus
End Sub
*
Exemplo2 ListBox
Private Sub cmdcopiar_Click()
 Dim i As Integer
 lstcopia.Clear
 For i = 0 To lstareas.ListCount - 1
 If lstareas.Selected(i) Then
 lstcopia.AddItem lstareas.List(i)
 End If
 Next
End Sub
Private Sub UserForm_Initialize()
 lstareas.AddItem "Informática"
 lstareas.AddItem "Matemática"
 lstareas.AddItem "Engenharia"
 lstareas.AddItem "Física"
 lstareas.AddItem "Química"
End Sub
*
ComboBox
Um ComboBox é um componente que permite apresentar ao usuário um conjunto de valores para que este selecione um (único) valor, também permite a edição dos valores apresentados.
Funções de manipulação (assumindo que o nome do componente é combo1):
combo1.clear 	  apaga o conteúdo do comboBox
combo1.addItem(val)  adiciona um item ao conjunto de valores
combo1.list(pos)  o valor que está na posição pos
Propriedades
combo1.listIndex  número do item selecionado: 	  -1 : nenhum valor selecionado  ≥0 : posição do valor selecionado, o primeiro é 0