TextBox RTL
Posted: 25 Jul 2011, 16:03
Hi Timo,
sorry, I am confused...
Can you please check if this is a bug? The RTL layout and text is not changed back to LTR after the first click on my button...
Even settings TextBox1.RightToLeft = 0 does not change it.
Is this my fault?
Option Explicit
Private Sub Form_Load()
Me.TextBox1.Move 0, 0, 4000, 4000
Me.TextBox1.AutoScrolling = asVertical
Me.TextBox1.ScrollBars = sbVertical
Me.TextBox1.Text = "jkasdjf öasjdfklas flökajsfl kjasölfkj aslköfjas lkjflökasdj flkasjdl öfkjaslköfj aslköjf aslökjflökasjf lkasöjf lasjöf asjdfölasj flökasjf asjflökjas lfjasl ökfj asöljf lkasdjföla sjflökjaslfökjaslkfj aslöjf lk asj dföl jaslökdfjasölkjf lkas jflasjf ljasföljas flköjaslköfj aslökfj asf jasl öjflköasjd f ölasj f ölasj fdkslf"
End Sub
Private Sub Command1_Click()
Static bRTL As Boolean
bRTL = Not bRTL
If bRTL Then
If Me.TextBox1.RightToLeft <> (rtlLayout Or rtlText) Then
Me.TextBox1.RightToLeft = (rtlLayout Or rtlText)
End If
Else
If Me.TextBox1.RightToLeft <> 0 Then
Me.TextBox1.RightToLeft = (Not rtlLayout) And (Not rtlText)
End If
End If
End Sub
sorry, I am confused...
Can you please check if this is a bug? The RTL layout and text is not changed back to LTR after the first click on my button...
Even settings TextBox1.RightToLeft = 0 does not change it.
Is this my fault?
Option Explicit
Private Sub Form_Load()
Me.TextBox1.Move 0, 0, 4000, 4000
Me.TextBox1.AutoScrolling = asVertical
Me.TextBox1.ScrollBars = sbVertical
Me.TextBox1.Text = "jkasdjf öasjdfklas flökajsfl kjasölfkj aslköfjas lkjflökasdj flkasjdl öfkjaslköfj aslköjf aslökjflökasjf lkasöjf lasjöf asjdfölasj flökasjf asjflökjas lfjasl ökfj asöljf lkasdjföla sjflökjaslfökjaslkfj aslöjf lk asj dföl jaslökdfjasölkjf lkas jflasjf ljasföljas flköjaslköfj aslökfj asf jasl öjflköasjd f ölasj f ölasj fdkslf"
End Sub
Private Sub Command1_Click()
Static bRTL As Boolean
bRTL = Not bRTL
If bRTL Then
If Me.TextBox1.RightToLeft <> (rtlLayout Or rtlText) Then
Me.TextBox1.RightToLeft = (rtlLayout Or rtlText)
End If
Else
If Me.TextBox1.RightToLeft <> 0 Then
Me.TextBox1.RightToLeft = (Not rtlLayout) And (Not rtlText)
End If
End If
End Sub