UC E LC

MANCKENNA 22/08/2009 15:07:33
#320680

Alguém sabe como rodar este código ?


Dim mystring As String
Dim lcString As String
Dim upString As String
mystring = [Ô]This is a Test[Ô]
lcString = LCase(mystring)
ucString = UCase(mystring)
TECLA 22/08/2009 15:09:57
#320681 Resposta escolhida
Assim:

Dim mystring As String, lcString As String, upString As String
mystring = [Ô]This is a Test[Ô]
lcString = LCase(mystring)
upString = UCase(mystring)
MsgBox lcString, , [Ô]Minúsculo[Ô]
MsgBox upString, , [Ô]Maiúsculo[Ô]
WHELLNET 24/08/2009 07:44:58
#320741
Já que você está aprendendo VB (pelo que vejo), você pode Step Into (F8) em vez do Run (F5).
Desta forma o programa vai ser pausado a casa passo, e você pode, ao pausar o mouse sobre a variável, o seu valor.

Experimente!
ACG1574 24/08/2009 08:10:06
#320745
manckenna, coloque dentro do evento click de um botao, aperte F5 e clique no botao, verá o resultado, dessa maneira

Private Sub Command1_Click()
Dim mystring As String
Dim lcString As String
Dim upString As String
mystring = [Ô]This is a Test[Ô]
lcString = LCase(mystring)
ucString = UCase(mystring)
msgbox [Ô]Minuscula: [Ô] & lcString & [Ô] Maiuscula: [Ô] & ucString
End Sub
MANCKENNA 24/08/2009 11:41:55
#320782
Valeu Galera , o exemplo do livro, parece que deixou a desejar........
Tópico encerrado , respostas não são mais permitidas
Voltar