LETRAS MAIUSCULAS
Saberiam me informar como eu faço para quando um textbox peder o foco transformar as letras em maiusculas tipo:
Cliente: ciclano da silva perde o foco e fica: Ciclano Da Silva
Isso sem usar a propriedade LostFocus do textbox...Haveria como colocar isso diretamente nas propriedades do form ? Assim não precisaria setar as propriedades de cada textbox...Obrigado.
Cliente: ciclano da silva perde o foco e fica: Ciclano Da Silva
Isso sem usar a propriedade LostFocus do textbox...Haveria como colocar isso diretamente nas propriedades do form ? Assim não precisaria setar as propriedades de cada textbox...Obrigado.
Sem usar os eventos LOSTFOCUS não tem como... vc pode criar Controles Arrays para facilitar o serviço, mas tera de usar o evento...
Se quer fazer com que todos os nomes de Clientes digitado fique Padrão, ou seja, primeira letra em Ucase.
copie e cole as linha abaixo onde você deseja que seja a função...
'Inicio da função
'aqui eu declaro as variáveis
Dim mtzTeste As Variant
Dim strTeste As String
Dim i As Integer
'aqui eu pego o texto
strTeste = Text1
'split divide tudas as letra depois de um " " (Espaço)
mtzTeste = Split(strTeste, " ")
'faço laço até que seja verdadeiro
Do While i <= UBound(mtzTeste)
'se o texto for maior que 3 Ucase na primeira letra
'Inicio = as linhas abaixo são uma linha só
If Len(mtzTeste) > 3 Then mtzTeste = UCase(Mid(mtzTeste, 1, 1)) & LCase(Mid(mtzTeste, 2, Len(mtzTeste)))
'fim = as linhas acima são uma linha só
'junto o texto com Ucase + " " (Espaço)
Text2 = Text2 & mtzTeste & " "
'contador para saber onde Estou
i = i + 1
'fim do laço
Loop
'Fim da função
Se quer fazer com que todos os nomes de Clientes digitado fique Padrão, ou seja, primeira letra em Ucase.
copie e cole as linha abaixo onde você deseja que seja a função...
'Inicio da função
'aqui eu declaro as variáveis
Dim mtzTeste As Variant
Dim strTeste As String
Dim i As Integer
'aqui eu pego o texto
strTeste = Text1
'split divide tudas as letra depois de um " " (Espaço)
mtzTeste = Split(strTeste, " ")
'faço laço até que seja verdadeiro
Do While i <= UBound(mtzTeste)
'se o texto for maior que 3 Ucase na primeira letra
'Inicio = as linhas abaixo são uma linha só
If Len(mtzTeste) > 3 Then mtzTeste = UCase(Mid(mtzTeste, 1, 1)) & LCase(Mid(mtzTeste, 2, Len(mtzTeste)))
'fim = as linhas acima são uma linha só
'junto o texto com Ucase + " " (Espaço)
Text2 = Text2 & mtzTeste & " "
'contador para saber onde Estou
i = i + 1
'fim do laço
Loop
'Fim da função
Tópico encerrado , respostas não são mais permitidas