Monday, November 5, 2012

change RadGrid Telrik Control Filter Globalization Text

the function to change filter Text to be in arabic language for radGrid Control
Imports Telerik.Web.UI
Public Sub ChangeRadGridFilterText()
        Dim Menu As GridFilterMenu = RadGrid1.FilterMenu
        Dim item As RadMenuItem
        For Each item In Menu.Items

            Select Case item.Text

                Case "NoFilter"
                    item.Text = "كل العناصر بدون تصفية"
                Case "Contains"
                    item.Text = "يحتوي على"
                Case "DoesNotContain"
                    item.Text = "لا يحتوي على"
                Case "StartsWith"
                    item.Text = "يبدأ ب "
                Case "EndsWith"
                    item.Text = "ينتهي ب "
                Case "EqualTo"
                    item.Text = "يساوي قيمة "
                Case "NotEqualTo"
                    item.Text = "لا يساوي قيمة "
                Case "GreaterThan"
                    item.Text = "أكبر من  "
                Case "LessThan"
                    item.Text = "أقل من  "
                Case "GreaterThanOrEqualTo"
                    item.Text = "أكبر من أو يساوي  "
                Case "LessThanOrEqualTo"
                    item.Text = "أقل من أو يساوي  "
                Case "Between"
                    item.Text = "بين رقمين "
                Case "NotBetween"
                    item.Text = "ليس بين رقمين "
                Case "IsEmpty"
                    item.Text = "قيمة فارغ  "
                Case "NotIsEmpty"
                    item.Text = "ليس قيمة فارغة  "
                Case "IsNull"
                    item.Text = "يساوي Null "
                Case "NotIsNull"
                    item.Text = "لا يساوي Null "
            End Select
        Next
    End Sub