Get Country

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Get Country

    Hm,

    das ist komisch.
    Mit diesem Code lese ich das Land aus, das an dem PC eingestellt ist:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. MsgBox((GetInfo(LOCALE_SENGCOUNTRY)))
    7. End Sub
    8. <DllImport("kernel32.dll")> _
    9. Private Shared Function GetLocaleInfo(ByVal Locale As UInteger, ByVal LCType As UInteger, <Out()> ByVal lpLCData As System.Text.StringBuilder, ByVal cchData As Integer) As Integer
    10. End Function
    12. Private Const LOCALE_SYSTEM_DEFAULT As UInteger = &H400
    13. Private Const LOCALE_SENGCOUNTRY As UInteger = &H1002
    15. Private Shared Function GetInfo(ByVal lInfo As UInteger) As String
    16. Dim lpLCData = New System.Text.StringBuilder(256)
    17. Dim ret As Integer = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, lInfo, lpLCData, lpLCData.Capacity)
    18. If ret > 0 Then
    19. Return lpLCData.ToString().Substring(0, ret - 1)
    20. End If
    21. Return String.Empty
    22. End Function
    24. Public Shared Function GetLetters()
    25. Dim MyCountry As String = (GetInfo(LOCALE_SENGCOUNTRY))
    26. Return MyCountry
    27. End Function
    30. End Class


    Funktioniert wunderbar.
    Wenn ich das allerdings in einer Console-Anwendung machen möchte:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Module Module1
    5. Sub Main()
    6. WriteLine(GetInfo(LOCALE_SENGCOUNTRY))
    7. End Sub
    9. <DllImport("kernel32.dll")> _
    10. Private Function GetLocaleInfo(ByVal Locale As UInteger, ByVal LCType As UInteger, <Out()> ByVal lpLCData As System.Text.StringBuilder, ByVal cchData As Integer) As Integer
    11. End Function
    13. Private Const LOCALE_SYSTEM_DEFAULT As UInteger = &H400
    14. Private Const LOCALE_SENGCOUNTRY As UInteger = &H1002
    16. Private Function GetInfo(ByVal lInfo As UInteger) As String
    17. Dim lpLCData = New System.Text.StringBuilder(256)
    18. Dim ret As Integer = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, lInfo, lpLCData, lpLCData.Capacity)
    19. If ret > 0 Then
    20. Return lpLCData.ToString().Substring(0, ret - 1)
    21. End If
    22. Return String.Empty
    23. End Function
    25. Public Function GetLetters()
    26. Dim MyCountry As String = (GetInfo(LOCALE_SENGCOUNTRY))
    27. Return MyCountry
    28. End Function
    29. End Module


    Dann krieg ich den Fehler:

    Ungültige Konvertierung von der Zeichenfolge Germany in Typ Integer.

    Woran liegt das?
    C# Developer
    Learning C++

    Da krieg ich aber den gleichen Fehler:

    VB.NET-Quellcode

    1. Sub Main()
    2. WriteLine(System.Globalization.CultureInfo.CurrentCulture.DisplayName)
    3. End Sub


    Ungültige Konvertierung von der Zeichenfolge Deutsch (Deutschland) in Typ Integer.
    C# Developer
    Learning C++

    Integer = Zahl
    Deutschland = String = Text

    Klar das das nicht geht.
    Bilder

    • Unbenannt.png

      8,48 kB, 712×90, 137 mal angesehen
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

Facebook
Telefonspende