السادة الافاضل
كيف يمكن من خلال الفيجوال اعرف رقم اصدار الويندوز
شكرا لكم
السّلام عليكم و رحمة الله و بركاته
جرّب هذا الكود .. أخي الكريم ..
كود :
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
تحياتي
اضافة لما قدمه اخى الغالى عبد العزيز البسكري
وحتى تعم الفائدة
فقط كل ما تحتاج اليه اضافة الـ 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"
تحياتى لك
وتمنياتى لك لاتوفيق
تواحهني مشكلة وهي
انا عامل ملف اكسس 2003 4 مع فيجوال
عندما انقل المشروع علي جهاز به ويندوز 64 لا يعمل
اعدل واجعل الاكسس 2010 12 لا بد من ازالة الاوفس 2010 اللي علي الجهاز لانه 32
ما هي الطريقة المثلي والافضل لعمل ست اب للبرنامج لكي يعمل علي
جهاز 32 او 64 مع اي اوفيس
لا عليك اخى الاضل للعمل على الاصدار 2003 مع ربط اصدار 4
فيتطلب عليك ان تجعل المشروع كاملاً يعمل على بيئة 32 Bit
ويتم ذلك من خلال الاعدادات التالية
Build >> configuration management
كما فى الصورة
من ثم
تغير جميع جمل Any CPU الى 86Bit
فى حالة عدم وجودها بالقائمة ستختار New لاتمام اضافتها
فقط كل ما عليك اختيار 86Bit وعند انهاء الامر ستجد ان المشروع يعمل معك على اجهزة 64Bit
بدون اى مشكلة او اخطاء
تحياتى لك
وتمنياتى لك التوفيق
حضرتك نفذت اللي قلت عليه
ظهرت اخطا
عملت clean
و
rebuild
وايضا الخطا موجود
اشطررت الي العودة مرة اخري الي any
اختفت الاخطاء
ما السبب
وكيف اتغلب علي المشكلة
اوصل الى السطر رقم : 58883
وضع الكود الخاص بهذا السطر هنا
تحياتى لك
وتمنياتى لك التوفيق
