منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

كود :
Public Class Form1

    Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = myCurrentLanguage.Culture.DisplayName 'لعرض النتيجة بالعربي

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = myCurrentLanguage.Culture.EnglishName ' لعرض النتيجة بالإنجليزي

    End Sub

End Class

(07-10-17, 02:14 PM)Amir_alzubidy كتب : [ -> ]جزاك الله خير اخوي سعود
و بارك الله فيك
شكرا جزيلا

وبآرك الله بكك ورعاك وسدد خطاك

الكود يعطي نتيجة دائمه أن لغة الكتابة الحالية هي الانجليزي

مهما غيرت اللغة فالنتيجة واحدة

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود الشامان

سعود الشامان

عبدالله الصافي