ASKaffash
یک شنبه 19 خرداد 1387, 10:35 صبح
با سلام
دوستان برای رفع این مشکل مسئله را به شکل ذیل تحلیل کردم :
- کنترل Label در VB6 مشکل RightToLeft ندارد
- اکتیوریپورت از ActiveX پشتیبانی میکند
- اکتیوریپورت واقعا Dynamic است و میتوان در زمان اجرا مقدار یک Activex را تنظیم کرد
- اکتیوریپورت با کلاسهای StdFont و AlignmentConstants سازگاری ندارد
بنابرین یک ActiveX به شکل سورس پیوست طراحی کردم وبا کد ذیل تست کردم :
Private Sub ActiveReport_ReportStart()
With Me.Label1.Font
Call Me.Label4ActiveReport1.Font(.Name, .Size, .Bold)
Call Me.Label4ActiveReport1.Alignment(vbRightJustify)
End With
End Sub
Private Sub Detail_Format()
Me.Label1.Caption = Form1.Text1.Text 'Not RightToLeft
Me.Label4ActiveReport1.Caption = Form1.Text1.Text 'Ok RightToLeft
End Sub
دوستان برای رفع این مشکل مسئله را به شکل ذیل تحلیل کردم :
- کنترل Label در VB6 مشکل RightToLeft ندارد
- اکتیوریپورت از ActiveX پشتیبانی میکند
- اکتیوریپورت واقعا Dynamic است و میتوان در زمان اجرا مقدار یک Activex را تنظیم کرد
- اکتیوریپورت با کلاسهای StdFont و AlignmentConstants سازگاری ندارد
بنابرین یک ActiveX به شکل سورس پیوست طراحی کردم وبا کد ذیل تست کردم :
Private Sub ActiveReport_ReportStart()
With Me.Label1.Font
Call Me.Label4ActiveReport1.Font(.Name, .Size, .Bold)
Call Me.Label4ActiveReport1.Alignment(vbRightJustify)
End With
End Sub
Private Sub Detail_Format()
Me.Label1.Caption = Form1.Text1.Text 'Not RightToLeft
Me.Label4ActiveReport1.Caption = Form1.Text1.Text 'Ok RightToLeft
End Sub