Convert Visual BASIC v6 application into Right to Left mode (Hebrew)

Hello,

I have a Visual BASIC v6 application written in English with many forms, objects, captions and message box.

How can I "flip" the forms to be from right to left without changing all the design?

Thank you,
Elad.
eladrozAsked:
Who is Participating?
 
drakesheCommented:
Ok, try this. The following code will make the object in the variables go to the opposite side:

Private Sub Label1_Click()
   Call flip(Me.Label1)
End Sub
 
Function flip(ByVal Obj As Object)
   Dim distance As Integer
   distance = Me.Width - (Obj.Left + Obj.Width)
   Obj.Left = distance
End Function

Open in new window

0
 
drakesheCommented:
there is a property for almost all controls called righttoleft
http://img27.imageshack.us/img27/2981/leftright.png
0
 
eladrozAuthor Commented:
Thank you for your reply.

Right to Left is good but not enough... let's say that I have a save button on the bottom right  corner of a form and I want that when it's running as RTL,  this button will be on the bottom left corner of the form - RightToLeft will not help me in this case.

Think that I just want to "flip" the form with all it's objects (like: labels, buttons, lists, trees, etc.) in 180 degrees.

I hope that I explained myself better.

Elad.
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

 
drakesheCommented:
So your hoping that there is an automatic function that will flip the form objects? er... lemme try and figure something out.
0
 
drakesheCommented:
Oh and also the object can be click a second time and return to the original position which is a bonus.
0
 
drakesheCommented:
Did you get it working?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.