Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Solo caratteri selezionati - Solo caratteri selezionati.frm

Solo caratteri selezionati.frm

 Caricato da: Antometal
Scarica il programma completo

  1. Private Sub Testo_Change()
  2. On Error Resume Next
  3. b = False
  4.     For i = 1 To Len(Sorg.Text)
  5.             If Mid(Sorg.Text, i, 1) = Mid(Testo.Text, Testo.SelStart, 1) Then b = True
  6.     Next i
  7.     If b = False Then
  8.         Testo.Text = Mid(Testo.Text, 1, Len(Testo.Text) - 1)
  9.         Testo.SelStart = Len(Testo.Text)
  10.         Beep
  11.     End If
  12. End Sub