AJUDA COM FUN?ÃO

ZOWWT 19/09/2016 18:45:00
#467139
Olá galera tudo bem com vocês?

estou com um problema em executar uma determinada função.
é o seguinte eu criei uma função de validar campos que é bem simples ela só verifica se o campo tá vazio e me retorna uma mensagem
porém queria saber se existe alguma forma para que quando eu retornar essa mensagem ele me de foco naquele textbox que está faltando preencher..

    Public Function ValidarCampos(ByVal Campo As String) As Boolean

        If Campo = String.Empty Then
            MsgBox([Ô]Por favor verifique se todos os campos estão preenchidos corretamente![Ô], MsgBoxStyle.Exclamation, [Ô]Validar Campos[Ô])
            Return False
        End If
        Return True
    End Function



aqui onde executo a função
   If ValidarCampos(txbUsuario.Text) = False Then Exit Sub
        If ValidarCampos(txbSenha.Text) = False Then Exit Sub



bom sou iniciante em programação e se tiver algum método melhor de executar isso ....

Atenciosamente A.J
JOHNSTEVE 19/09/2016 19:10:56
#467140
Facil amigo.. é so por o textbox.focus

  If Campo = String.Empty Then
            MsgBox([Ô]Por favor verifique se todos os campos estão preenchidos corretamente![Ô], MsgBoxStyle.Exclamation, [Ô]Validar Campos[Ô])

textbox.focus

            Return False
        End If
        Return True
ZOWWT 19/09/2016 19:27:17
#467141
Citação:

:
Facil amigo.. é so por o textbox.focus

  If Campo = String.Empty Then
            MsgBox([Ô]Por favor verifique se todos os campos estão preenchidos corretamente![Ô], MsgBoxStyle.Exclamation, [Ô]Validar Campos[Ô])

textbox.focus

            Return False
        End If
        Return True



certamente, porém eu não sei como faço pra pegar o textbox pois to passando o parametro da variavel campo
JOHNSTEVE 19/09/2016 19:53:20
#467142
Bom. eu faço assim...

antes de gravar eu valido... no botao gravar chamo essa função

   If FValidaCampos() = False Then
            Exit Sub
        End If



e minha função eu especifico oq quero validar. tipo.

    Private Function FValidaCampos() As Boolean
        [ô]Aqui Valida os Campos no qual vão ser preenchidos, tipo qnd clicar em salvar se os campos nao tiver preenchido abrirá uma msg pedindo para preencher.
        If mkbData.Text = [Ô][Ô] Then
            MsgBox([Ô]Preencha o campo de Data.[Ô], MsgBoxStyle.Information, [Ô]Atenção![Ô])
            mkbData.Focus()
            Return False
        End If

 Return True
    End Function
ZOWWT 19/09/2016 20:18:04
#467144
Citação:

:
Bom. eu faço assim...

antes de gravar eu valido... no botao gravar chamo essa função

   If FValidaCampos() = False Then
            Exit Sub
        End If



e minha função eu especifico oq quero validar. tipo.

    Private Function FValidaCampos() As Boolean
        [ô]Aqui Valida os Campos no qual vão ser preenchidos, tipo qnd clicar em salvar se os campos nao tiver preenchido abrirá uma msg pedindo para preencher.
        If mkbData.Text = [Ô][Ô] Then
            MsgBox([Ô]Preencha o campo de Data.[Ô], MsgBoxStyle.Information, [Ô]Atenção![Ô])
            mkbData.Focus()
            Return False
        End If

 Return True
    End Function



John eu entendi o que quis dizer... porém eu to passando o parâmetro campo para que eu possa utilizar em qualquer lugar e não me limitar somente naquele formulário...
Porém como eu ainda sou novo e não sei se tem como fazer isso o que eu quero é que o parâmetro campo consiga me apontar a textbox em que eu executei a função
sem eu precisar fazer uma condição que daria da mesma

alguém sabe se existe alguma forma de fazer isto?
VARUS 19/09/2016 20:46:32
#467145 Resposta escolhida
Você pode fazer diferente, tipo assim;

  Public Function Validar(sender As Object) As Boolean
        If sender.text = String.Empty Then
            MsgBox([Ô]Por favor verifique se todos os campos estão preenchidos corretamente![Ô], MsgBoxStyle.Exclamation, [Ô]Validar Campos[Ô])
            sender.focus()
            Return False
        End If
        Return True
    End Function



Onde executa a função;



     If Validar(TextBox1) = False Then
            Exit Sub
        End If
ASHKATCHUP 19/09/2016 22:25:16
#467150
Uma dica:

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Validar(TextBox1) = False Then Exit Sub
        If Validar(TextBox2) = False Then Exit Sub
        If Validar(TextBox3) = False Then Exit Sub
        If Validar(TextBox4) = False Then Exit Sub
    End Sub

    Private Function Validar(ByVal campo As TextBox) As Boolean
        If campo.Text.Trim() = String.Empty Then
            MsgBox([Ô]Favor preencher o campo[Ô] & campo.Name)
            campo.Focus()
            Return False
        End If
        Return True
    End Function
ZOWWT 19/09/2016 22:28:18
#467151
Opa, fiz algumas modificações e deu certo... muito obrigado Varus e ASHKATCHUP.
VARUS 19/09/2016 22:32:20
#467152
Se foi solucionado, encerre o tópico :)
ASHKATCHUP 19/09/2016 22:36:51
#467153
E pontue o Varus, porque ajudou primeiro!
Tópico encerrado , respostas não são mais permitidas
Voltar