FORMATAR TEXT-BOX

PATRICIALINDA 05/09/2011 22:40:15
#383480
Como faço para uma text-box ter um validador que respeite os critérios :

  • é preciso digitar apenas as strings
    • [Ô]WRK-[Ô] e o número do computador
  • Ou digitar apenas as strings
    • [Ô]FCL-A-[Ô] e o número do servidor

    Pois tenho um cadastro onde o usuario irá cadastrar o nome das desktops e servidores, mas quando se trata de desktop, sempre se inicia com as strings [Ô]WRK-[Ô] e o numero da maquina [Ô]0034[Ô], assim ficará [Ô]WRK-0034[Ô] e para o nome de servidores é parecido.

    Não posso aceitar outras letras como faço ?
    MARCELO.TREZE 05/09/2011 23:32:16
    #383485
    veja se é isso adapte para o que desejar

    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Text1.Text = [Ô][Ô] Then
    If KeyAscii <> Asc([Ô]W[Ô]) And KeyAscii <> Asc([Ô]w[Ô]) Then
    KeyAscii = 0
    End If
    ElseIf Len(Text1.Text) = 1 Then
    If KeyAscii <> Asc([Ô]R[Ô]) And KeyAscii <> Asc([Ô]r[Ô]) Then
    KeyAscii = 0
    End If
    ElseIf Len(Text1.Text) = 2 Then
    If KeyAscii <> Asc([Ô]K[Ô]) And KeyAscii <> Asc([Ô]k[Ô]) Then
    KeyAscii = 0
    End If
    ElseIf Len(Text1.Text) = 3 Then
    Text1.Text = UCase(Text1.Text)
    Text1.Text = Text1.Text & [Ô]-[Ô]
    Text1.SelStart = Len(Text1.Text)
    ElseIf Len(Text1.Text) >= 4 Then
    If (KeyAscii < Asc([Ô]0[Ô]) Or KeyAscii > Asc([Ô]9[Ô])) And KeyAscii <> 8 Then
    KeyAscii = 0
    End If

    Else
    KeyAscii = 0
    End If
    End Sub
    Tópico encerrado , respostas não são mais permitidas
    Voltar