本地化XtraEditors

Imports DevExpress.XtraEditors.Controls
' creating the Localizer descendant
Public Class DevEditzh
    Inherits Localizer
    ' overriding the GetLocalizedString method
    Public Overrides Function GetLocalizedString(ByVal id As StringId) As String
        Select Case id
            Case StringId.None
                Return ""
            Case StringId.CaptionError
                Return "错误"
            Case StringId.InvalidValueText
                Return "非法值"
            Case StringId.CheckChecked
                Return "选中"
            Case StringId.CheckUnchecked
                Return "未选中"
            Case StringId.CheckIndeterminate
                Return "Indeterminate"
            Case StringId.DateEditToday
                Return "今天"
            Case StringId.DateEditClear
                Return "清除"
            Case StringId.OK
                Return "&OK"
            Case StringId.Cancel
                Return "&Cancel"
            Case StringId.NavigatorFirstButtonHint
                Return "首个"
            Case StringId.NavigatorPreviousButtonHint
                Return "上一个"
            Case StringId.NavigatorPreviousPageButtonHint
                Return "上一页"
            Case StringId.NavigatorNextButtonHint
                Return "下一个"
            Case StringId.NavigatorNextPageButtonHint
                Return "下一页"
            Case StringId.NavigatorLastButtonHint
                Return "最后"
            Case StringId.NavigatorAppendButtonHint
                Return "增加"
            Case StringId.NavigatorRemoveButtonHint
                Return "删除"
            Case StringId.NavigatorEditButtonHint
                Return "编辑"
            Case StringId.NavigatorEndEditButtonHint
                Return "结束编辑"
            Case StringId.NavigatorCancelEditButtonHint
                Return "中断编辑"
            Case StringId.NavigatorTextStringFormat
                Return "记录 {0} 至 {1}"
            Case StringId.PictureEditMenuCut
                Return "剪切"
            Case StringId.PictureEditMenuCopy
                Return "复制"
            Case StringId.PictureEditMenuPaste
                Return "粘贴"
            Case StringId.PictureEditMenuDelete
                Return "删除"
            Case StringId.PictureEditMenuLoad
                Return "打开"
            Case StringId.PictureEditMenuSave
                Return "保存"
            Case StringId.PictureEditOpenFileFilter
                Return "Bitmap Files (*.bmp)|*.bmp|Graphics Interchange Format (*.gif)|*.gif|JPEG File Interchange Format (*.jpg;*.jpeg)|*.jpg;*.jpeg|Icon Files (*.ico)|*.ico|All Picture Files |*.bmp;*.gif;*.jpg;*.jpeg;*.ico;*.png;*.tif|All Files |*.*"
            Case StringId.PictureEditSaveFileFilter
                Return "Bitmap Files (*.bmp)|*.bmp|Graphics Interchange Format (*.gif)|*.gif|JPEG File Interchange Format (*.jpg)|*.jpg"
            Case StringId.PictureEditOpenFileTitle
                Return "打开"
            Case StringId.PictureEditSaveFileTitle
                Return "保存至"
            Case StringId.PictureEditOpenFileError
                Return "错误的图片格式!"
            Case StringId.PictureEditOpenFileErrorCaption
                Return "打开错误"
            Case StringId.LookUpEditValueIsNull
                Return "[无数据]"
            Case StringId.LookUpInvalidEditValueType
                Return "非法数据类型."
            Case StringId.MaskBoxValidateError
                Return "The entered value is incomplete.  Do you want to correct it?" + ControlChars.Cr + ControlChars.Lf + ControlChars.Cr + ControlChars.Lf + "Yes - return to the editor and correct the value." + ControlChars.Cr + ControlChars.Lf + "No - leave the value as is." + ControlChars.Cr + ControlChars.Lf + "Cancel - reset to the previous value." + ControlChars.Cr + ControlChars.Lf
            Case StringId.UnknownPictureFormat
                Return "未知图像格式!!"
            Case StringId.DataEmpty
                Return "无图像"
            Case StringId.NotValidArrayLength
                Return "Not valid array length."
            Case StringId.ImagePopupEmpty
                Return "(空)"
            Case StringId.ImagePopupPicture
                Return "(图像)"
            Case StringId.ColorTabCustom
                Return "Custom"
            Case StringId.ColorTabWeb
                Return "Web"
            Case StringId.ColorTabSystem
                Return "System"
            Case StringId.CalcButtonMC
                Return "MC"
            Case StringId.CalcButtonMR
                Return "MR"
            Case StringId.CalcButtonMS
                Return "MS"
            Case StringId.CalcButtonMx
                Return "M+"
            Case StringId.CalcButtonSqrt
                Return "sqrt"
            Case StringId.CalcButtonBack
                Return "Back"
            Case StringId.CalcButtonCE
                Return "CE"
            Case StringId.CalcButtonC
                Return "C"
            Case StringId.CalcError
                Return "Calculation Error"
        End Select
        Return ""
    End Function 'GetLocalizedString
End Class 

窗体中

Dim myDevEditLocalizer As New DevEditzh
DevExpress.XtraEdit.Localization.EditLocalizer.Active = myDevEditLocalizer