VB.NET - معرفة الدولة عن طريق اعدادات النظام

الدوال اللى هقدمها فى البوست ده مهمتها انها تجيب اسم الدولة المتسجل فى النظام عندنا وده ممكن يبقى مفيد فى حالة انك تبقى عايز تعرف دولة المستخدم ومثلا تغير اللغة للغة اللى تناسبه. وبكده يبقى المشروع بتاعك اسهل فى الاستخدام.


 

الدوال اللى هنستخدمها هى كالتالى :

<DllImport("kernel32.dll")> 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 End Function Private Const LOCALE_SYSTEM_DEFAULT As UInteger = &H400 Private Const LOCALE_SENGCOUNTRY As UInteger = &H1002 Private Shared Function GetInfo(ByVal lInfo As UInteger) As String Dim lpLCData = New System.Text.StringBuilder(256) Dim ret As Integer = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, lInfo, lpLCData, lpLCData.Capacity) If ret > 0 Then Return lpLCData.ToString().Substring(0, ret - 1) End If Return String.Empty End Function Public Shared Function GetCountry() Dim MyCountry As String = (GetInfo(LOCALE_SENGCOUNTRY)) Return MyCountry End Function

والاستخدام بيكون كالتالى مثلا :

MsgBox(GetCountry, MsgBoxStyle.Information, "Msg")

^_