[ALL]AutoCorreção "Simples"

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

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

OBS: To postando nas duas areas pois serve para ambas engines ;D

por St4rk Qua 10 Mar 2010, 11:23

Boa cara ^^ realmente fico 10!,o meu(não quero me amostra) é o Do IS(Ilumina Saga) é mais complicado(é um modulo so pra isso) mais vale a pena tabem ^^,parabens +1 de cred

por Lucas Lôpo Qua 10 Mar 2010, 12:45

Eu sei amigo tambem tenho o IS aqui so não quiz postar aqui pois irei usar no meu server e nao posso ficar dando scripts bom assim de mao beijada '-'
pelo menos esse ta simples mas ta funcional

por St4rk Qua 10 Mar 2010, 13:52

velho assim até onde eu saiba IS não usa main.txt cara -_-,duvido que você tinha a source do Is e se tiver duvido sabe mecher nela ;P

por Lucas Lôpo Qua 10 Mar 2010, 18:37

"Descula lendario mas tenho que responder "

"OFF - TOPIC"

kkkkkkkkkkkkk , primeiro não se acha muito não pow '-'
pergunta ao celio se não tenho o source do IS ;D
e outra não lhe devo satisfaçao voce vem aqui no meu post e vem querer tirar onda?
Não sou eu que fico usando source de outras pessoas porque nao tenho capacidade
de criar a minha nae =D
auysgauysgaysg noob é assim memso o Celio passa o source do IS e ficar tirando onda
com uma coisa que nao foi nem ela quem fez kkkkkkkkkkkkkkkkkkk
Vai aprender sobre visual basic primeiro depois falar comigo blz...

É tão noob que quem falou aqui em Main.txt '-'
Vixe vejo que nao entendi de nada mesmo...
Quando me refiro a script nao to falando se é sadscript nem que é hadscript entao isso fica podendo ser os dois ;D

por St4rk Qui 11 Mar 2010, 11:45

que bom né,pra cala sua boquinha Razz

eu não preciso da source do IS,ela tem base na TE(Total Eclipse) sem conta com as modificações e os codigos mal feitos,bom eu fiz tudo isso na EE sozinho Razz

então pode morre de inveja se não consegue _|_

Sim lembrando Razz

o célio me passo ela,mais ela nem serviu Rolling Eyes

muito mal feita ;P mais eu já tenho capacidade de fazer meus sistemas Surprised

Ps: Cuidado velho!,conselho de amigo!, INVEJA MATA Sad

por celiojedi Qui 11 Mar 2010, 11:51

Primeiro... quem e vc mesmo ?? segundo !!! eu nao devo nada para ninguem !!! terceiro quem hj que meche com eclipse nao tem a source do IS ?

por St4rk Qui 11 Mar 2010, 11:57

kkkkkkkk sem contar que ele falo que eu copio os sistemas da source do IS(ri muito) cara não preciso copiar Wink

chupa essa manga ae

por Lucas Lôpo Qui 11 Mar 2010, 12:56

Ow deus pobres coitatos vou gastar meu tempo ? '-'
Bom celio eu sou aquele que voce me pediu pelo amor de
deus pra lhe ajudar te um dia desses mesmo se tava falando comigo
no msn =/ lamento por voce ter um memoria fraca...
Omega olha mano paro a descurção tu vem aqui no meu topico falar coisa comigo
nao pedi pra voce comentar nem fazer critica '-'
Se nao teria colocado por favor fassam criticas ou podem re aparecer o quanto quizer
o topico élivre '-' pelo que vejo nao tem isso ne?
Então fica quetinho ai que nem te conheço nem falei nada com tu
tu que veio da uma de maximo falar coisa comigo '-'

por St4rk Qui 11 Mar 2010, 14:36

Vamos fazer o seguinte,se continuamos vamos brigar,eu vou ser sinsero eu não uso os codigos de IS por que nem é que seja complicado,mais você pode até ver ele é meio "mal feito" Razz

mais mesmo assim não vamos brigar por uma coisa ^^ você é bom programador,como eu tabem sou,nenhum é profissional Very Happy

,to ajudando célio por que ele é legal Very Happy

mais mesmo assim vamos continua amigos,por que briga não resolve nada Razz

Feito!?

por Lucas Lôpo Qui 11 Mar 2010, 15:56

Por mim tudo bem afinal não foi eu quem começou ;D

por St4rk Qui 11 Mar 2010, 15:57

tanto fais D: so para de reclama homi >.> já to cansado de briga

por Lucas Lôpo Qui 11 Mar 2010, 19:42

Cabo entao ;D

por Conteúdo patrocinado

[ALL]AutoCorreção "Simples"

[ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"

Re: [ALL]AutoCorreção "Simples"