Evento Change
Private Sub txtHistCheckListNovo_Change()
txtHistCheckListNovo.Text = Replace(txtHistCheckListNovo.Text, "'", "", 1, Len(txtHistCheckListNovo))
txtHistCheckListNovo.Text = Replace(txtHistCheckListNovo.Text, """", "", 1, Len(txtHistCheckListNovo))
txtHistCheckListNovo.SelStart = Len(txtHistCheckListNovo.Text)
End Sub
E este?
Private Sub txtHistFeedBackNovo_KeyPress(KeyAscii As Integer)
If KeyAscii = 39 Or KeyAscii = 34 Then
KeyAscii = 0
End If
End Sub
Discussão (4)
Carregando comentários...