[حسن الجلب]

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

[أبو خالد الشكري]

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

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

كود :

  Dim winPath As String
winPath = Environ$("windir")
MsgBox (winPath)

---

وهذا هو كود التحقق من لغة الإدخال

كود :

Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage
       MsgBox(myCurrentLanguage.Culture.DisplayName)

[asmarsou]

(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)

السلام عليكم
اضافة الى ما جاد به الاخ ابو خالد هذا مثال بسيط جامع لكل معلومات النظام

[حسن الجلب]

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