Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/TouchBoard/Widgets/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/TouchBoard/Widgets/Reminder.ascx.vb

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Globalization

Partial Public Class Widgets_Reminders
	Inherits System.Web.UI.UserControl
	Private privateOwnerZoneID As String
	Public Property OwnerZoneID() As String
		Get
			Return privateOwnerZoneID
		End Get
		Set(ByVal value As String)
			privateOwnerZoneID = value
		End Set
	End Property

	Protected ReadOnly Property ActiveReminder() As Reminder
		Get
			Return ReminderProvider.FirstReminder
		End Get
	End Property

	Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
		ReminderPanel.OwnerZoneUID = OwnerZoneID

		ReminderMenu.DataSource = ReminderProvider.SelectReminders()
		ReminderMenu.DataBind()

		contactImage.DataBind()
	End Sub

	Protected Function GetFormattedDate(ByVal [date] As Object) As String
		Return (CDate([date])).ToString("d MMMM, hh:mm tt", CultureInfo.InvariantCulture)
	End Function
End Class