Evento Change

[monicamix 0]

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

[soloplayer 0]

É um evento de caixa de texto e radiobuton.

[monicamix 0]

Mas pra quê serve? Desculpe sou iniciante.

[fnandood 0]

Private Sub txtHistFeedBackNovo_KeyPress(KeyAscii As Integer)

 

SE A TECLA PRESSIONADA FOR ... OU FOR ... (34 E 39 CORRESPONDEM A DUAS TECLAS, CONSULTE A TABELA ASCII PARA SABER QUAL TECLA CORRESPONDE) ENTAO...

If KeyAscii = 39 Or KeyAscii = 34 Then

 

TECLA =0 (NULA).

KeyAscii = 0

End If

End Sub

[Void : 0]

O change ser apenas para saber quando o conteudo de dentro da TextBox foi alteradoJa o KeyPress ele captura a tecla digitada dentro da TextBox