oque preciso é quando for escrever na caixa de texto queria que ele reconhecesse as letras maiusculas e minusculas ao digitar
segue um exemplo que usava no vba, será que alguém poderia me ajudar no vb6
''' Faz com que as letras se tornem maiusculas ou minusculas
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" <<<<<<<<<<<<<<<<<<<<<<<<<<<<<Exemplo do vba
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
queria também poder colocar em um módulo que ficasse ou programar para que ficasse puxando altomatico,,,
segue exemplo de quando quero letras maiusculas...
Private sub Form_KeyPress(keyAscii As Integer) <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<Exemplo do VB6
KeyAscii=Asc(UCase(Chr(KeyAscii)))
'''apos isso só habilito (KeyPreview = True)
Queria adaptar esse codigo no exemplo que uso no vba acima citado...
Pergunta
GataLinda
Boa noite, pessoal! tudo bem com vocês?
Estou acostumada a usar o vba
então onde quero usar
letras maiusculas uso o Ucase
Letras minusculas uso Lcase
Alternas uso o Proper
me_funcionario.Text = Application.WorksheetFunction.Proper(cx_nome_funcionario.Text)
só que esse codigo no vb6 não esta aceitando...
oque preciso é quando for escrever na caixa de texto queria que ele reconhecesse as letras maiusculas e minusculas ao digitar
segue um exemplo que usava no vba, será que alguém poderia me ajudar no vb6
''' Faz com que as letras se tornem maiusculas ou minusculas
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" <<<<<<<<<<<<<<<<<<<<<<<<<<<<<Exemplo do vba
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
queria também poder colocar em um módulo que ficasse ou programar para que ficasse puxando altomatico,,,
segue exemplo de quando quero letras maiusculas...
Private sub Form_KeyPress(keyAscii As Integer) <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<Exemplo do VB6
KeyAscii=Asc(UCase(Chr(KeyAscii)))
'''apos isso só habilito (KeyPreview = True)
Queria adaptar esse codigo no exemplo que uso no vba acima citado...
End Sub
Atenciosamente,
Débora.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.