a07 visualbasic ucase

Programação em Linguagem Procedural
Aula 07

Aula 07: Propriedades de cores e estrutura de seleção
Objetivo: Aplicar o uso das propriedades backcolor e forecolor para colorir fundos e fontes de objetos. Compreender o uso de estrutura de seleção, o select case.

Ucase e Lcase

Quando usamos o Ucase, ele deixa todos os caracteres em maiúsculo, esse
“U” é de Upper, já quando usamos o Lcase, ele deixa todos os caracteres em minúsculo, esse “L” é de Lower.

Exemplo: txtLogin.text = UCase(txtLogin.text)

BackColor e ForeColor

Quando usamos a propriedade backcolor, é possível colorir o fundo de um objeto, seja ele qual for, já o forecolor é usado da mesma maneira, porém ele é usado para colorir as fontes dos textos dos objetos.
Para colorir o backcolor a sintaxe é:

Nome_do_objeto.backcolor=Color.nome_da_cor_em_inglês.
Exemplo:
Lblres.backcolor=Color.Blue

Para colorir o forecolor a sintaxe é:

Nome_do_objeto.forecolor=Color.nome_da_cor_em_inglês.
Exemplo:
Lblsoma.forecolor=Color.Green

Vamos fazer um programa agora que leia sexo de uma pessoa. Se for “M” exiba “Masculino” na cor azul, senão, se for “F” exiba “Feminino” na cor rosa, senão
“Informação Incorreta” na cor verde.

Código do botão Processar:

Private Sub btncalc_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btncalc.Click
Dim sx As Char sx = UCase(txtsx.Text)
'LCase()- minúsculo
If sx = "M" Then lblres.ForeColor = Color.DarkBlue lblres.Text = "Masculino"
ElseIf sx = "F" Then lblres.ForeColor = Color.DarkMagenta lblres.Text = "Feminino"
Else
lblres.ForeColor = Color.DarkGreen lblres.Text = "Informação Incorreta"
End If
End Sub

Código do botão Limpar:

Private Sub btnlimp_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnlimp.Click txtsx.Text = "" lblres.Text = "" txtsx.Focus() End Sub

Código do botão Sair:

Private Sub btnsair_Click(ByVal sender As System.Object, ByVal e As