LETRAS MAIUSCULAS

CRCJ 17/06/2013 13:40:59
#424882
Ola A Todos
Como faço para deixar a primeira letra de uma TextBox maiuscula, por ex:

não estou conseguindo
para
Não Estou Conseguindo

Me desculpem, mas já procurei na net e aqui no Fórum, mas não achei nada que resolva isso
KERPLUNK 17/06/2013 14:08:28
#424884
O que você quer, se chama capitalizar, tem várias funções prontinhas pra isso por aí...
FILMAN 17/06/2013 17:28:23
#424894 
Public Function verMaiuscula(ByVal sTexto As String) As String
        Dim auxTexto As String = [Ô][Ô]
        Dim idTexto As String = [Ô][Ô]
        Dim vetString As String() = sTexto.Split([Ô] [Ô])

        For i As Integer = 0 To vetString.Length - 1
            idTexto = vetString(i).Substring(i, 1).ToUpper() & vetString(i).Substring(1)
            auxTexto += idTexto & [Ô] [Ô]
        Next
        verMaiuscula = arrumaMaiuscula(auxTexto.Trim())
End Function

Public Function arrumaMaiuscula(ByVal sTexto As String) As String
        Dim auxTexto As String = [Ô][Ô]
        Dim idTexto As String = [Ô][Ô]

        For i As Integer = 0 To sTexto.Length - 1
            idTexto += sTexto.Substring(i, 1)
            auxTexto += sTexto.Substring(i, 1)
            If (sTexto.Substring(i, 1) = [Ô] [Ô] And idTexto.Trim().Length < 3) Then
                auxTexto = auxTexto.Substring(0, (auxTexto.Length - idTexto.Length)) & idTexto.ToLower
                idTexto = [Ô][Ô]
            ElseIf (sTexto.Substring(i, 1) = [Ô] [Ô]) Then
                idTexto = [Ô][Ô]
            End If
        Next
        verMaiuscula = auxTexto
End Function


para chamar a função faz o seguinte

txtNome.Text = verMaiuscula([Ô]teste de string com letra maiúscula[Ô])

verMaiuscula Deixa a primeira letra maiuscula
arrumaMaiuscula tira as letras maiuscula da palavras como (de, da, e, o, a, ao, etc..)

Espero ter ajudado
PEGUDO 20/06/2013 09:00:13
#425008 Resposta escolhida
O que você precisa é do ProperCase
MsgBox(StrConv([txt-color=#e80000][Ô]vbmania referência em programação[Ô][/txt-color], [txt-color=#0000f0]VbStrConv[/txt-color].ProperCase))


Para mais informações:Suporte Microsoft
CRCJ 24/06/2013 09:46:31
#425128
Obrigado a todos mas consegui de uma forma mais simples

Private Sub Text1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFornecedor.LostFocus
Text1.Text = StrConv(txtFornecedor.Text, vbProperCase)
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar