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/Twitter.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.Collections

Partial Public Class Widgets_Twitter
	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_Init(ByVal sender As Object, ByVal e As EventArgs)
		TwitterPanel.OwnerZoneUID = OwnerZoneID

		Dim tweets = TweetProviderMock.GetTweets()
		TweetControl.DataSource = tweets
		TweetControl.DataBind()
	End Sub
	Protected Sub ASPxDockPanel1_WindowCallback(ByVal source As Object, ByVal e As DevExpress.Web.ASPxPopupControl.PopupWindowCallbackArgs)
		Dim geo() As String = e.Parameter.Split("|"c)
		GetTweets(geo(0), geo(1))
	End Sub
	Public Sub GetTweets(ByVal latitude As String, ByVal longitude As String)
		'var tweets = TweetProvider.GetTweets(latitude, longitude);
		'TweetControl.DataSource = tweets;
		'TweetControl.DataBind();
	End Sub
End Class