Sub lswordine4_ItemClick (Position As Int, Value As Object)As Boolean
txtordineinvisibile.Text=Value
scorpora
mp1.Load(File.DirAssets,"click.wav")
mp1.Play
If Value ="=======================" Then
lswordine4.RemoveAt(Position)
Else
Dim Selection As Short
Selection = Msgbox2("Sei sicuro di voler cancellare l'elemento selezionato?".ToUpperCase, "A T T E N Z I O N E !!", "Si", "", "No", Null,True)
Select Selection
Case DialogResponse.POSITIVE
If Msgbox2(Value, "Confermi l'eliminazione di", "Sì", "Annulla", "No", Null,True) = DialogResponse.POSITIVE Then
Dim Elemento As String = Value
Dim Parole() As String = Regex.Split("Euro", Elemento) stringa parole.
Dim Prezzo As Float = Parole(Parole.Length - 1)
totalval = totalval - Prezzo '* txtlistview.Text
totalval = totalval
txttotaleeuro.Text= totalval
txttotaleeuro.Text= NumberFormat2(totalval,1, 2, 2, False)
lswordine4.RemoveAt(Position)
txteuro.Text=0 ' riporta a 0 la casella di testo txteuro.Text.
phone1.HideKeyboard(Activity)
End If
Case DialogResponse.CANCEL, DialogResponse.NEGATIVE
End Select
End If
Return True
End Sub