[Resolvido] Validaçao Inputbox

[crax15]

Boa tarde!

Gostava de saber como é que eu posso configurar a inputbox para fechar sem dar a mensagem de que nao introduzi nenhum valor, e que quando clico enter ou ok ele mesmo nao tendo nada escrito me envie a msgbox a dizer que a password esta errada.

Ja andei a procura e nao encontro nada que funcione...

Tenho o seguinte codigo

Dim pass As String = "123"
Dim valor As String = InputBox("Introduza Password")

If valor = pass Then
Configuracao.Show()
ElseIf valor = " " Then
Exit Sub
ElseIf valor = "" Then
MsgBox("Password Invalida", MsgBoxStyle.Critical, "Password Invalida")
End If

[acao]

boas

tente assim

Dim pass As String = "123"
Dim valor As String = InputBox("Introduza Password")

If valor = pass Then
Configuracao.Show()
ElseIf valor = "" Then
exit sub
else
MsgBox("Password Invalida", MsgBoxStyle.Critical, "Password Invalida")
End If

cumps

acao

Edited June 26, 2012 at 01:54 PM by acao

[crax15]

isso ja tinha tendado antes.

O que eu queria era que quando carregasse no botao cancelar ele fecha-se a inputbox e nao mostrasse mensagem de erro, e quando clicasse no ok sem texto nenhum ele me mostrasse a msgbox com o erro mas que nao fechasse a inputbox.

Nao sei se me fiz entender bem...

Cumps

[acao]

boas

vê se é isto:

Private Sub CommandButton2_Click()
Dim pass As String
pass = "123"
Dim valor As String
Dim vContador As Byte
vContador = 1
Do While vContador > 0 And vContador < 5
valor = InputBox("Introduza Password")
If StrPtr(valor) = 0 Then
Exit Do
Else
If valor = pass Then
MsgBox ("Configuracao.Show")
Exit Do
ElseIf valor = "" Then
vContador = vContador + 1
Else
MsgBox "Password Invalida"
vContador = vContador + 1
End If
End If
Loop
End Sub

cumps

acao

Edited June 26, 2012 at 05:58 PM by acao

[crax15]

Ele nao reconhece a funçao StrPtr

[acao]

boas

que programa está a utilizar?

cunps

acao

[crax15]

VB 2010

[acao]

boas

veja se assim serve,

mas como está a usar vb2010/net o melhor seria substituir por um form com uma ou duas caixas de texto, uma para usuario e outra para senha e compara-las na base dados.

poderá ainda encriptar a senha com o hash, veja a melhor maneira.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim pass As String
       pass = "123"
       Dim valor As String
       Dim vContador As Byte
       vContador = 1
       Do While vContador > 0 And vContador < 5
           valor = InputBox("Introduza Password,")
           If valor = "" Then
               Exit Do
           Else
               If valor = pass Then
                   MsgBox("Configuracao.Show")
                   Exit Do
               Else
                   MsgBox("Password Invalida")
                   vContador = vContador + 1
               End If
           End If
       Loop
   End Sub
End Class

ps: existe espaço destinado a vbnet aqui no forum é aí que deve colocar as suas duvidas referentes a vb2010.

cumps

acao

Edited June 27, 2012 at 03:16 PM by acao

[crax15]

Continua sem dar, mas eu resolvi o problema criando um novo formulario com as instruçoes que pretendia.

Obrigado na mesma!