Primeira Letra Sempre Em Maiuscula

[ramon]

Queria saber se tem algum jeito de deixar sempre a primeira letra em maiscula numa lista box

Tipo tenho um textbox digamos que usuario digite RAMON LOURENCO (tudo em maiuscula )ou ramon lourenco (tudo em minuscula)

Eu quero que apareca no listbox assim Ramon Lourenco (a primeira letra sempre em maiuscula)

Como eu posso fazer isso?

[Graymalkin]

Um exemplo:

msgbox strconv("ramon lourenço", VbProperCase)

Abraços,

Graymalkin

[ramon]

valeu cara

Mas tipo se eu adicionar RAMON DA SILVA

Vai ficar

Ramon Da Silva

Aquele DA não tem como deixar ele em minusculo

Ramon da Silva

[Graymalkin]

Não de forma automática. O que você pode fazer é:

Dim troca() As String
Dim nome As String

nome = StrConv("ramon da silva", vbProperCase)
MsgBox nome

troca = Split("Da;De;Do", ";")

For Each e In troca
  nome = Replace(nome, space(1) & e & space(1), space(1) & LCase(e) & space(1))
Next e
MsgBox nome

Execute isso aí e veja os resultados.

Abraços,

Graymalkin

[ramon]

Agora sim ficou perfeito

Valeu cara

Mas me diga duas coisas

Como você sabe tudo isso?

E qual o seu conselho para eu aprender?

[Graymalkin]

Como eu sei "tudo isso"? Pra dizer a verdade: eu não sei "tudo isso". É aí que está o ponto fundamental: eu apenas sei para que serve cada coisa e sei como misturá-las para chegar ao "tudo isso". Isso é que é o importante. O ambiente do VB favorece muito o auto-aprendizado, já que quando você digita um "." ele te fornece uma lista de métodos e de propriedades, ou quando você abre "(" ele te diz exatamente o que você deve informar e qual será o resultado. Com noções mínimas de lógica de programação, você é capaz de fazer maravilhas em VB. Basta você saber o que procurar e onde procurar. Outra coisa que auxilia muito é o Object Browser (pressione F2 e você o verá). A maioria das funções tem nomes extremamente condizentes com suas respectivas ações (como a função Replace() usada no exemplo). Portanto, uma boa noção de inglês também é altamente recomendável. É claro que isso não é o bastante já que algumas funções não tem essa característica (como a função StrConv()), mas pra esses casos existe o fórum... (com certeza alguém já fez algo ou já viu algum exemplo de como fazer o que você quer, e lembra na hora que vê uma pergunta a respeito).

Qualquer dúvida, 'stamos aí.

Abraços,

Graymalkin

[ramon]

Então disse tudo

Valeu cara

[William Rodrigues]

É isso æ

Disse tudo mesmo

Abraços,

William Rodrigues

[Rogerio Germano]

Comigo não funcionou. Aparece a mensagem: 

 

For Without Next

[Alyson Ronnan Martins]

Tentou formatar depois da digitação?

[Jose Carlos Marques]

Como faço para que este Mês em questão venha com a primeira letra em maiusculo

=Format(Month(Now),"mmmm")

ou 

= MonthName(Month(Now()))

[Priscylla Vital Vasconcelo]

Em 16/05/2004 em 15:10, Graymalkin disse:

Não de forma automática. O que você pode fazer é:

Tanto tempo depois, será que você ainda pode me ajudar?

Usei esse código, funcionou muito bem, obrigada!

No entanto quando abre a msgBox final, aparece que a substituiçao  funcionou o "de" aparece minúsculo, mas quando clico em OK, as textBox não se altera. Pode me ajuda?

Private Sub Texto_nome_Change()

Texto_nome.Text = Application.WorksheetFunction.Proper(Texto_nome.Text)

End Sub

'*********************************************************************************

Private Sub Texto_nome_AfterUpdate()
Dim troca() As String
Dim Nome As String

Nome = Texto_nome
troca = Split("Da;De;Do;Dos;Das", ";")

For Each e In troca
  Nome = Replace(Nome, Space(1) & e & Space(1), Space(1) & LCase(e) & Space(1))

Next e

MsgBox Nome
End Sub

 

 

 

Em 16/05/2004 em 15:10, Graymalkin disse:

 

 

Dim troca() As String
Dim nome As String

nome = StrConv("ramon da silva", vbProperCase)
MsgBox nome

troca = Split("Da;De;Do", ";")

For Each e In troca
  nome = Replace(nome, space(1) & e & space(1), space(1) & LCase(e) & space(1))
Next e
MsgBox nome

 

 

Execute isso aí e veja os resultados.

 

Abraços,

 

Graymalkin