منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
جعل البرنامج لا يعمل على الاجهزة التي لاتدعم اللغة العربية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : جعل البرنامج لا يعمل على الاجهزة التي لاتدعم اللغة العربية (/showthread.php?tid=47852)



جعل البرنامج لا يعمل على الاجهزة التي لاتدعم اللغة العربية - العتيق - 27-01-24

طريقة لجعل البرنامج لا يعمل على الاجهزة التي لاتدعم اللغة العربية


يعني لو الجهاز لا يدعم اللغة العربية البرنامج لا يعمل


PHP كود :
Imports System.Globalization
Imports System
.Windows.Forms

Module Program
    Sub Main
()
 
       If IsArabicLanguageSupported() Then
            Application
.EnableVisualStyles()
 
           Application.SetCompatibleTextRenderingDefault(False)
 
           Application.Run(New YourMainForm())
 
       Else
            MessageBox
.Show("اللغة العربية غير مدعومة على هذا النظام.""تنبيه"MessageBoxButtons.OKMessageBoxIcon.Warning)
 
       End If
 
   End Sub

    Function IsArabicLanguageSupported
() As Boolean
        
' احصل على اللغة الافتراضية لنظام التشغيل
        Dim defaultCulture As CultureInfo = CultureInfo.InstalledUICulture

        ' 
تحقق إذا كانت اللغة العربية مدعومة
        Return defaultCulture
.Name.StartsWith("ar"StringComparison.OrdinalIgnoreCase)
 
   End Function
End Module