Imports TheAgent.frmHelper
Public Class frmAlarm
'Carica tutte le sveglie impostate
Private Sub frmAlarm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Carica tutte le sveglie impostate
If Options.Alarms.Length = 0 Then
Exit Sub
Else
If Options.Alarms(0).Time = Nothing Then
Exit Sub
End If
End If
Dim L As ListViewItem
Dim S(1) As String
For Each T As clsOptions.Alarm In Alarms.Values
S(0) = T.Time
If T.Desc.Length > 30 Then
S(1) = T.Desc.Substring(0, 30) + "..."
Else
S(1) = T.Desc
End If
L = New ListViewItem(S)
lstAlarms.Items.Add(L)
Next
If frmHelper.tmrAlarm.Enabled Then
cmdEnable.Text = "Disattiva Timer"
Else
cmdEnable.Text = "Attiva Timer"
End If
End Sub
'Distrugge una sveglia
Private Sub cmdDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDel.Click
If lstAlarms.SelectedIndices(0) >= 0 Then
Dim Key As String = lstAlarms.SelectedItems(0).SubItems(0).Text
lstAlarms.Items.Remove(lstAlarms.SelectedItems(0))
Alarms.Remove(Key)
End If
End Sub
'Aggiunge una nuova sveglie
Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
If txtHour.Text = Nothing Or txtDesc.Text = Nothing Then
MessageBox.Show("Inserire tutti i campi necessari!", "Error #9", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
If Not Alarms.Contains(txtHour.Text) Then
Dim A As New clsOptions.Alarm(txtHour.Text, txtDesc.Text)
Dim S() As String = {txtHour.Text, txtDesc.Text}
Dim L As New ListViewItem(S)
Alarms.Add(txtHour.Text, A)
lstAlarms.Items.Add(L)
Else
MessageBox.Show("E' già stata impostata una sveglia a quest'ora!", "Error #10", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
'Attiva il timer
Private Sub cmdEnable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnable.Click
If cmdEnable.Text = "Attiva Timer" Then
frmHelper.tmrAlarm.Start()
frmHelper.Options.Alarms_Enabled = True
cmdEnable.Text = "Disattiva Timer"
Else
frmHelper.tmrAlarm.Stop()
frmHelper.Options.Alarms_Enabled = False
cmdEnable.Text = "Attiva Timer"
End If
End Sub
'Quando si seleziona un elemento, lo visualizza nelle textbox
Private Sub lstAlarms_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstAlarms.SelectedIndexChanged
If lstAlarms.SelectedIndices.Count > 0 Then
txtHour.Text = lstAlarms.SelectedItems(0).SubItems(0).Text
txtDesc.Text = lstAlarms.SelectedItems(0).SubItems(1).Text
End If
End Sub
End Class