sperimentare

esercitazione con VBA su powerpoint

trasformare un testo in sole maiuscole o minuscole

http://digilander.libero.it/francescovise/vbacodice/cambiare.htm
http://digilander.libero.it/francescovise/vbacodice/cambiare.ppt
http://digilander.libero.it/francescovise/vbacodice/cambiare.GIF

Private Sub CommandButton1_Click()
Dim nome As String
nome = "PADOVA"
ListBox1.AddItem (nome & " " & cambiare(nome))
nome = "PaDoVa"
ListBox1.AddItem (nome & " " & cambiare(nome))
nome = "Padova"
ListBox1.AddItem (nome & " " & cambiare(nome))
nome = "pAdOvA"
ListBox1.AddItem (nome & " " & cambiare(nome))
nome = "12 PADOVA + + "
ListBox1.AddItem (nome & " " & cambiare(nome))

End Sub

Function cambiare(testo As String) As String
Rem scrivere tutto minuscolo
Dim p As Integer
Dim nuovo As String
p = 1
lungo = Len(testo)
While p <= lungo
nuovo = nuovo & LCase(Mid$(testo, p, 1))
p = p + 1
Wend
cambiare = nuovo
End Function

Function cambiare2(testo As String) As String
Rem scrivere tutto maiuscolo
Dim p As Integer
Dim nuovo As String
p = 1
lungo = Len(testo)
While p <= lungo
nuovo = nuovo & UCase(Mid$(testo, p, 1))
p = p + 1
Wend
cambiare2 = nuovo
End Function

Private Sub CommandButton2_Click()
Dim nome As String
ListBox1.AddItem ("------------------------------")
nome = "PADOVA"
ListBox1.AddItem (nome & " " & cambiare2(nome))
nome = "PaDoVa"
ListBox1.AddItem (nome & " " & cambiare2(nome))
nome = "Padova"
ListBox1.AddItem (nome & " " & cambiare2(nome))
nome = "pAdOvA"
ListBox1.AddItem (nome & " " & cambiare2(nome))
nome = "12 PADOVA + + "
ListBox1.AddItem (nome & " " & cambiare2(nome))
nome = "sodio e Potassio sono meTalli "
ListBox1.AddItem (nome & " " & cambiare2(nome))
End Sub