Mini Kabibi Habibi

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.Collections
Imports DevExpress.Web.ASPxTabControl
Imports DevExpress.Web.ASPxClasses

Partial Public Class Widgets_Travel
	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)
		TravelPanel.OwnerZoneUID = OwnerZoneID
	End Sub

	Protected Sub TravelTabControl_TabDataBound(ByVal sender As Object, ByVal e As TabControlEventArgs)
		e.Tab.Name = DataBinder.Eval(e.Tab.DataItem, "ID").ToString()
		e.Tab.Text = e.Tab.Name
	End Sub

	Protected Sub TravelTabControl_CustomJSProperties(ByVal sender As Object, ByVal e As CustomJSPropertiesEventArgs)
		Dim pageIDHash = New Hashtable()
		For Each tab As Tab In TravelTabControl.Tabs
			pageIDHash(tab.Name) = GetTravelPageID(DataBinder.Eval(tab.DataItem, "ID"))
		Next tab
		e.Properties("cpPageIDHash") = pageIDHash
	End Sub

	Protected Function GetTravelPageID(ByVal id As Object) As String
		Return String.Format("{0}_{1}Page", ClientID, id)
	End Function

	Protected Function GetBackgroundStyle(ByVal imageUrl As Object) As String
		Dim url As String = CStr(imageUrl)
		Return String.Format("background-image:url(""{0}"")", url.TrimStart("~"c, "/"c))
	End Function
End Class