Campo Mask

[mestre fyoda]

eu to apagando o que tiver escrito assim :

Formulario.telefone.Mask = " #### - #### "

Mas não seria bem isso que eu queria , eu queria que ficasse assim :

Formulario.telefone.Mask = " >??? - #### "

Desse geito aqui em cima não ta dando certo , porque ?

[mestre fyoda]

opa , já axei o q tava errado tinha uma ? a mais . foi mal gente por ter postado , nem tinha percebido . depois de 5 horas nesse codigo descobri o ero , depois q agente fica muito no codigo tem q sair um pouquinho .

Di novo pesso desculpas .

Mas tenho uma duvida diferente q postei , quando eu passo pelo campo e depois volto nesse mesmo campo , o ponteiro fica apontando no final . Como faço para apontar no começo .

[Graymalkin]

Mas tenho uma duvida diferente q postei , quando eu passo pelo campo e depois volto nesse mesmo campo , o ponteiro fica apontando no final . Como faço para apontar no começo .

Já experimentou a propriedade SelStart?

Abraços,

Graymalkin

[mestre fyoda]

estranhissimo antes não funvava mas agora ta funcionando .

[ramon]

você deve ter alterado algo!

[mestre fyoda]

Quando eu vou apagar os campos mask , os campos mask não deixa eu apagar , porque ?

Private Sub Form_Load()

Centralizar Me

Set Dados_Cliente = cn.Execute("SELECT * from Carro where placa = '" & Cod & "' ")

placa.Mask = Dados_Cliente("placa")

modelo.Text = Dados_Cliente("modelo")

tipo.Text = Dados_Cliente("tipo")

ano.Mask = Dados_Cliente("ano")

End Sub

Private Sub Image1_Click()

Dim xnome As String

Dim Atualizar_Placa As String

          

    If placa.Text <> Cod Then

        Kill "C:\Documents and Settings\Rafael\Meus documentos\programas em vb\mecanica\update\" & Placa_antiga & ".doc"

        n = FreeFile()

        Open "C:\Documents and Settings\Rafael\Meus documentos\programas em vb\mecanica\update\" & placa.Text & ".doc" For Output As #n

        Close #n

        Cod = placa.Text

        Set Alterar = cn.Execute(" Update Carro set placa = '" & placa.Text & "' , modelo = '" & modelo.Text & "' ,tipo = '" & tipo.Text & "' , ano = '" & ano.Text & "' ")

        Altera = MsgBox("Alteração executada com sucesso")

    End If

End Sub

Private Sub Image2_Click()

Unload Me

End Sub

Private Sub tipo_LostFocus()

If tipo.ListIndex = 0 Then

modelo.AddItem "Passat"

modelo.AddItem "Parati"

modelo.AddItem "Golf"

End If

End Sub

já achei o problema , era na configuração do campo mask ele tinha um espaço .

Cruel esse erro agente nem percebe .