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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كود التحقق من لغه الادخال فيجوال بيسك (/showthread.php?tid=41986)

كود التحقق من لغه الادخال فيجوال بيسك - حسن الجلب - 22-07-22

السلام عليكم ورحمه الله وبركاته
ممكن كود التحقق من لغه الادخال؟ يعني كود التحقق من لغه الويندوز المستخدمه حاليا
وايضا عايز كود للتحقق من اسم البارتيشن الذي يتواجد عليه الويندوز

RE: كود التحقق من لغه الادخال فيجوال بيسك - أبو خالد الشكري - 22-07-22

وعليكم السلام ورحمة الله وبركاته

تفضل هذا هو كود التحقق من البارتيشن الذي يتواجد عليه الويندوز
كود :
  Dim winPath As String
winPath = Environ$("windir")
MsgBox (winPath)
وهذا هو كود التحقق من لغة الإدخال
كود :
Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage
       MsgBox(myCurrentLanguage.Culture.DisplayName)


RE: كود التحقق من لغه الادخال فيجوال بيسك - asmarsou - 22-07-22

(22-07-22, 06:56 PM)أبو خالد الشكري كتب : وعليكم السلام ورحمة الله وبركاته

تفضل هذا هو كود التحقق من البارتيشن الذي يتواجد عليه الويندوز
كود :
  Dim winPath As String
winPath = Environ$("windir")
MsgBox (winPath)
وهذا هو كود التحقق من لغة الإدخال
كود :
Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage
       MsgBox(myCurrentLanguage.Culture.DisplayName)
السلام عليكم
اضافة الى ما جاد به الاخ ابو خالد هذا مثال بسيط جامع لكل معلومات النظام

RE: كود التحقق من لغه الادخال فيجوال بيسك - حسن الجلب - 22-07-22

شكرا لحضراتكم وشكرا لهذا المنتدي الرائع تعلمت منه الكثير ولسه بتعلم منه