boa tarde galera, tô precisando da ajuda de vc's... meu problema é o seguinte: tenho um forme como exemplo abaixo:
para visualizar melhor o desenho, mude a fonte para "Courier New"
_________________________________
|_______________________________|X|
| ______________________ |
| nome: |______________________| |
| |
| |Transformar| |
| _________________ |
| resultado: |_________________| |
|_________________________________|
o que eu tô querendo é quando eu clicar no botão transformar, ele pega a inicial de cada palavra digitada na caixa nome e transforma em maiúscula(somente iniciais)...Alguém me socorre....
Segue meu código:
Private Sub cmdTransformar_Click()
Dim Maiusc As String, Minusc As String, Espaco As String
Dim Result As String, v As String, i As Integer
For i = 1 To Len(txtNome.Text)
Espaco = InStr(i, txtNome, " ", 1)
Maiusc = UCase(Mid(txtNome, i, 1))
Minusc = LCase(Mid(txtNome, i, 1))
v = Maiusc & Minusc
Result = Result & v
Next i
lblResultado.Caption = Result
End Sub
....
