تمدد مربع نص في تقرير جدولي .

[كوماندير]

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

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

حيث لدي في جدول اربعة حقول

OrderID (Long) , OrderDate (Date/Time), CustmName (Text) , CustDetails (Memo)

طبعا المطلوب هو جعل كل الحقول تتمدد بنفس ارتفاع الحقل CustDetails

وللتوضيح اكثر ظهر لدي شكل التقرير عندما صممته بالشكل هذا :

 

 

والمطلوب هو ان يكون بهذا الشكل :

 

هل هذا ممكنا وكيف ؟

[Shivan Rekany]

2 ساعات مضت, كوماندير said:

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

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

حيث لدي في جدول اربعة حقول

OrderID (Long) , OrderDate (Date/Time), CustmName (Text) , CustDetails (Memo)

طبعا المطلوب هو جعل كل الحقول تتمدد بنفس ارتفاع الحقل CustDetails

وللتوضيح اكثر ظهر لدي شكل التقرير عندما صممته بالشكل هذا :

 

 

والمطلوب هو ان يكون بهذا الشكل :

 

هل هذا ممكنا وكيف ؟

ما عليك الا خطوات التالية

1 : حدد جميع مربعات النصية

2: اختر قائمة Arrange

3: اختر Tabular

 

 

 وشوف النتيجه‌

تحياتي

[كوماندير]

اخي بارك الله فيك اشكر تفاعلك   ولكن

لم تغب عني الفكرة ولكن اردت توسيط قيم حقول مربعات النص كما بالصورة الثانية

ايضا عندما نفذت طريقتك ظهرت لي فراغات بين مربعات النص وانا لا اريدها

اريدها بالضبط كما بالصورة الثانية بالضبط  ....

 

باختصار شديد اريد ان يكون ارتفاع جميع مربعات النص يساوي ارتفاع CustDetails (Memo)

وتوسيط قيم مربعات النص كما بالصورة الثانية .

[ديو05]

اخي الغالي

حدد المربع ومن الخصائص

اجعله قابل للنمو

[علي المصري]

وجدت هذا الكود

لكن لا يعمل مع الخاصية can grew = yes

يعتمد على ارتفاع نربع النص او التسمية

بمعنى ان اذا تم عمل ارتفاع مربع النص على ان يظهر فيه سطرين سوف يكون المحاذاة على هذا الحد حتى اذا كانت الخاصية can grew = yes

Option Explicit

'' Copyright Lebans Holdings 1999 Ltd.
'' www.lebans.com
'' Please note this method will always be off
'' by one pixel due to rounding.
'' Vertical Justification is performed in the same manner
'' as Excel. We are trying to center the Top of a capital
'' character and the bottom(baseline) of the capital character.
'' If you look in the Reports section on my web site you will
'' find code that uses the ascending and descending char values
'' to calculate a more accurate vertical justification.


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

' You have to call the function every time
' during the Report's Detail Format event.

VerticalAlignCenter Me.MyNotes
VerticalAlignCenter Me.id
VerticalAlignCenter Me.MyName1
VerticalAlignCenter Me.MyName2
VerticalAlignCenter Me.MyName3
VerticalAlignCenter Me.MyName4

End Sub
Public Sub VerticalAlignCenter(ByRef ctl As Control)   '(ctl As Control) 'access 32bit
On Error GoTo ErrorCode
    Dim MinimumMargin As Integer
    Dim BorderWidth As Integer
    Dim TwipsPerPoint
TwipsPerPoint = 20
    If Not ((TypeOf ctl Is TextBox) Or (TypeOf ctl Is Label)) Then Exit Sub

   'Figure out how many lines it is

   Dim LenOfText, WidOfBox, NumberOfLines, HtOfText
   If TypeOf ctl Is TextBox Then
    LenOfText = ctl.Text
    Else:
    LenOfText = ctl.Caption
    End If

    'how wide is this puppy?

    WidOfBox = ctl.Width
    LenOfText = (Len(LenOfText) * TwipsPerPoint * ctl.FontSize) / 2
    NumberOfLines = Int(LenOfText / WidOfBox) + 1
    HtOfText = NumberOfLines * TwipsPerPoint * ctl.FontSize
    MinimumMargin = 1 * TwipsPerPoint
    BorderWidth = (ctl.BorderWidth * TwipsPerPoint) / 2
    
    ctl.TopMargin = ((ctl.Height - HtOfText) / 2) - MinimumMargin - BorderWidth
   

ErrorCode:
    Exit Sub
End Sub

نرجو تعديل الكود لكي يعمل بشكل صحيح مع كل الحالات

 

VerticalJustify2.rar

تم تعديل مارس 29, 2017 بواسطه علي المصري
اضافة مرفق