Conversar Letras

[GataLinda]

Boa noite!

Gostaria de publicar este código em um módulo para que não precise criar em todas as textbox o codigo todo, alguém pode me ajudar ???

 

Private Sub txtDescProdCP_Change()

    Dim Altera              As String

    Dim Particula_atona(9)  As String

    Dim Particula(9)        As String

    Dim i                   As Integer

        Particula_atona(1) = "Da"

        Particula_atona(2) = "De"

        Particula_atona(3) = "Do"

        Particula_atona(4) = "No"

        Particula_atona(5) = "A"

        Particula_atona(6) = "E"

        Particula_atona(7) = "I"

        Particula_atona(8) = "O"

        Particula_atona(9) = "U"

        Particula(1) = "da"

        Particula(2) = "de"

        Particula(3) = "do"

        Particula(4) = "no"

        Particula(5) = "a"

        Particula(6) = "e"

        Particula(7) = "i"

        Particula(8) = "o"

        Particula(9) = "u"

        Altera = txtDescProdCP.Text

        Altera = StrConv(Altera, vbProperCase)

    For i = 1 To 9

        Altera = Replace(Altera, " " & Particula_atona(i) & " ", " " & Particula(i) & " ")

    Next

        txtDescProdCP.Text = Altera

End Sub

 

[Grandirus]

Bem, não entendi muito bem para qual finalidade, mas posso ajudar um pouco eu acho.

Fiz conforme o seu código, e dei uma melhorada, e também criei o módulo.

Ficaria mais ou menos assim:

Módulo:

Option Explicit

Public ParticulaAtona As New Collection
Public Particula As New Collection

Public Sub PopParticulaAtona()
ParticulaAtona.Add "Da"
ParticulaAtona.Add "De"
ParticulaAtona.Add "Do"
ParticulaAtona.Add "No"
ParticulaAtona.Add "A"
ParticulaAtona.Add "E"
ParticulaAtona.Add "I"
ParticulaAtona.Add "O"
ParticulaAtona.Add "U"
End Sub

Public Sub PopParticula()
Particula.Add "da"
Particula.Add "de"
Particula.Add "do"
Particula.Add "no"
Particula.Add "a"
Particula.Add "e"
Particula.Add "i"
Particula.Add "o"
Particula.Add "u"
End Sub

E a Form ficaria assim:

Option Explicit

Dim Altera As String
Dim i As Integer

Private Sub Form_Load()

PopParticulaAtona
PopParticula

End Sub

Private Sub txtDescProdCP_Change()
        Altera = txtDescProdCP.Text
        Altera = StrConv(Altera, vbProperCase)
    For i = 1 To 9
        Altera = Replace(Altera, " " & ParticulaAtona.Item(i) & " ", " " & Particula.Item(i) & " ")
    Next i
        txtDescProdCP.Text = Altera
End Sub

Criei apenas a form com o textbox conforme imaginei ai no seu código.

O resultado veio como, ao digitar o texto, ele mantem sempre a primeira letra maiúscula e o texto fica invertido.

Bem, para o módulo funcionar, onde fica o Form_Load, tem que ter o nome deles, que no caso são PopParticulaAtona e PopParticula.

Dai, onde tem o ParticulaAtona.Item(i), ele ira pegar o item referente a posição numérica, que no caso seria entre 1 e 9.

Enfim, espero ter ajudado.