[RaggiTech]

كاتب الموضوع : tibo


لمعرفة هل نعمل ضمن بيئة 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

طريقة 2

كود :

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

ملاحظة: من أجل التأكد من عمل الكود بصورة صحيحة يجب أن يكون خيار الترجمة في صفحة Compile في خصائص MyProject هو AnyCpu اضغط الزر Advanced Compile Options للتأكد من الضبط
والسبب هو أنه عند اختيار أحد الخيارين الأخريين يجبر البرنامج على رؤية النظام بشكل محدد بينما الضبط المقترح هنا يرى النظام كما هو