[atefkhalf2004]

السادة الافاضل
كيف يمكن من خلال الفيجوال اعرف رقم اصدار الويندوز
شكرا لكم

[عبد العزيز البسكري]

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

جرّب هذا الكود .. أخي الكريم ..

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       'الكود الأول
       Dim Is64Bit As Boolean
       Is64Bit = Not String.IsNullOrEmpty(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITEW6432"))
       If Is64Bit Then
           TextBox1.Text = (My.Computer.Info.OSFullName + " 64-Bit")
       Else
           TextBox1.Text = (My.Computer.Info.OSFullName + " 32-Bit")
       End If

       'الكود الثاني
       If System.Environment.Is64BitOperatingSystem = True Then
           TextBox2.Text = ("OS System : 64 Bit Operating System")
       Else
           TextBox2.Text = ("OS System : 32 Bit Operating System")
       End If

   End Sub

تحياتي

[elgokr]

اضافة لما قدمه اخى الغالى عبد العزيز البسكري

وحتى تعم الفائدة

فقط كل ما تحتاج اليه اضافة الـ Function التالى

كود :

   Function GetOsBitness() As String
       Dim Bit As Integer
       Dim ProcessorSet As Object
       Dim CPU As Object
       ProcessorSet = GetObject("Winmgmts:").ExecQuery("SELECT * FROM Win32_Processor")
       For Each CPU In ProcessorSet
           Bit = CStr(CPU.AddressWidth)
       Next
       Return Bit
   End Function

ويتم الاستخدام على هذا الشكل مثل 

كود :

MsgBox(GetOsBitness() & " Bit")

كود :

TextBox1.Text = GetOsBitness() & " Bit"

تحياتى لك

وتمنياتى لك لاتوفيق

[atefkhalf2004]

شكرا علي ردودكم جميعا

[elgokr]

الشكر لله والحمد لله

والحمد لله على كل حال

تحياتى لك

وتمنياتى لك التوفيق

[atefkhalf2004]

تواحهني مشكلة وهي
انا عامل ملف اكسس    2003   4    مع فيجوال    
عندما انقل المشروع علي جهاز  به ويندوز 64 لا يعمل  
اعدل  واجعل الاكسس 2010    12    لا بد من ازالة الاوفس 2010 اللي علي الجهاز لانه   32

ما هي الطريقة المثلي  والافضل   لعمل ست اب للبرنامج لكي يعمل علي
جهاز 32   او  64     مع  اي  اوفيس

[elgokr]

لا عليك اخى الاضل للعمل على الاصدار 2003 مع ربط اصدار 4

فيتطلب عليك ان تجعل المشروع كاملاً يعمل على بيئة 32 Bit

ويتم ذلك من خلال الاعدادات التالية

Build >> configuration management

كما فى الصورة

من ثم

تغير جميع جمل Any CPU الى 86Bit 

فى حالة عدم وجودها بالقائمة ستختار New لاتمام اضافتها

فقط كل ما عليك اختيار 86Bit وعند انهاء الامر ستجد ان المشروع يعمل معك على اجهزة 64Bit

بدون اى مشكلة او اخطاء

تحياتى لك

وتمنياتى لك التوفيق

[atefkhalf2004]

حضرتك نفذت اللي قلت عليه
ظهرت اخطا
عملت clean
و
rebuild
وايضا الخطا موجود
اشطررت الي العودة مرة اخري الي any
اختفت الاخطاء

[atefkhalf2004]

ما السبب
وكيف اتغلب علي المشكلة

[elgokr]

اوصل الى السطر رقم : 58883

وضع الكود الخاص بهذا السطر هنا

تحياتى لك

وتمنياتى لك التوفيق