هل يمكن ان يكون toolbar باللغة العربية :

    Private Declare Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer
    Private Declare Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    Const WS_EX_LAYOUTRTL = &H400000
    Const WS_EX_NOINHERITLAYOUT = &H100000
    Const ws = WS_EX_LAYOUTRTL Or WS_EX_NOINHERITLAYOUT
    Const gw As Short = -20
    Function SetRTL(ByVal Ctl As Control) As Boolean
        Dim O As Integer
        O = GetWindowLongPtr(Ctl.Handle.ToInt32, gw)
        SetWindowLongPtr(Ctl.Handle.ToInt32, gw, O Or ws)
    End Function

ثم مرر الtoolbar الى وظيفة setRTL

السلام عليكم ورحمة الله وبركاتة

هذة الطريقة لم تعمل مع اداة ListView هل من طريقة للتعريب

السلام عليكم ورحمة الله وبركاته

الحمد لله دخلت على msdn ولقيت حل

جزاكم الله خيرا

Imports System.ComponentModel
Public Class RTLView
    Inherits System.Windows.Forms.ListView
    Const WS_EX_LAYOUTRTL = &H400000
    Private _RTL As Boolean = False
    Public Property Mirrored() 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 Mirrored Then
                CP.ExStyle = CP.ExStyle Or WS_EX_LAYOUTRTL
            End If
            Return CP
        End Get
    End Property
End Class

بسم الله الرحمن الرحيم

شكرا ً اخوانى على المساعدة

الاخ : " undo "

يظهر لى خطا فى الكودان الاتيان :

Const gw As Short = -20

و

SetWindowLongPtr(Ctl.Handle.ToInt32, gw, O Or ws)

و قمت بتغير بعد الشروط لهم ( انا لا اجيد اتعامل من الدوال api و لكنها بديهيا )

فى الكود الاول short >>>>>>>>>>> long

و فى الثانى يتم حزف الاقواس و بعد هذا اخرج err على العموم على اسف للازعاج

قلد ارفقت لك المشروع و ارجوا منك ان تقم بتعديلة و ترسلة مرة اخرى

( اذا امكن )

و شكرا ً

toolbar in arabic.zip

الاخ العزيز " waleedhm "

شكرا ً على المشاركة

و لكن اخى العزيز انا غير ملم بالـ list view فاذا امكن((( ايضا )) ان تقم بارفاق مثال بسيط جدا جدا عن الـ list view

و شكرا ً

listview in arabic.zip

الاخ waleedhm شكرا علي مشاركتك ولكن هذا الكود يعمل علي فيجوال بيسك دوت نيت وليس الاصدار السادس

:)

تحياتي

عزيزي undo هذا المود يعمل تحت بيئة دوت نيت :)

هذه هي نفس طريقة الأخ undo ولكن للفيجول 6

'Right to left for TreeView
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const WS_EX_LAYOUTRTL = &H400000
Private Const GWL_EXSTYLE = (-20)

Public Sub SetRtL(Ctl As Control) 'Right to left for TreeView
Ctl.Visible = False
SetWindowLong Ctl.hwnd, GWL_EXSTYLE, _
GetWindowLong(Ctl.hwnd, GWL_EXSTYLE) _
Or WS_EX_LAYOUTRTL
Ctl.Visible = True
End Sub

Private Sub Form_Load()
'Right to left for TreeView
SetRtL TreeView1
End Sub

وهي تعمل على ال tree view وال Listview ولكنها لا تؤثر على ال toolbar

ربما يجب عليك أن تفعل ذلك يدوياً هذا إذا لم يكن هناك حل آخر

Example.rar

بسم الله الرحمن الرحيم

اخ العزيز : عبد الله فتحي

شكرا ً على المساعدة و ارجوا من الله ان يوفقق الى الخير دايما ً

و اذا امكن مثال بيسط مثل المرفق السابق و لكن عن listview

و شكرا ً

حمل المثال السابق مرة أخرى

بالتوفيق

بسم الله الرحمن الرحيم

شكرا ً اخى العزيز

شكر خاص لعماد فتحي و prof_82 لان الكود استخدمه فقط في الدوت نت (رغم ان الطريقة المفضلة في الدوت نت و الموجودة في msdn) هي طريقة waleedhm لانها لا تعتمد على الapi

اعتذر عن هذا التقصير!!

بسم الله الرحمن الرحيم

الاخ العزيز undo

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

و للاخ waleedhm

شكرا ً

اخى codefinder جزاكم الله خيرا

وانا اسف لا انى لم انتبة انى فى قسم فجول بيسك الاصدار القديم

بارك الله فيكم

وانار الله طريقكم للخير

-09

الله يكرمك

للمشاركة