You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
874 B
QBasic
26 lines
874 B
QBasic
2 years ago
|
Attribute VB_Name = "modMaschine"
|
||
|
|
'aktuelle Spracheinstellung bestimmen
|
||
|
|
Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
|
||
|
|
|
||
|
|
'Bedienersprache
|
||
|
|
Public Function GetLanguageId() As Long
|
||
|
|
Dim strLanguage As String
|
||
|
|
Dim lngLanguage As Long
|
||
|
|
strLanguage = Space(4)
|
||
|
|
Call GetLocaleInfo(0, 1, strLanguage, Len(strLanguage))
|
||
|
|
If (IsNumeric("&H" & strLanguage)) Then
|
||
|
|
lngLanguage = CLng("&H" & strLanguage)
|
||
|
|
If (lngLanguage = 1031 Or _
|
||
|
|
lngLanguage = 2055 Or _
|
||
|
|
lngLanguage = 3079 Or _
|
||
|
|
lngLanguage = 4103 Or _
|
||
|
|
lngLanguage = 5127) Then
|
||
|
|
GetLanguageId = 1000
|
||
|
|
Else
|
||
|
|
GetLanguageId = 2000
|
||
|
|
End If
|
||
|
|
Else
|
||
|
|
GetLanguageId = 2000
|
||
|
|
End If
|
||
|
|
End Function
|