flag q eu criei nao funciona

[mestre fyoda 1]

eu mudei e tirei a flag maso problema é esse , Quando se clica no botao ok o codigo limpa os campos mask , eu to fazendo assim telefone.mask = "______" , mas desse geito o campo nao da pra digitar .Como eu faço ?

[Graymalkin 0]

eu mudei e tirei a flag maso problema é esse  , Quando se clica no botao ok o codigo limpa os campos mask , eu to fazendo assim telefone.mask = "______" , mas desse geito o campo nao da pra digitar .

Como eu faço ?

<{POST_SNAPBACK}>

Se me lembro bem, para limpar uma MaskEdit você tem que fazer:

 

máscara = telefone.masktelefone.mask = ""telefone.text = ""telefone.mask = máscara

O mais prático é criar uma rotina para isso e passar a maskedit para ela (assim você não precisará escrever quatro linhas para cada maskedit que você limpar).

 

Abraços,

 

Graymalkin

[mestre fyoda 1]

Aonde esta em vermelho é aoinde esta dando problema . o estranho é q a função Limpar_Tudo ta dando erro , eu testei a função Limpar_Carro e deu certo .

Pq esta dando erro ?

eu fiz assim :

 

    If pergunta = vbYes Then

        Call Limpar_Tudo(Cadastrar_Cliente_Automóvel)

    Else

        Call Limpar_Carro(Cadastrar_Cliente_Automóvel)

End If

global

Public Function Limpar_Tudo(Formulario As Form) As String

        Formulario.nome.SetFocus

        Formulario.nome.Text = ""

        Formulario.endereco.Text = ""

        Formulario.numero.Text = ""

        Formulario.bairro.Text = "Bairro"

       

        mask_telefone = Formulario.telefone.Mask

        Formulario.telefone.Mask = ""

        Formulario.telefone.Text = ""

        Formulario.telefone.Mask = mask_telefone

       

      mask_placa = Formulario.placa.Mask

        Formulario.placa.Mask = ""

        Formulario.placa.Text = ""

        Formulario.placa.Mask = mask_placa

       

        mask_ano = Formulario.ano.Mask

        Formulario.ano.Mask = ""

        Formulario.ano.Text = ""

        Formulario.ano.Mask = mask_ano

       

        Formulario.modelo.Text = "Modelo"

        Formulario.tipo.Text = "Tipo"

End Function

 

Public Function Limpar_Carro(Formulario As Form) As String

       

        Formulario.placa.SetFocus

        mask_placa = Formulario.placa.Mask

        Formulario.placa.Mask = ""

        Formulario.placa.Text = ""

        Formulario.placa.Mask = mask_placa

       

        mask_ano = Formulario.ano.Mask

        Formulario.ano.Mask = ""

        Formulario.ano.Text = ""

        Formulario.ano.Mask = mask_ano

       

        Formulario.modelo.Text = "Modelo"

        Formulario.tipo.Text = "Tipo"

End Function

[Luizgrs 0]

Tenta fazer desse jeito que fica mais prático ele vai pegar todas as maks do formulário:

Dim controle As Control    For Each controle In mdiinicio.ActiveForm.Controls        If TypeOf controle Is MaskEdBox Then            controle.Text = Replace(Replace(controle.Mask, "\", ""), "#", "_")        End If    Next