Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Global Web 2.2 - fmrChrono.vb

fmrChrono.vb

Caricato da: Totem
Scarica il programma completo

  1. Imports Web_Browser_2.frmBrowser
  2. Public Class fmrChrono
  3.     Private Sub fmrChrono_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.         Dim F As Favorite
  5.         Dim L As ListViewItem
  6.         Dim S(1) As String
  7.  
  8.         For Each F In Chronos
  9.             S(0) = F.Name
  10.             S(1) = F.URL
  11.             L = New ListViewItem(S)
  12.             lstChronos.Items.Add(L)
  13.         Next
  14.     End Sub
  15.     Private Sub cmdRemoveSelected_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRemoveSelected.Click
  16.         If MsgBox("Procedere all'eliminazione?", MsgBoxStyle.Question + vbYesNo) = MsgBoxResult.No Then
  17.             Exit Sub
  18.         End If
  19.  
  20.         Dim L As ListViewItem
  21.         Dim I As Int16 = 0
  22.  
  23.         For Each L In lstChronos.Items
  24.             If L.Checked Then
  25.                 Chronos.RemoveAt(I)
  26.             End If
  27.             I += 1
  28.         Next
  29.         lstChronos.Items.Clear()
  30.  
  31.         'Riempe la lista con gli elementi rimasti
  32.         Dim S(1) As String
  33.         Dim F As Favorite
  34.         For Each F In Chronos
  35.             S(0) = F.Name
  36.             S(1) = F.URL
  37.             L = New ListViewItem(S)
  38.             lstChronos.Items.Add(L)
  39.         Next
  40.  
  41.         RefreshChronos()
  42.  
  43.         MsgBox("Eliminazione completata!", MsgBoxStyle.Information)
  44.     End Sub
  45.     Private Sub cmdRemoveAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRemoveAll.Click
  46.         If MsgBox("Procedere all'eliminazione?", MsgBoxStyle.Question + vbYesNo) = MsgBoxResult.No Then
  47.             Exit Sub
  48.         End If
  49.  
  50.         lstChronos.Items.Clear()
  51.         Chronos.Clear()
  52.         Web_Browser_2.frmBrowser.strChrono.DropDownItems.Clear()
  53.     End Sub
  54. End Class