Ir para conteúdo
Fórum Script Brasil

Diego Lemos

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Diego Lemos

Diego Lemos's Achievements

0

Reputação

  1. fala meu amigo tenta usar uma mascara de formatação Private Sub MP1_PG1_DtDevolBX_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) MP1_PG1_DtDevolBX.MaxLength = 10 '10/10/2014 Select Case KeyAscii Case 8 'Aceita o BACK SPACE Case 13: SendKeys "{TAB}" 'Emula o TAB Case 48 To 57 If MP1_PG1_DtDevolBX.SelStart = 2 Then MP1_PG1_DtDevolBX.SelText = "/" If MP1_PG1_DtDevolBX.SelStart = 5 Then MP1_PG1_DtDevolBX.SelText = "/" Case Else: KeyAscii = 0 'Ignora os outros caracteres End Select End Sub
×
×
  • Criar Novo...