Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Windowsinkieli (vb)

Monkkats [25.10.2003 18:07:56]

#

Miten sais tehtyy VB-ohjelman joka näyttää Windowsin kielen?

Teme [25.10.2003 18:47:00]

# 

Private Declare Function GetSystemDefaultLangID Lib "kernel32.dll" ( _
) As Integer

Private Declare Function VerLanguageName Lib "kernel32.dll" _
    Alias "VerLanguageNameA" ( _
    ByVal wLang As Long, _
    ByVal szLang As String, _
    ByVal nSize As Long _
) As Long

Private Sub Main()
    Call MsgBox("The system default language is " & GetSystemLanguage & ".")
End Sub

Private Function GetSystemLanguage() As String
    Dim strLanguage As String, intLangID As Integer, n As Long
    strLanguage = Space$(64)
    intLangID = GetSystemDefaultLangID ' intLangID holds the language ID.
    n = VerLanguageName(intLangID, strLanguage, Len(strLanguage))
    GetSystemLanguage = Left$(strLanguage, n)
End Function

Siis funktio GetSystemLanguage palauttaa/pitäisi palauttaa käyttöjärjestelmän kielen.. Sen saa muuttujaan näin:

' -- Lisää toi yllä oleva koodi tähän --

Dim Kieli As String
Kieli = GetSystemLanguage()

Google auttoi tässäkin, pieni homma oli hoitaa yks monimutkainen rekisteröityminen mut sit ku sain sen tunnuksen tehtyy ni sain ton koodinpätkänki tänne..

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta