Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

santiago

escrever correto ou incorreto

Mensagens Recomendadas

santiago

ola pessoal , eu gostava de saber como consigo  numa textbox fazer com que  por exemplo se a pessoa lá escrever 1 (ou outra coisa que eu queira) apareça correcto ou incorrecto em messagebox ,

por exemplo: quanto é 2+2

resposta : 5

e entrava a messagebox como : incorrecto

se a resposta fosse 4 entrava a messagebox como : correcto

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Andrepereira9

Boas

Isto?

' O evento occorre quando o utilizador sai da textbox

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
If TextBox1.Text = 4 Then
MsgBox ("Correcto")
Else
MsgBox ("Incorrecto")
End If
End Sub


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Super.D

Olá! Isso é o mais básico que existe eu não estou a estudar actualmente em programação porque o curso não abriu e tive que ir par electrónica, mas para o ano irei mudar.

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text = 4 Then 'Isto é como: "Se, a TextBox1 (nome da TextBox) em "Texto" (.Text) é igual a 4, então...
MsgBox ("Correcto! ") 'Uma MsgBox irá surgir, a dizer "Correcto! "
Else 'Então se for outro...
MsgBox ("Incorrecto! =(") 'Uma MsgBox surgirá a dizer "Incorrecto! =("
End If 'Se começar com o comando If não se esqueça de fechar a Tag "End if" E assim como o Private sub e End Sub.
    End Sub
End Class

Boa sorte.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
jpaulino

Olá! Isso é o mais básico que existe eu não estou a estudar actualmente em programação porque o curso não abriu e tive que ir par electrónica, mas para o ano irei mudar.

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text = 4 Then 'Isto é como: "Se, a TextBox1 (nome da TextBox) em "Texto" (.Text) é igual a 4, então...
MsgBox ("Correcto! ") 'Uma MsgBox irá surgir, a dizer "Correcto! "
Else 'Então se for outro...
MsgBox ("Incorrecto! =(") 'Uma MsgBox surgirá a dizer "Incorrecto! =("
End If 'Se começar com o comando If não se esqueça de fechar a Tag "End if" E assim como o Private sub e End Sub.
    End Sub
End Class

Boa sorte.

Isto que apresentas é VB.NET e não VBA como pedido.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.