the function to change filter Text to be in arabic language for radGrid Control
Imports Telerik.Web.UI
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
No comments:
Post a Comment