[ALL]AutoCorreção "Simples"

por Lucas Lôpo Ter 09 Mar 2010, 21:23

Olá hoje vou dar um previa de um AutoCorreção simples, mas quando eu digo simples é simples mesmo ;D
Bom então vamos começar.

Na txtMyTextBox dê dois clicks e adicione isso :

Código:: txtMyTextBox.Text = Replace(txtMyTextBox.Text, " E", " e", , , vbTextCompare) txtMyTextBox.Text = Replace(txtMyTextBox.Text, "De", "de", , , vbTextCompare) txtMyTextBox.Text = Replace(txtMyTextBox.Text, "Do", "do", , , vbTextCompare) txtMyTextBox.Text = Replace(txtMyTextBox.Text, "Dos", "dos", , , vbTextCompare) txtMyTextBox.SelStart = Len(txtMyTextBox.Text) + 1 txtMyTextBox.SelLength = Len(txtMyTextBox.Text)

Obiviamente ela ficara assim :

Código:: Private Sub txtMyTextBox_Change() txtMyTextBox.Text = Replace(txtMyTextBox.Text, " E", " e", , , vbTextCompare) txtMyTextBox.Text = Replace(txtMyTextBox.Text, "De", "de", , , vbTextCompare) txtMyTextBox.Text = Replace(txtMyTextBox.Text, "Do", "do", , , vbTextCompare) txtMyTextBox.Text = Replace(txtMyTextBox.Text, "Dos", "dos", , , vbTextCompare) txtMyTextBox.SelStart = Len(txtMyTextBox.Text) + 1 txtMyTextBox.SelLength = Len(txtMyTextBox.Text) End Sub

Logo abaixo de sub adicione essa outra sub:

Código:: Private Sub txtMyTextBox_KeyPress(KeyAscii As Integer) Dim vPos As Long vPos = txtMyTextBox.SelStart If KeyAscii >= 97 And KeyAscii <= 122 Then If vPos = 0 Then KeyAscii = KeyAscii - 32 ElseIf Mid(txtMyTextBox.Text, vPos, 1) = " " Then KeyAscii = KeyAscii - 32 End If End If End Sub

E pronto seja feliz..
Lembrando para mudar as correções basta mudar essas linhas ou acrecentar:

Código:: txtMyTextBox.Text = Replace(txtMyTextBox.Text, " E", " e", , , vbTextCompare) txtMyTextBox.Text = Replace(txtMyTextBox.Text, "De", "de", , , vbTextCompare) txtMyTextBox.Text = Replace(txtMyTextBox.Text, "Do", "do", , , vbTextCompare) txtMyTextBox.Text = Replace(txtMyTextBox.Text, "Dos", "dos", , , vbTextCompare)

Qualquer duvida pode me perguntar ;D