[Aula 4] Alguns Objetos

[Dopado 0]

veja ae

Private Sub Label1_Click()

Dim Nome As String

Nome = "Nome: " & Text1.Text

Label1.Caption = Nome

End Sub



Private Sub Label2_Click()

Dim Idade As String

Idade = "Idade: " & Text2.Text

Label2.Caption = Idade

End Sub

Private Sub Label3_Click()

Dim Idade As String

Dim Nome As String

Dim Tudo As String

Idade = "Idade: " & Text2.Text

Nome = "Nome: " & Text1.Text

Tudo = Nome & " " & Idade

Label3.Caption = Tudo

End Sub



Private Sub Text1_Change()

Dim Nome As String

Nome = "Nome: " & Text1.Text

Label1.Caption = Nome

End Sub



Private Sub Text2_Change()

Dim Idade As String

Idade = "Idade: " & Text2.Text

Label2.Caption = Idade

End Sub

certo ou errado? x)

[DuDz 0]

Muito bons esses tutos do Tio Boleta ;D.

 

Estou fazendo um programa de sorteio muito bem-elaborado aqui com base nesses conceitos... Depois eu posto pra galera. Vai ajudar bastante nos Sorteios em OTs e nos Bolões OT Net. ;D

 

Abraços,

 

//DuD

[Flatronez 1]

Eu fiz asssim: vc digita suas info numa InputBox e elas aparecem nas labels =D

 

Olhem o code, aqui não deu erro + vejam ai:

Private Sub Command1_Click()



Dim Valor As String

Valor = InputBox("Seu nome:")

Label1.Caption = Valor



Dim Valor2 As String

Valor2 = InputBox("Sua Idade:")

Label2.Caption = Valor2



Dim Valor3 As String

Valor3 = InputBox("Info sobre você:")

Label3.Caption = Valor3

End Sub

 

 

 

EDIT:

 

Melhorei o projeto e fiz um executável para ele.

 

Novo codigo:

Private Sub Command1_Click()



Dim Valor As String

Dim Valor3 As String

Dim Valor2 As String

Dim Mensagem As String



Valor = InputBox("Seu nome:")

Label1.Caption = "Seu nome é: " & Valor & " ."



Valor2 = InputBox("Sua Idade:")

Label2.Caption = "Sua idade é: " & Valor2 & " anos."



Valor3 = InputBox("Cidade onde mora:")

Label3.Caption = "Você mora em: " & Valor3 & " ."



Mensagem = "HAHAHAHAHAHAHA!!!! Você caiu como patinho! Seus dados estão salvos e sua casa está sendo rastreada."

Label7.Caption = Mensagem

End Sub

 

 

Está mais organizado e melhor =D

 

Valeu tio Boleta! To aprendendo muito com Vc!!!!!

[Vufusuf 1]

Ae Flatronez ,

como eu disse no tópido da Aula 2, coloque todas variáveis no início (dentro do evento, é claro)

O resto acho que ta tudo certo, muito bom.

 

Uma dica, é quem em projetos maiores, é bom definir um nome para cada objeto (para isso mude a propriedade name).

No seu caso ali você poderia trocar o nome

Label1 por LbNome

Label2 por LbIdade

Label3 por LbInfo

 

Isso não irá alterar nada, é só detalhes que te ajudara a entender o seu próprio code caso o projeto seja grande.

Isso você também pega com o tempo.

 

O nome do objeto vai a sua escolhe, o que você achar melhor para entender.

Eu eu como muitos programadores costumo usar uma abreviação do objeto no início do nome,

exemplos:

 

Label = Lb

CommandButton = Cmd

TextBox = Txt

...

 

É coisa que parece boberinha, mas que pode ajudar,

no caso de um code pequeno como o seu nem precisa fazer isso

é só uma coisa que pode usar futuramente

 

Cya

[DuDz 0]

@Flatronez

 

Cuidado! Você reviveu um tópico de 2 meses atrás.

 

Não faça isso de novo.

 

Abraços,

 

//DuD

[DrEaMs 0]

Alquimistas

 

Eu iria colocar so os textbox, mas ai ficaria muito facil, entao o nome eu coloquei em um inputbox msm.. so pra ficar + doido olha aew

 

 

Private Sub CommandButton1_Click()

Dim nome As String

Dim idade As Integer

Dim cidade As String

Dim valor As String

 

idade = TextBox2.Text

cidade = TextBox3.Text

nome = InputBox("Digite seu nome", "Nome", "Digite seu nome")

valor = "Seu nome é " & nome & ". Você tem " & idade & " anos e mora em " & cidade & "..." & ""

Label4.Caption = valor

End Sub

 

[Fozz 0]

Private Sub Command1_Click()

Dim Nome As String
Dim Cidade As String
Dim Idade As String
Dim Curiosidades As String

Nome = Text1.Text
Cidade = Text2.Text
Idade = Text3.Text
Curiosidades = Text4.Text

Label1.Caption = "Nome: " & Nome & vbCrLf & "Cidade: " & Cidade & vbCrLf & "Idade: " & Idade & vbCrLf & "Curiodidades: " & Curiosidades

End Sub

 

Eita

VB é mt bom

=)

cya

[Boleta 1]

Novamente, devo dar parabéns ao Fozz.

Está progredindo muito bem!

A sua maneira de organizar os códigos está perfeita, parabéns!

 

Abraços!