VIDEO: Evian’s Roller Skating Babies

Find a control in a hierarchy of controls

You a control ID and you need to find it within a hierarchy of controls. you can use this function:

 

Private Function FindControlRecursive(ByRef callingControl As System.Web.UI.Control, ByVal controlId As String) As System.Web.UI.Control
    Dim ctrl As Control = Nothing
    Try
        If callingControl Is Nothing Then Return Nothing

        ctrl = callingControl.FindControl(controlId)

        If ctrl Is Nothing Then
            For Each child As Control In callingControl.Controls
                ctrl = FindControlRecursive(child, controlId)
                If ctrl IsNot Nothing Then Exit For
            Next
        End If

    Catch ex As Exception
    Finally

    End Try
    Return ctrl

End Function

Write to a file using JavaScript

Use this function to write to a file using JavaScript

 

function WriteToFile(sMessage)
{
  try
  {
        var fso, s;
        fso = new ActiveXObject(“Scripting.FileSystemObject”);
        sFile = fso.OpenTextFile(“C:\\logs.txt”, 8);
        sFile.writeline(sMessage);
        sFile.Close();
  }
  catch(err)
  {
        var strErr = ‘Error:’;
        strErr += ‘\nNumber:’ + err.number;
        strErr += ‘\nDescription:’ + err.description;
        document.write(strErr);
  }
}

Dublin

In Dublin Zoo

GreyStones

GreyStones is located on Ireland’s east cost, I used to live there for more than a year (September 2006 – November 2007). It is a very beautiful town with amazing beach and beautiful green areas, since we moved from GreyStones we used to go back there from time to time. I recommend this town to anyone visiting Ireland

 

 

 

more of my GreyStones’s photos here

My Simpsons Avatar

Take a look at the Simpsons movie site. I created my own avatar.

it looks like me .

VB.NET Sort Method for a Collection Class

I have a VB.NET collection class EmployeesCollection for an Employee Class that got an Integer Property named Age; I want to create a method (SortByAge) to sort the collection members by Age.

 

This is the EmployeesCollection Class:

 

Imports Microsoft.VisualBasic

Public Class EmployeesCollection
Inherits System.Collections.CollectionBase

Public Sub Add(ByVal tblEmployee As Employee)
' Invokes Add method of the List object to add a widget.
List.Add(tblEmployee)
End Sub

Public ReadOnly Property Item(ByVal index As Integer) As Employee
Get
' The appropriate item is retrieved from the List object and
' explicitly cast to the Widget type, then returned to the
' caller.
Return CType(List.Item(index), Employee)
End Get
End Property

End Class
 

To create the SortByAge method I need a SortHelper Class, This helper Class will include a Function called Compare to compare between the Age values of the employees, the SortHelper Class will be part of the EmployeesCollection Class.

 

 
Private Class AgeSortHelper
        Implements IComparer

        Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
             Implements System.Collections.IComparer.Compare
            If x.Age > y. Age Then
                Return 1
            End If

            If x. Age < y. Age Then
                Return -1
            End If

            Return 0
        End Function
    End Class

 

Now we need to create the SortByAge method for the EmployeesCollection Class, in this method we will use the AgeSortHelper to sort the Employees.

 

    Public Sub SortByAge()
        Dim sorter As System.Collections.IComparer = New AgeSortHelper()
        InnerList.Sort(sorter)
    End Sub

 

This is the Final EmployeesCollection Class:

 

Imports Microsoft.VisualBasic

Public Class EmployeesCollection
    Inherits System.Collections.CollectionBase

    Public Sub Add(ByVal tblEmployee As Employee)
        ' Invokes Add method of the List object to add a widget.
        List.Add(tblEmployee)
    End Sub

    Public ReadOnly Property Item(ByVal index As Integer) As Employee
        Get
            ' The appropriate item is retrieved from the List object and
            ' explicitly cast to the Widget type, then returned to the
            ' caller.
            Return CType(List.Item(index), Employee)
        End Get
    End Property

    Public Sub SortByAge()
        Dim sorter As System.Collections.IComparer = New AgeSortHelper()
        InnerList.Sort(sorter)
End Sub
   
Private Class AgeSortHelper
        Implements IComparer

        Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
             Implements System.Collections.IComparer.Compare
            If x.Age > y. Age Then
                Return 1
            End If

            If x. Age < y. Age Then
                Return -1
            End If

            Return 0
        End Function

    End Class
End Class


I am back

I have been very busy in the last couple months, I was in a vacation in Amman, Jordan for a month, and when I returned back I had to move into a new house.

 

This post to share with you my most viewed photo in my flickr, I took this photo in Connolly Station.

Connolly Station

From Wikipedia

 

          The station was opened on 29 November 1844 by the Dublin &amp; Drogheda Railway Company as Dublin Station, but was renamed ten years later as Amiens Street Station after the street on which it is located. Originally the station only served a single mainline to Drogheda, and only in 1853 did through services to Belfast commence. In 1891 the City of Dublin Junction Railway connected the station with Westland Row Station (now Pearse Station) on the city’s south side. The C of D Jctn was a separate station known as Amiens St Junction and consisted of the present platforms 5,6 &amp; 7 with a separate street entrance. After the amalgamation of the GNR (I) at the end of the 1950s this station became part of the overall Amiens St and the separate entrance fell into disuse. The C of D Jctn Rly. allowed services to run from Amiens St., through to Westland Row, and onwards to Rosslare and the Southeast. Services to Sligo were transferred to Westland Row (Pearse Stn) operating through the station non-stop in 1937, with the closure of Broadstone Station by CIÉ (see also MGWR). Services to Galway and Mayo also originated/terminated at Westland Row, operating through Connolly Station after 1937, running via Mullingar and Athlone. This was discontinued in the 1970s in favour of running services out of Heuston Station on the better quality Cork line. Passenger running between Mullingar/Athlone ceased completely in 1987.

 

During the 1960s, Sunday trains to Cork, Limerick and Waterford operated from Connolly platforms 5, 6 &amp; 7 (running through the Phoenix Park tunnel) to avoid the cost of opening Heuston (Kingsbridge) for the limited Sunday traffic demand at that time.

 

In 1966, the 50th anniversary of the Easter Rising, the station’s name was changed to Connolly Station after Irish revolutionary and socialist James Connolly. At the same time, several other main stations in the Republic were renamed after patriots executed for their roles in the Rising.

 

At the commencement of DART services in 1984, the C of D Jctn Rly entrance was refurbished and reopened for commuter traffic.

 

During the late 1990s, Connolly Station was completely renovated and partially rebuilt. An entirely new station hall was built, the roof over Platforms 1-4 was replaced, and a new bar/cafe and shops were installed. The former DART/Suburban station entrance (C of D Jctn Rly entrance) and the secondary station hall built with the DART (further north on Amiens St) were again closed, but a new entrance on the International Financial Services Centre side was opened. In 2004, the Luas Red Line (to Tallaght) began serving the station. As part of the preparation for this, the ramp which had been a bus terminus was demolished and replaced with a 2-platform tram station connected to the main concourse by escalators and lift. 

C#: Bind a DropDownList to IDictionary using AjaxPro

- Implement an AjaxMethod to return IDictionary object

 

[AjaxPro.AjaxMethod]

public IDictionary AjaxGetIDictionary()

{

//Prepare the IDictionary object

}

- Use JavaScript to request the AjaxMethod AjaxGetIDictionary

MyAjaxClass. AjaxGetIDictionary (jsAjaxGetIDictionary_Callback);

- In the JavaScript function jsAjaxGetIDictionary_Callback add the IDictionary items to the DopDownList

function jsAjaxGetIDictionary (response)

{

     try

    {

         var DictionaryItems= response.value;

         if (DictionaryItems == null || typeof(DictionaryItems) != “object”)

        {

               return;

         }

         var myDropDownList = document.getElementById(“myDropDownList”);

         myDropDownList.options.length = 0;

         for (var i = 0; i < response.value.length; ++i)

         {

             myDropDownList.options[myDropDownList.options.length] = new Option(response.value[i].Value,response.value[i].Key);

           }

    }

    catch(e)

   {

   }

}