Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/HomeRealtor/App_Code/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/HomeRealtor/App_Code/Utils.vb

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Web

Public NotInheritable Class Utils
	Private Shared PropertyType() As String = { "Single Family Home", "Condo/Townhouse", "Multi-Family Home" }
	Private Const priceFormat As String = "{0:C0}"
	Private Sub New()
	End Sub
	Public Shared Function GetPrice(ByVal value As Object) As String
		Return String.Format(priceFormat, CDec(value))
	End Function
	Public Shared Function GetPriceForSqf(ByVal size As Object, ByVal price As Object) As String
		Return String.Format(priceFormat, CDec(price) / CDec(size))
	End Function
	Public Shared Function ConvertToByteArray(ByVal str As Object) As Byte()
		Return Convert.FromBase64String(str.ToString())
	End Function
	Public Shared Function ExtractFirstRow(ByVal strAdress As Object) As String
		Dim adress As String = CStr(strAdress)
		Dim separatorIndex As Integer = adress.IndexOf(",")
		If separatorIndex > -1 Then
			Return adress.Substring(0, separatorIndex)
		Else
			Return adress
		End If
	End Function
	Public Shared Function ExtractSecondRow(ByVal strAdress As Object) As String
		Dim adress As String = CStr(strAdress)
		Dim separatorIndex As Integer = adress.IndexOf(",")
		If separatorIndex > -1 Then
			Return adress.Substring(separatorIndex + 1)
		Else
			Return String.Empty
		End If
	End Function
	Public Shared Function GetPropertyType(ByVal index As Object) As String
		Return PropertyType(CInt(Fix(index)))
	End Function
	Public Shared Function GetImageSrc(ByVal id As Object) As String
		Return String.Format("images/Homes/{0}.jpg", id)
	End Function
End Class