طريقة دعم الفورم للغة العربية

السلام عليكم

كتير منا يتمنى ان يجد دعم كامل للغة العربية في جميع اصدرات Microsoft Visual Studio .NET مع ان هذه المشكلة اصحبت سهلة جدا فى Microsoft Visual Studio .NET 2005 ولكن هي نقطة غير واضحة فى الاصدار Microsoft Visual Studio .NET 2003

وكانت مشكلة بالنسبة لي وقمت بالبحث في مكتبة MSDN ووصلت للنتجية التالية :

اولا : قم أضافة فورم جديد بطريقة المعتادة

ثانيا : كل ما عليك فقط دخول الي شاشة الاكواد ستجد بعض الاكواد الخاصة بالفورم موجودة فى Region تحت أسم (Windows Form Designer generated code) قم بمسح هذا Region باكملة

ثالثا : قم بكتابة الاكواد بنسخ ولصق الاكواد التالية

Public Class Form1
    Inherits System.Windows.Forms.Form
    Const WS_EX_LAYOUTRTL = &H400000
    Private _RTL As Boolean = True

#Region " Windows Form Designer generated code "
    Public Property bMirror() As Boolean
        Get
            Return _RTL
        End Get
        Set(ByVal Value As Boolean)
            If _RTL <> Value Then
                _RTL = Value
                MyBase.OnRightToLeftChanged(EventArgs.Empty)
            End If
        End Set
    End Property
    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
        Get
            Dim CP As System.Windows.Forms.CreateParams
            CP = New System.Windows.Forms.CreateParams
            CP = MyBase.CreateParams
            If bMirror Then
                CP.ExStyle = CP.ExStyle Or &H400000 Or &H100000
            End If
            Return CP
        End Get
    End Property

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Public Sub New()
        MyBase.New()
        InitializeComponent()
    End Sub
    Private components As System.ComponentModel.IContainer

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 266)
        Me.Name = "Form1"
        Me.Text = "عربي"
    End Sub

#End Region

End Class

رابعا : قم بتشغيل الفورم وستلاحظ الفرق

ملحوظة هذا الفورم العربي لا يؤثر على كفاءة عمل البرنامج

وهذه اكواد رسالة بنفس موصفات الفورم العربي

MessageBox.Show("إختبار مربع الحوار مع اللغة العربية ...", "مربع الحوار", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading Or MessageBoxOptions.RightAlign)

نتيجة الاختبار

المثال بالمرفقات

ارجوا التوفيق للجميع

WindowsApplication3.zip