Sub shiftp_Click
Dim v As View = Sender
If v Is Label Then
Dim lbl As Label = v
Select lbl.tag
Case "date"
Dim dd As DateDialog
dd.SetDate(DateTime.GetDayOfMonth(DateTime.now),DateTime.GetMonth(DateTime.now),DateTime.GetYear(DateTime.now))
If dd.Show("נא לבחור תאריך.", "תאריך".ToUpperCase, "אישור", "ביטול", "", Null) = DialogResponse.POSITIVE Then
dateshift.Text = DateTime.Date(dd.DateTicks)
End If
Case "in"
Dim td As TimeDialog
td.SetTime(DateTime.GetHour(DateTime.Now),DateTime.GetMinute(DateTime.Now),True)
If td.Show("","","אישור","ביטול","",Null) = DialogResponse.POSITIVE Then
inshift.Text = DateTime.Time(td.TimeTicks)
End If
Case "out"
Dim td As TimeDialog
td.SetTime(DateTime.GetHour(DateTime.Now),DateTime.GetMinute(DateTime.Now),True)
If td.Show("","","אישור","ביטול","",Null) = DialogResponse.POSITIVE Then
outshift.Text = DateTime.Time(td.TimeTicks)
End If
Case "cancel"
newshiftpnl.SetVisibleAnimated(200,False)
Case "save"
If newshiftpnl.Tag <> "" Then 'edit
Else 'new day
End If
Case "delete"
If newshiftpnl.Tag <> "" Then
allshift.Remove(newshiftpnl.Tag)
End If
newshiftpnl.SetVisibleAnimated(200,False)
End Select
else if v Is ImageView Then
Dim img As ImageView = v
Log("imageview: " & img.Tag)
End If
End Sub