|
|
Postada em 08/11/2004 13:12 hs
Boa tarde a todos!! Minha duvida é : a variavel tx é do tipo texto e recebe o texto "MARCOS" porém quando eu for usala quero que ela fique assim "Marcos" Como eu faço isto??? Grato aguardando resposta Atenciosamente Leonardo C. Lima
"A mente que se abre para novas idéias jamais volta ao seu tamanho original".
(Albert Einstein) ----------------------------------------------PII-450-256MB-GForceII-64-TV/out-Soyo----- ----Agora com Framework 1.1 + Visual Studio 2003 + WinXP. Acredite se quiser!----
Leonardo Cassuriaga Fone:(51) 96394735
Tecnico Informática __o Programador VB6.0
Programador Web _>/, DBA Access
-------------------------------------------(+)/(+)__________P_o_r_t_o__A_l_e_g_r_e_RS__
Charles Darwin : As espécies que sobrevivem não são as mais fortes, mas as que melhor conseguem se adaptar às mudanças!
-----------------------------------------------------------------------------------------------
|
|
|
|
|
|
Edson
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 08/11/2004 14:13 hs
Private Function UpperCaseText(Str As String) As String
Dim CutStr As String
Dim spLocation As Integer
Dim strConvert As String
Str = Trim(Str)
If Str = "" Then Exit Function
If InStr(1, Str, " ") Then
spLocation = InStr(1, Str, " ")
CutStr = Trim(Mid(Str, 1, spLocation - 1))
Str = Trim(Mid(Str, spLocation + 1, Len(Str) - spLocation))
strConvert = UCase(Mid(CutStr, 1, 1)) + LCase(Mid(CutStr, 2, Len(CutStr) - 1))
UpperCaseText = strConvert + " " + UpperCaseText(Str)
Else
UpperCaseText = UCase(Mid(Str, 1, 1)) + LCase(Mid(Str, 2, Len(Str) - 1))
End If
End Function Private Sub Form_Load()
Label1.Caption = UpperCaseText("Marcos MARCOS mARCOS") End Sub
|
|
|
|
|
|
Postada em 08/11/2004 14:26 hs
"A mente que se abre para novas idéias jamais volta ao seu tamanho original".
(Albert Einstein) ----------------------------------------------PII-450-256MB-GForceII-64-TV/out-Soyo----- ----Agora com Framework 1.1 + Visual Studio 2003 + WinXP. Acredite se quiser!----
Leonardo Cassuriaga Fone:(51) 96394735
Tecnico Informática __o Programador VB6.0
Programador Web _>/, DBA Access
-------------------------------------------(+)/(+)__________P_o_r_t_o__A_l_e_g_r_e_RS__
Charles Darwin : As espécies que sobrevivem não são as mais fortes, mas as que melhor conseguem se adaptar às mudanças!
-----------------------------------------------------------------------------------------------
|
|
|
|
Edson
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 08/11/2004 14:34 hs
esta dica aqui e melhor ainda |
|
|
|
|
