VB.NET DevExpress GirdView 搜素框界面Find Clear按钮转换为自定义中文

原先自带是英文样式:

 更改之后的样式:

一.先新增MyGridLocalizer.vb类

Imports DevExpress.XtraGrid.Localization

Public Class MyGridLocalizer
    Inherits GridLocalizer

    Dim CusLocalizedKeyValue As Dictionary(Of GridStringId,String) = Nothing

   Public Sub New(ByVal cuLocalizedKeyValues As Dictionary(Of GridStringId,String))
       Me.CusLocalizedKeyValue = cuLocalizedKeyValues
   End Sub

    Public Overrides Function GetLocalizedString(id As GridStringId) As String
        If CusLocalizedKeyValue IsNot Nothing Then
            Dim gridStringDisplay As String = String.Empty
            For Each gridLocalizer As Object In CusLocalizedKeyValue
                If gridLocalizer.Key.Equals(id) Then
                    gridStringDisplay = gridLocalizer.Value
                    Exit For
                End If
            Next
            Return gridStringDisplay

        End If
        Return MyBase.GetLocalizedString(id)
    End Function
End Class

 二.在Form类中新增 SetGridLoaclizer()方法

  Private Function SetGridLocalizer() As Dictionary(Of GridStringId,String)
        Dim LocalizedKeyValue As Dictionary(Of GridStringId,String) = new Dictionary(Of GridStringId,String)
        LocalizedKeyValue.Add(GridStringId.FindControlFindButton,"查找")
        LocalizedKeyValue.Add(GridStringId.FindControlClearButton,"清空")
        Return LocalizedKeyValue
    End Function

三.在Frm_Load内事件中添加代码

  dim gridLocalizer As Dictionary(Of GridStringId,String) = SetGridLocalizer()
        Dim Localizer As MyGridLocalizer = New MyGridLocalizer(gridLocalizer)
        Dim gg As GridLocalizer
        gg.Active = Localizer

转换文章来源:https://www.cnblogs.com/DeepLearing/p/3905845.html