Dopado 0 #21 Postado 13 Janeiro, 2007 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) Compartilhar este post Link para o post Compartilhar em outros sites
DuDz 0 #22 Postado 15 Janeiro, 2007 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 Compartilhar este post Link para o post Compartilhar em outros sites
Flatronez 1 #23 Postado 15 Março, 2007 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!!!!! Compartilhar este post Link para o post Compartilhar em outros sites
Vufusuf 1 #24 Postado 15 Março, 2007 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 Compartilhar este post Link para o post Compartilhar em outros sites
DuDz 0 #25 Postado 15 Março, 2007 @Flatronez Cuidado! Você reviveu um tópico de 2 meses atrás. Não faça isso de novo. Abraços, //DuD Compartilhar este post Link para o post Compartilhar em outros sites
DrEaMs 0 #26 Postado 20 Março, 2007 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 Compartilhar este post Link para o post Compartilhar em outros sites
Fozz 0 #27 Postado 17 Abril, 2007 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 Compartilhar este post Link para o post Compartilhar em outros sites
Boleta 1 #28 Postado 17 Abril, 2007 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! Compartilhar este post Link para o post Compartilhar em outros sites