[kafi2030]

الف الف شكر
اخي sooriaty

على تواصلك معي، احب ان اشير الى ان الاكواد التي تفضلت بها حضرتك استطعت والحمد لله ان اكيفها مع برنامجي، واقتربت اداة التكست بوكس بفضل الله ثم بفضلك من الكمال والحمد لله( الكمال لله وحده).

ولكن بقيت مشكلة
انه عندما تكون الكتابة عربية، فيجب ان تكون محاذاة النص من اليمين الى اليسار
وعندما تكون الكتابة على الحقل انكليزية، يجب ان تكون محاذاة الكتابة من اليسار الى اليمين

حاولت كتابة مايلي

كود :

Private Sub GotFocusTasks()
        Me.BackColor = System.Drawing.ColorTranslator.FromHtml(My_back_Color_tbox)
        Me.Font = New Font("Arial", 14, FontStyle.Bold)

        If Me.InputLanguages_ = Languages.Arabic Then set_arabic()
        If Me.InputLanguages_ = Languages.English Then
            set_english()
            Me.TextAlign = Left
        End If

ودلك في حال كانت الكتابة انكليزية ان تكون المحاذاة يسارية
الا انه ظهرت رسالة خطأ


ارجو تصويب الامر

بارك الله فيك

والسلام عليكم