Sub lswordine_ItemClick (Position As Int, Value As Object)
txtordineinvisibile.Text=Value ' uso questa casella di testo per far apparire l'intera stringa che visuliazzo in un rigo della listview, esempio: 6: scatole di tonno - Euro 4.50
scorpora' uso questa sub situata alla fine del codice.
mp1.Initialize
mp1.Load(File.DirAssets,"clickok.mp3")
mp1.Play
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)
Select Selection
Case DialogResponse.POSITIVE
' qui sotto utilizzo il codice fornitomi dall'amico LucaMs, adattandolo alle mie esigenze.
If Msgbox2(Value, "Confermi l'eliminazione di", "Sì", "Annulla", "No", Null) = DialogResponse.POSITIVE Then
Dim Elemento As String = Value
Dim Parole() As String = Regex.Split("Euro", Elemento)
Dim Prezzo As Float = Parole(Parole.Length - 1)
' fine del codice fornitomi da LucaMs ed inizio dell'adattamento per le mie esigenze.
totalval = totalval - Prezzo * txtlistview.Text ' totalval è una variabile come Double
totalval = totalval
txttotaleeuro.Text= totalval
lswordine.RemoveAt(Position)
txteuro.Text=0
End If
Case DialogResponse.CANCEL, DialogResponse.NEGATIVE
End Select
Return True
End Sub
Sub scorpora
txtlistview.Text=txtlistview.Text ' aggiorno la casella di testo
Dim k As Int
k = txtordineinvisibile.Text.IndexOf(":")' cerco il riferimento dei due punti
If k >= 0 Then
txtlistview.Text = txtordineinvisibile.Text.SubString2(0,k)' inserisco nella casella di testo txtlistview.text il numero della quantità delle scatole di tonno ( 6: scatole di tonno - Euro 4.50 )
End If
End Sub