Trabalhando com Formulários SDI / MDI

Tipo Projeto:	Aplicação Windows
Nome do Projeto:	radiobuttons
Local do Projeto:	c:\aulasvbnet
Criar subDiretorio do projeto	Marcado
Criar Diretorio para os fontes	Desmarcado

Exemplo: vamos criar um exemplo de utilização dos Radiobuttons

Crie o projeto acima e coloque os seguintes objetos no mesmo:

Objetos	Propriedade = Valor
Form	Name = frmPrincipal Text = Exemplo Radio Button
GroupBox	Name = grpDesconto
Radiobutton	Name = rad10 Text = 10% Checked = True
Radiobutton	Name = rad20 Text = 20%
Radiobutton	Name = rad30 Text = 30%
label	Text= Você escolheu
label	Text = Name = lblResposta
Button	Name = btnOk

Veja exemplo do formulário, na figura abaixo:

No Evento Click do botão OK coloque o seguinte código:

Dim escolha As String

If Me.rad10.Checked Then
     Escolha = "10%"
End If

If Me.rad20.Checked Then
     Escolha = "20%"
End If

If Me.rad30.Checked Then
     Escolha = "30%"
End If

lblResposta.text = escolha

 

Dicas : Voce pode eliminar a linha DIM e colocar direto em cada IF lblResposta.text = "10%" por exemplo.

Ir para: Aula anterior | Proxima aula | Indice de Aulas

© 1999-2009 POWER Informática - Rua João Manoel, 912 - Centro - Santana do Livramento - RS
Fones: (55) 3 2 4 2 - 5 4 2 7 / (55) 9 9 9 4 - 8 7 8 2
Serviços Manutenção Hardware, programação, páginas Web