Platforms to show: All Mac Windows Linux Cross-Platform
/Win/Windows Locale Information
Required plugins for this example: MBS Win Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/Windows Locale Information
This example is the version from Sun, 17th Mar 2012.
Project "Windows Locale Information.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action()
dim l as new WinLocalizationMBS
show l
End EventHandler
End Control
Control PushButton2 Inherits PushButton
ControlInstance PushButton2 Inherits PushButton
EventHandler Sub Action()
dim l as new WinLocalizationMBS(WinLocalizationMBS.LANG_ENGLISH, WinLocalizationMBS.SUBLANG_ENGLISH_US, WinLocalizationMBS.SORT_DEFAULT)
show l
End EventHandler
End Control
Control PushButton3 Inherits PushButton
ControlInstance PushButton3 Inherits PushButton
EventHandler Sub Action()
dim l as new WinLocalizationMBS(WinLocalizationMBS.LANG_GERMAN, WinLocalizationMBS.SUBLANG_GERMAN, WinLocalizationMBS.SORT_DEFAULT)
show l
End EventHandler
End Control
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control
EventHandler Sub Open()
if not TargetWin32 then
MsgBox "This example works only on Windows."
end if
End EventHandler
Sub Show(l as WinLocalizationMBS)
List.DeleteAllRows
list.addrow "LanguageID", l.LanguageID
list.addrow "LanguageNameLocalized", l.LanguageNameLocalized
list.addrow "LanguageNameEnglish", l.LanguageNameEnglish
list.addrow "LanguageNameAbbreviated", l.LanguageNameAbbreviated
list.addrow "LanguageNameNativ", l.LanguageNameNativ
list.addrow "CountryCode", l.CountryCode
list.addrow "CountryNameLocalized", l.CountryNameLocalized
list.addrow "CountryNameEnglish", l.CountryNameEnglish
list.addrow "CountryNameAbbreviated", l.CountryNameAbbreviated
list.addrow "CountryNameNative", l.CountryNameNative
list.addrow "DefaultLanguageID", l.DefaultLanguageID
list.addrow "DefaultCountryCode", l.DefaultCountryCode
list.addrow "DefaultCodePageOEM", l.DefaultCodePageOEM
list.addrow "DefaultCodePageANSI", l.DefaultCodePageANSI
list.addrow "DefaultCodePageMac", l.DefaultCodePageMac
list.addrow "ListItemSeparator", l.ListItemSeparator
list.addrow "MeasureSystem", l.MeasureSystem
list.addrow "DecimalSeparator", l.DecimalSeparator
list.addrow "ThousandSeparator", l.ThousandSeparator
list.addrow "DigitGrouping", l.DigitGrouping
list.addrow "NumberOfFraction", l.NumberOfFraction
list.addrow "LeadingZeros", l.LeadingZeros
list.addrow "NegativeNumberMode", l.NegativeNumberMode
list.addrow "NativeASCII0to9", l.NativeASCII0to9
list.addrow "CurrencySymbolLocalized", l.CurrencySymbolLocalized
list.addrow "CurrencySymbolInternational", l.CurrencySymbolInternational
list.addrow "CurrencyDecimalSeparator", l.CurrencyDecimalSeparator
list.addrow "CurrencyThousandSeparator", l.CurrencyThousandSeparator
list.addrow "CurrencyGroupingMode", l.CurrencyGroupingMode
list.addrow "CurrencyDigitsLocalized", l.CurrencyDigitsLocalized
list.addrow "CurrencyDigitsInternational", l.CurrencyDigitsInternational
list.addrow "CurrencyPositiveMode", l.CurrencyPositiveMode
list.addrow "CurrencyNegativeMode", l.CurrencyNegativeMode
list.addrow "DateSeparator", l.DateSeparator
list.addrow "TimeSeparator", l.TimeSeparator
list.addrow "DateShortFormatString", l.DateShortFormatString
list.addrow "DateLongFormatString", l.DateLongFormatString
list.addrow "TimeShortFormatString", l.TimeShortFormatString
list.addrow "DateShortFormatOrdering", l.DateShortFormatOrdering
list.addrow "DateLongFormatOrdering", l.DateLongFormatOrdering
list.addrow "TimeFormatSpecifier", l.TimeFormatSpecifier
list.addrow "TimeMarkerPosition", l.TimeMarkerPosition
list.addrow "TimeCenturyFormatSpecifier", l.TimeCenturyFormatSpecifier
list.addrow "TimeLeadingZeros", l.TimeLeadingZeros
list.addrow "DateLeadingZerosDay", l.DateLeadingZerosDay
list.addrow "DateLeadingZerosMonth", l.DateLeadingZerosMonth
list.addrow "TimeAM", l.TimeAM
list.addrow "TimePM", l.TimePM
list.addrow "CalendarTypeSpecifier", l.CalendarTypeSpecifier
list.addrow "CalendarTypeSpecifier2", l.CalendarTypeSpecifier2
list.addrow "FirstDayOfWeek", l.FirstDayOfWeek
list.addrow "FirstWeekOfYear", l.FirstWeekOfYear
list.addrow "SignPositive", l.SignPositive
list.addrow "SignNegative", l.SignNegative
list.addrow "SignPositivePosition", l.SignPositivePosition
list.addrow "SignNegativePosition", l.SignNegativePosition
list.addrow "PosSymPrecedes", l.PosSymPrecedes
list.addrow "PosSepBySpace", l.PosSepBySpace
list.addrow "NegSymPrecedes", l.NegSymPrecedes
list.addrow "NegSepBySpace", l.NegSepBySpace
list.addrow "LanguageNameAbbreviatedISO", l.LanguageNameAbbreviatedISO
list.addrow "CountryNameAbbreviatedISO", l.CountryNameAbbreviatedISO
list.addrow "DefaultCodePageEBCDIC", l.DefaultCodePageEBCDIC
list.addrow "Papersize", l.Papersize
list.addrow "CurrencyNameEnglish", l.CurrencyNameEnglish
list.addrow "CurrencyNameNative", l.CurrencyNameNative
list.addrow "DateShortYearMonth", l.DateShortYearMonth
list.addrow "Sortname", l.Sortname
list.addrow "DigitSubstitution", l.DigitSubstitution
End Sub
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
Module Module1
Sub AddRow(extends l as listbox, a as string, b as string)
l.AddRow a
l.Cell(l.LastIndex,1)=b
End Sub
End Module
End Project
See also:
- /Win/Windows DDE/DDE Server
- /Win/Windows DDE/List Excel Topics
- /Win/Windows DDE/Programmanger Groups
- /Win/Windows File Copy
- /Win/Windows Hot Key
- /Win/Windows QOS/Windows QOS
- /Win/Windows Registry Test
- /Win/Windows Shortcuts/Create Shortcuts
- /Win/Windows Shortcuts/Internet Shortcut
- /Win/Windows Touch Events
The items on this page are in the following plugins: MBS Win Plugin.