17-10-12, 08:59 PM
كاتب الموضوع : tibo
لمعرفة هل نعمل ضمن بيئة 32 بت أو 64 بت برمجيا
طريقة 1
طريقة 2
ملاحظة: من أجل التأكد من عمل الكود بصورة صحيحة يجب أن يكون خيار الترجمة في صفحة Compile في خصائص MyProject هو AnyCpu اضغط الزر Advanced Compile Options للتأكد من الضبط
والسبب هو أنه عند اختيار أحد الخيارين الأخريين يجبر البرنامج على رؤية النظام بشكل محدد بينما الضبط المقترح هنا يرى النظام كما هو
لمعرفة هل نعمل ضمن بيئة 32 بت أو 64 بت برمجيا
طريقة 1
كود :
Select Case Marshal.SizeOf(GetType(IntPtr))
Case 8
Me.TextBox1.Text = "64 bit"
Case 4
Me.TextBox1.Text = "32 bit"
End Selectكود :
Dim b64 As Boolean = False
Dim msg As String = "Running in a "
For Each ra As Reflection.Assembly In My.Application.Info.LoadedAssemblies
If ra.Location.ToLower.Contains("framework64") Then b64 = True
Exit For
Next
msg += IIf(b64, "64 Bit", "32 Bit").ToString & " environment"
Me.TextBox1.Text = msgوالسبب هو أنه عند اختيار أحد الخيارين الأخريين يجبر البرنامج على رؤية النظام بشكل محدد بينما الضبط المقترح هنا يرى النظام كما هو