Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/HomeRealtor/Controls/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/HomeRealtor/Controls/Details.ascx.vb

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Collections
Imports System.ComponentModel
Imports DevExpress.Web.ASPxCallbackPanel
Imports System.Data

Partial Public Class Details
	Inherits System.Web.UI.UserControl
	Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
	End Sub

	Protected Sub cpDetails_Callback(ByVal sender As Object, ByVal e As DevExpress.Web.ASPxClasses.CallbackEventArgsBase)
		LoadByID(e.Parameter)
	End Sub
	Public Sub LoadByID(ByVal ID As String)
		Dim row As DataRow = HomesDataProvider.GetHome(ID)
		If row Is Nothing Then
			Return
		End If
		Image.Src = "~/" & Utils.GetImageSrc(ID)
		Buy.Text = Utils.GetPrice(row("Price"))
		Beds.Text = row("Beds").ToString()
		Baths.Text = row("Baths").ToString()
		HouseSize.Text = row("HouseSize").ToString()
		LotSize.Text = row("LotSize").ToString()
		Price_sqf.Text = Utils.GetPriceForSqf(row("HouseSize"), row("Price"))

		YearBuilt.Text = row("YearBuilt").ToString()
		PropertyType.Text = Utils.GetPropertyType(row("Type"))

		Address.Text = Utils.ExtractFirstRow(row("Address"))
		Address2.Text = Utils.ExtractSecondRow(row("Address"))
		Features.Text = CStr(row("Features"))
	End Sub
End Class