pstringa1

esci con testvbax.htm

pstringa1.ppt funzioni stringa con vba su powerpoint (cfr.pvaria1.htm)

Private Sub CommandButton1_Click()
Rem pstringa1
destra = Right("laudare", 3)
sinistra = Left("laudare", 4)
lunghezza = Len("laudare")
estrai = Mid("laudare", 2, 3)
valore = Val("120")
testo = Str$(150)
codice = Asc("amare")
concatena = "maria" + "rosa"
Label1.Caption = destra
Label2.Caption = sinistra
Label3.Caption = lunghezza
Label4.Caption = estrai
Label5.Caption = valore
Label6.Caption = testo
Label7.Caption = codice
Label8.Caption = concatena
ListBox1.AddItem ("destra =" & destra)
ListBox1.AddItem ("sinistra =" & sinistra)
ListBox1.AddItem ("lunghezza =" & lunghezza)
ListBox1.AddItem ("estrai =" & estrai)
ListBox1.AddItem ("valore =" & valore)
ListBox1.AddItem ("testo =" & testo)
ListBox1.AddItem ("codice =" & codice)
ListBox1.AddItem ("concatena =" & concatena)
TextBox1 = ("destra =" & destra)
TextBox2 = ("sinistra =" & sinistra)
TextBox3 = ("lunghezza =" & lunghezza)
TextBox4 = ("estrai =" & estrai)
TextBox5 = ("valore =" & valore)
TextBox6 = ("testo =" & testo)
TextBox7 = ("codice =" & codice)
TextBox8 = ("concatena =" & concatena)
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub


Private Sub UserForm_Click()

End Sub