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

原先自带是英文样式:

更改之后的样式:

一.先新增MyGridLocalizer.vb类

 1 Imports DevExpress.XtraGrid.Localization
 2 
 3 Public Class MyGridLocalizer
 4     Inherits GridLocalizer
 5 
 6     Dim CusLocalizedKeyValue As Dictionary(Of GridStringId,String) = Nothing
 7 
 8    Public Sub New(ByVal cuLocalizedKeyValues As Dictionary(Of GridStringId,String))
 9        Me.CusLocalizedKeyValue = cuLocalizedKeyValues
10    End Sub
11 
12     Public Overrides Function GetLocalizedString(id As GridStringId) As String
13         If CusLocalizedKeyValue IsNot Nothing Then
14             Dim gridStringDisplay As String = String.Empty
15             For Each gridLocalizer As Object In CusLocalizedKeyValue
16                 If gridLocalizer.Key.Equals(id) Then
17                     gridStringDisplay = gridLocalizer.Value
18                     Exit For
19                 End If
20             Next
21             Return gridStringDisplay
22 
23         End If
24         Return MyBase.GetLocalizedString(id)
25     End Function
26 End Class

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

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

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

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

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

本文来自博客园，作者：云辰，转载请注明原文链接：https://www.cnblogs.com/yunchen/p/13743136.html