Private Sub ButtonF10_Click(sender As Object, e As EventArgs) Handles ButtonF10.Click
Modifica()
End Sub
Private Sub Modifica()
TextBoxRicerca.Text = ""
Dim FileNum As Integer = FreeFile()
Dim IndiceListino As ClasseIndiceListino = New ClasseIndiceListino
FileOpen(FileNum, MenùIniziale.DiscoDati + Costante.NomeFileIndiceListino, OpenMode.Random, , OpenShare.Shared, Costante.GrandezzaCampoIndiceListino)
FileGet(FileNum, IndiceListino.Cliente, IndiceTAB + 1)
If IndiceStatoBottoni = 0 Then
StatoBottoni(100)
LabelInformazioni.Text = "Modifica Descrizione"
LabelInformazioni.Visible = True
ListView1.Items(IndiceTAB).ForeColor = Color.Lime
ListView1.Items(IndiceTAB).BackColor = Color.Black
ListView5.Items(IndiceTAB).ForeColor = Color.Black
ListView5.Items(IndiceTAB).BackColor = Color.White
TextBoxRicerca.Text = Trim(IndiceListino.Cliente.Descrizione)
'TextBoxRicerca.Focus()
'TextBoxRicerca.SelectAll()
ElseIf IndiceStatoBottoni = 100 Then
If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
IndiceListino.Cliente.Descrizione = TextBoxRicerca.Text
FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)
ListView5.Items(IndiceTAB).Text = TextBoxRicerca.Text
End If
LabelInformazioni.Visible = True
LabelInformazioni.Text = "Modifica Classe di Ricarico 1"
StatoBottoni(101)
ListView5.Items(IndiceTAB).ForeColor = Color.Aqua
ListView5.Items(IndiceTAB).BackColor = Color.Black
ListView8.Items(IndiceTAB).ForeColor = Color.Black
ListView8.Items(IndiceTAB).BackColor = Color.White
' System.Windows.Forms.SendKeys.Send("{TAB}")
'TextBoxRicerca.Text = Trim(IndiceListino.Cliente.ClasseDiRicarico_1)
'TextBoxRicerca.SelectAll()
'TextBoxRicerca.Focus()
' ListView5.Focus()
ElseIf IndiceStatoBottoni = 101 Then
If (Not Regex.IsMatch(Trim(TextBoxRicerca.Text), "[A-Z]") And Not Trim(TextBoxRicerca.Text) = "") Or Not Invio Then
If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
IndiceListino.Cliente.ClasseDiRicarico_1 = TextBoxRicerca.Text
FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)
ListView8.Items(IndiceTAB).SubItems(0).Text = TextBoxRicerca.Text
End If
LabelInformazioni.Visible = True
LabelInformazioni.Text = "Modifica Classe di Ricarico 2"
StatoBottoni(102)
ListView8.Items(IndiceTAB).ForeColor = Color.White
ListView8.Items(IndiceTAB).BackColor = Color.Black
ListView9.Items(IndiceTAB).ForeColor = Color.Black
ListView9.Items(IndiceTAB).BackColor = Color.White
Else
LabelInformazioni.Visible = True
LabelInformazioni.Text = "Modifica Classe di Ricarico 2"
StatoBottoni(102)
ListView8.Items(IndiceTAB).ForeColor = Color.White
ListView8.Items(IndiceTAB).BackColor = Color.Black
ListView9.Items(IndiceTAB).ForeColor = Color.Black
ListView9.Items(IndiceTAB).BackColor = Color.White
End If
TextBoxRicerca.Text = Trim(IndiceListino.Cliente.ClasseDiRicarico_3)
ElseIf IndiceStatoBottoni = 102 Then
If (Not Regex.IsMatch(Trim(TextBoxRicerca.Text), "[A-Z]") And Not Trim(TextBoxRicerca.Text) = "") Or Not Invio Then
If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
IndiceListino.Cliente.ClasseDiRicarico_2 = TextBoxRicerca.Text
FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)
ListView9.Items(IndiceTAB).SubItems(0).Text = TextBoxRicerca.Text
End If
LabelInformazioni.Visible = True
LabelInformazioni.Text = "Modifica Classe di Ricarico 3"
StatoBottoni(103)
ListView9.Items(IndiceTAB).ForeColor = Color.Red
ListView9.Items(IndiceTAB).BackColor = Color.Black
ListView10.Items(IndiceTAB).ForeColor = Color.Black
ListView10.Items(IndiceTAB).BackColor = Color.White
Else
LabelInformazioni.Visible = True
LabelInformazioni.Text = "Modifica Classe di Ricarico 3"
StatoBottoni(103)
ListView9.Items(IndiceTAB).ForeColor = Color.Red
ListView9.Items(IndiceTAB).BackColor = Color.Black
ListView10.Items(IndiceTAB).ForeColor = Color.Black
ListView10.Items(IndiceTAB).BackColor = Color.White
End If
TextBoxRicerca.Text = Trim(IndiceListino.Cliente.ClasseDiRicarico_3)
ElseIf IndiceStatoBottoni = 103 Then
If (Not Regex.IsMatch(Trim(TextBoxRicerca.Text), "[A-Z]") And Not Trim(TextBoxRicerca.Text) = "") Or Invio Then
If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
IndiceListino.Cliente.ClasseDiRicarico_3 = TextBoxRicerca.Text
FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)
ListView10.Items(IndiceTAB).SubItems(0).Text = TextBoxRicerca.Text
End If
LabelInformazioni.Visible = True
LabelInformazioni.Text = "Modifica Classe di Ricarico 4"
StatoBottoni(104)
ListView10.Items(IndiceTAB).ForeColor = Color.FromArgb(128, 255, 255)
ListView10.Items(IndiceTAB).BackColor = Color.Black
ListView11.Items(IndiceTAB).ForeColor = Color.Black
ListView11.Items(IndiceTAB).BackColor = Color.White
Else
LabelInformazioni.Visible = True
LabelInformazioni.Text = "Modifica Classe di Ricarico 4"
StatoBottoni(104)
ListView10.Items(IndiceTAB).ForeColor = Color.FromArgb(128, 255, 255)
ListView10.Items(IndiceTAB).BackColor = Color.Black
ListView11.Items(IndiceTAB).ForeColor = Color.Black
ListView11.Items(IndiceTAB).BackColor = Color.White
End If
TextBoxRicerca.Text = Trim(IndiceListino.Cliente.ClasseDiRicarico_4)
ElseIf IndiceStatoBottoni = 104 Then
If (Not Regex.IsMatch(Trim(TextBoxRicerca.Text), "[A-Z]") And Not Trim(TextBoxRicerca.Text) = "") Or Invio Then
If Not (Invio And Trim(TextBoxRicerca.Text) = "") Then
IndiceListino.Cliente.ClasseDiRicarico_4 = TextBoxRicerca.Text
FilePut(FileNum, IndiceListino.Cliente, IndiceTAB + 1)
ListView11.Items(IndiceTAB).SubItems(0).Text = TextBoxRicerca.Text
End If
LabelInformazioni.Visible = False
StatoBottoni(0)
ListView11.Items(IndiceTAB).ForeColor = Color.MediumPurple
ListView11.Items(IndiceTAB).BackColor = Color.Black
ListView1.Items(IndiceTAB).ForeColor = Color.Black
ListView1.Items(IndiceTAB).BackColor = Color.White
Else
LabelInformazioni.Visible = False
StatoBottoni(0)
ListView11.Items(IndiceTAB).ForeColor = Color.MediumPurple
ListView11.Items(IndiceTAB).BackColor = Color.Black
ListView1.Items(IndiceTAB).ForeColor = Color.Black
ListView1.Items(IndiceTAB).BackColor = Color.White
End If
End If
FileClose()
Invio = False
TextBoxRicerca.SelectAll()
TextBoxRicerca.Focus()
End Sub