本地化XtraBar

  Public Class XtraBarzh

        Inherits BarLocalizer
        ' overriding the GetLocalizedString method
        Public Overrides Function GetLocalizedString(ByVal id As BarString) As String
            Select Case id
                Case BarString.None : Return "" 'empty id
                Case BarString.AddOrRemove : Return "添加或删除按钮(&B)"
                Case BarString.ResetBar : Return "重新设置..."
                Case BarString.ResetBarCaption : Return "重设工具栏"
                Case BarString.ResetButton : Return "重置对工具栏所做的修改"
                Case BarString.CustomizeButton : Return "自定义 ..."
                Case BarString.ToolBarMenu : Return "重新设置(&R)$删除(&D)$!命名(&N)$!默认样式(&U)$总是只用文                               字(&T)$在菜单中只用文字(&O)$图像与文本(&A)$!&开始一组(&G)$可见(&V)"
                Case BarString.NewToolbarCaption : Return "新建工具栏"
                Case BarString.RenameToolbarCaption : Return "重命名工具栏"
                Case BarString.CustomizeWindowCaption : Return "自定义"
                Case BarString.MenuAnimationFade : Return "淡出"
                Case BarString.MenuAnimationNone : Return "无"
                Case BarString.MenuAnimationRandom : Return "任意"
                Case BarString.MenuAnimationSlide : Return "滑出"
                Case BarString.MenuAnimationSystem : Return "(系统默认值)"
                Case BarString.MenuAnimationUnfold : Return "屏开"
                Case BarString.ToolbarNameCaption : Return "sdasfasdf"

            End Select
            Return ""
        End Function
    End Class
在form1中添加代码

 Dim myDevBarLocalizer As New XtraBarzh

DevExpress.XtraBar.Localization.BarLocalizer.Active = myDevBarLocalizer