Set Right to Left

Public Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public 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 SetRtoL(Ctl As Control)
Ctl.Visible = False
SetWindowLong Ctl.hwnd, GWL_EXSTYLE, _
GetWindowLong(Ctl.hwnd, GWL_EXSTYLE) _
Or WS_EX_LAYOUTRTL
Ctl.Visible = True
End Sub

With this code I can't set Right to Left some control like:
1-ImageComboBox
2-Toolbar
3-SSTab ...

Please Help me to set them:( :( :(

I believe RightToLeft only works if your version of windows supports non-english.

You could always make a function to make text right to left.

VB Code:

Private Function RightToLeftText(Text As String) As String
    Dim vArray As Variant
    Dim iArray As Integer
    Dim sArray As String
    
    vArray = Split(Text, " ")
 
    For iArray = LBound(vArray) To UBound(vArray)
        sArray = sArray & Chr(32) & StrReverse(vArray(iArray))
    Next iArray
 
    RightToLeftText = StrReverse(sArray)
End Function

My version of Windows is non-english , and Rigth to Left is working with all Controls but with Toolbar & ImageComboBox.

saeed

Not all controls support righttoleft, particularly third-party tools. You may just have to work around it. Would you want to reverse a toolbar? Most Arabic applications leave them the same way - but maybe that's coz it's not easy to do.

Brian

Not all controls support righttopleft, particularly third-party tools. Would you want to reverse a toolbar? Most Arabic applications leave them the same way - but maybe that's coz it's not easy to do.

Brian