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/Facebook.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

Partial Public Class Widgets_Facebook
	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 Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
		FacebookPanel.OwnerZoneUID = OwnerZoneID

		SpanDescription.InnerText = FacebookWidget.LastFeedItem.Description
		time.InnerText = FacebookWidget.LastFeedItem.Time
		likesCount.InnerText = FacebookWidget.LastFeedItem.LikesCount.ToString() & " " & likesCount.InnerText
		commentsCount.InnerText = FacebookWidget.LastFeedItem.Comments.Count.ToString() & " " & commentsCount.InnerText
		author.InnerText = FacebookWidget.LastFeedItem.Author

		AuthorImage.ImageUrl = String.Format("~/Widgets/Images/Facebook/author_{0}.png", FacebookWidget.LastFeedItem.ImageKey)
	End Sub

	Protected Function GetAuthorImage(ByVal key As String) As String
		Return String.Format("~/Widgets/Images/Facebook/author_{0}.png", key)
	End Function
End Class