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

نسخة كاملة : كود التحقق من لغه الادخال فيجوال بيسك
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمه الله وبركاته
ممكن كود التحقق من لغه الادخال؟ يعني كود التحقق من لغه الويندوز المستخدمه حاليا
وايضا عايز كود للتحقق من اسم البارتيشن الذي يتواجد عليه الويندوز
وعليكم السلام ورحمة الله وبركاته

تفضل هذا هو كود التحقق من البارتيشن الذي يتواجد عليه الويندوز
كود :
  Dim winPath As String
winPath = Environ$("windir")
MsgBox (winPath)

وهذا هو كود التحقق من لغة الإدخال
كود :
Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage
       MsgBox(myCurrentLanguage.Culture.DisplayName)
(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)
السلام عليكم
اضافة الى ما جاد به الاخ ابو خالد هذا مثال بسيط جامع لكل معلومات النظام
شكرا لحضراتكم وشكرا لهذا المنتدي الرائع تعلمت منه الكثير ولسه بتعلم منه