USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Datas/Números/Strings)

Título da Dica:  Capitular em VB6
Postada em 23/1/2008 por Ribeiro      Clique aqui para enviar email para o autor  prgisrj@gmail.com
'************************************************************* 'Faz a capitular do texto passado como parâmetro, ou seja,
' deixa a primeira letra de cada palavra como maiúscula.
'*************************************************************
Public Function Capitular(ByVal Texto As String) As String
Dim strTokens() As String
Dim i           As Integer
Dim strAux      As String
Dim strRetorno  As String

    strTokens = Split(Texto, " ")
    For i = 0 To UBound(strTokens)
        strAux = UCase(Mid(strTokens(i), 1, 1))
        strTokens(i) = strAux & Mid(strTokens(i), 2)
    Next
    
    For i = 0 To UBound(strTokens)
        strRetorno = strRetorno & strTokens(i) & Space(1)
    Next

    Capitular = strRetorno
End Function
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página