huangyhg

//GetLocalizedMenuName.bas

'--------------------------------------------
' How to determine the current language in SolidWorks is running
'
' Problem:
' SolidWorks is now localised for many different languages.
' This means the menu names are presented in the local language.
' For addins which add to the SW menus, they need to know the
' names of various menus in their call to:
'
' SldWorks/Frame::AddMenuItem
'
' This sample code shows how to determine the current language
' and retrieve the local menu names for several of the standard
' SolidWorks menus.
'
' Preconditions:
' none
'
' Postconditions:
' none
Option Explicit
Public Enum swMenuIdentifiers_e
swFileMenu = 0
swEditMenu = 1
swViewMenu = 2
swInsertMenu = 3
swToolsMenu = 4
swWindowMenu = 5
swHelpMenu = 6
swDeveloperToolsMenu = 7
swViewToolbarsMenu = 8
End Enum
Sub main()
Dim swApp As SldWorks.SldWorks

Set swApp = CreateObject("SldWorks.Application")

Debug.Print "Language = " + swApp.GetCurrentLanguage
Debug.Print " FileMenu = " + swApp.GetLocalizedMenuName(swFileMenu)
Debug.Print " EditMenu = " + swApp.GetLocalizedMenuName(swEditMenu)
Debug.Print " ViewMenu = " + swApp.GetLocalizedMenuName(swViewMenu)
Debug.Print " InsertMenu = " + swApp.GetLocalizedMenuName(swInsertMenu)
Debug.Print " ToolsMenu = " + swApp.GetLocalizedMenuName(swToolsMenu)
Debug.Print " WindowMenu = " + swApp.GetLocalizedMenuName(swWindowMenu)
Debug.Print " HelpMenu = " + swApp.GetLocalizedMenuName(swHelpMenu)
Debug.Print " DeveloperToolsMenu = " + swApp.GetLocalizedMenuName(swDeveloperToolsMenu)
Debug.Print " ViewToolbarsMenu = " + swApp.GetLocalizedMenuName(swViewToolbarsMenu)
End Sub

' English OS + English SW 2001 SP13
'Language = english
'FileMenu = &File
'EditMenu = &Edit
'ViewMenu = &View
'InsertMenu = &Insert
'ToolsMenu = &Tools
'WindowMenu = &Window
'HelpMenu = &Help
'DeveloperToolsMenu = &DeveloperTools
'ViewToolbarsMenu = &Toolbars

' Spanish OS + Spanish SW 2001 SP11
' SPR 119300 - "SldWorks::GetLocalizedMenuName returns incorrect strings on Spanish OS"
'Language = spanish
'FileMenu = &File <---- BUG
'EditMenu = &Edit <---- BUG
'ViewMenu = &View <---- BUG
'InsertMenu = &Insert <---- BUG
'ToolsMenu = &Tools <---- BUG
'WindowMenu = &Window <---- BUG
'HelpMenu = &Help <---- BUG
'DeveloperToolsMenu = &DeveloperTools <---- BUG
'ViewToolbarsMenu = Barras de &herramientas

' French OS + French SW 2001 SP11
'Language = french
'FileMenu = &Fichier
'EditMenu = &Edition
'ViewMenu = Affic&hage
'InsertMenu = &Insertion
'ToolsMenu = &Outils
'WindowMenu = Fe&nêtre
'HelpMenu = &?
'DeveloperToolsMenu = &DeveloperTools <---- BUG
'ViewToolbarsMenu = &Barre d'outils

' German OS + German SW 2001 SP11
'Language = german
'FileMenu = &Datei
'EditMenu = &Bearbeiten
'ViewMenu = &Ansicht
'InsertMenu = &Einfügen
'ToolsMenu = E&xtras
'WindowMenu = &Fenster
'HelpMenu = &Hilfe
'DeveloperToolsMenu = En&twickler
'ViewToolbarsMenu = S&ymbolleisten

' Italian OS + Italian SW 2001 SP11
'Language = italian
'FileMenu = &File
'EditMenu = &Modifica
'ViewMenu = &Visualizza
'InsertMenu = &Inserisci
'ToolsMenu = &Strumenti
'WindowMenu = Fi&nestra
'HelpMenu = &?
'DeveloperToolsMenu = &DeveloperTools <---- BUG
'ViewToolbarsMenu = &Barre degli strumenti

' Japanese OS + Japanese SW 2001 SP11
'Language = japanese
'FileMenu = &Igrave;§&sup2;&Ugrave;(&F)
'EditMenu = •&Ograve;W(&E)
'ViewMenu = •\Ž&brvbar;(&V)
'InsertMenu = ‘}“ü(&I)
'ToolsMenu = &Acirc;°&Ugrave;(&T)
'WindowMenu = &sup3;¨&Yacute;&Auml;&THORN;&sup3;(&W)
'HelpMenu = &Iacute;&Ugrave;&Igrave;&szlig;(&H)
'DeveloperToolsMenu = ŠJ”&shy;&Acirc;°&Ugrave;(&D)
'ViewToolbarsMenu = &Acirc;°&Ugrave;&Ecirc;&THORN;°(&T)
'--------------------------------------------