Option Explicit Public Const cLANGUAGE_SYSTEM = "", cLANGUAGE_CHINESE = "zh", cLANGUAGE_DANISH = "da" Public Const cLANGUAGE_DUTCH = "nl", cLANGUAGE_ENGLISH = "en", cLANGUAGE_FINNISH = "fi" Public Const cLANGUAGE_FRENCH = "fr", cLANGUAGE_GERMAN = "de", cLANGUAGE_GREEK = "el" Public Const cLANGUAGE_ITALIAN = "it", cLANGUAGE_JAPANESE = "ja", cLANGUAGE_NORWEGIAN = "no" Public Const cLANGUAGE_POLISH = "pl", cLANGUAGE_PORTUGUESE = "pt", cLANGUAGE_RUSSIAN = "ru" Public Const cLANGUAGE_SPANISH = "es", cLANGUAGE_SWEDISH = "sv", cLANGUAGE_TURKISH = "tr" Public BLNameList(0 To 16) as String ' R e s o u r c e s t r i n g c o n s t a n t s ' ------------------------------------------------- ' Dialog labels start at 1000 Sub LoadLanguage%(ByVal LangLocale) Dim Dummy$ Dim i as Integer Const dlgMonth = 1200 ' Abreviated months start 1225 Const dlgShortMonth = 1225 If InitResources("schedule", "cal") Then If LangLocale = cLANGUAGE_GERMAN Then ' Load all states BLNameList(0) = GetResText(1100) BLNameList(1) = "Bayern" BLNameList(2) = "Baden-Württemberg" BLNameList(3) = "Berlin" BLNameList(4) = "Bremen" BLNameList(5) = "Brandenburg" BLNameList(6) = "Hamburg" BLNameList(7) = "Hessen" BLNameList(8) = "Mecklenburg-Vorpommern" BLNameList(9) = "Niedersachsen" BLNameList(10) = "Nordrhein-Westfalen" BLNameList(11) = "Rheinland-Pfalz" BLNameList(12) = "Saarland" BLNameList(13) = "Sachsen" BLNameList(14) = "Sachsen-Anhalt" BLNameList(15) = "Schleswig Holstein" BLNameList(16) = "Thüringen" DlgCalModel.lstHolidays.StringItemList() = BLNameList() End If sWizardTitle$ = GetResText(1300) sError = GetResText(1301) cCalSubcmdDeleteSelect_DeleteSelEntryTitle$ = GetResText(1302) cCalSubcmdDeleteSelect_DeleteSelEntry$ = GetResText(1303) DlgCalendar.Title = GetResText(1000) With DlgCalModel cCalSubcmdSwitchOwnDataOrGeneral_OwnData$ = GetResText(1002) cCalSubcmdSwitchOwnDataOrGeneral_Back$ = GetResText(1001) .hlnTime.Label = GetResText(1011) .lblYear.Label = GetResText(1012) .cmdCancel.Label = GetResText(1005) .cmdGoOn.Label = GetResText(1004) .lblHolidays.Label = GetResText(1014) sBitmapFilename = GetResText(1099) sBitmapFilename = ReplaceString(sBitmapFileName, ".gif", ".bmp") DlgCalModel.hlnCalendar.Label = GetResText(1006) .optYear.Label = GetResText(1007) .optMonth.Label = GetResText(1008) .lblMonth.Label = GetResText(1013) .cmdOwnData.Label = GetResText(1015) .hlnNewEvent.Label = GetResText(1019) .lblEvent.Label = GetResText(1019) .lblEventDay.Label = GetResText(1021) .lblEventMonth.Label = GetResText(1022) ' .lblEventYear.Label = GetResText(1023) ' .chkEventOnce.Label = GetResText(1020) .cmdInsert.Label = GetResText(1016) .cmdDelete.Label = GetResText(1017) ' Load long month names For i = 0 To 11 cCalLongMonthNames(i) = GetResText(dlgMonth+i) cCalShortMonthNames(i)= cCalLongMonthNames(i) 'cCalShortMonthNames(i)= Left$(cCalLongMonthNames(i), 3) cCalShortMonthNames(i)= RTrim(cCalShortMonthNames(i)) Next ' Load sheet names sCalendarTitle = GetResText(1410) sMonthTitle = GetResText(1411) ' Load names of styles cCalStyleWorkday$ = GetResText(1400) cCalStyleWeekend$ = GetResText(1401) End With End If End Sub