عنوان الفورم في الاكسس 2019، يتجه يساراً

[kafi2021]

بسم الله الرحمن الرحيم

السلام عليكم

قمت بتنصب الاكسس 2019، تفاجئت بأن عنوانين النوافذ لدي أصبحت تظهر الى اليسار

 

كيف هو السبيل لجعلها على اليمين او في منتصف الشاشة ؟

 

وشكراً

 

[عبد اللطيف سلوم]

صديقي للمرة الثالثة 

ارفق مثال دائما لكي يتم التعديل عليه 

اسئلة نظرية صعب تجد من يلبي طلبك

[kafi2021]

تفضل

 

ex_01.accdb

[moamen salem]

اتفضل اخي 

اما مشكلة اتجاة العنوان معرفش للاسف 

[kafi2021]

للاسف 
اخي الكريم
ما فهمت شئ على اجابتك

ان كان لديك حل
ارجو ان تطبقه على المثال المرفق

حتى يتضح للجميع
بارك الله فيك

 

[jjafferr]

وعليكم السلام 🙂

 

عندك 3 اختيارات 🙂

1 و 2 ، يعتمد على نسخة الاكسس التي قمت بتثبيتها :

اذا بالانجليزي ، فعنوان النموذج يكون على اليسار ،

واذا بالعربي ، فعنوان النموذج يكون على اليمين.

3. في الحالتين ا و 2 ، اذا اردت ان تزحف العنوان بعيد عن الاطراف (بس لا تخلي آمال كبيرة 🙂 ) :

 

 

جعفر

[ناقل]

جرب المرفق لعلها بداية حل لك للعنوان ......

Public Sub CenterC(frm As Form)
Dim SpcF As Integer
Dim clen As Integer
Dim oldc As String
Dim i As Integer

oldc = frm.Caption

Do While Left(oldc, 1) = Space(1)

DoEvents
oldc = Right(oldc, Len(oldc) - 1)
Loop
Do While Right(oldc, 1) = Space(1)

DoEvents
oldc = Left(oldc, Len(oldc) - 1)
Loop

clen = Len(oldc)

If InStr(oldc, "!") <> 0 Then

If InStr(oldc, " ") <> 0 Then
clen = clen * 1.5
Else
clen = clen * 1.4
End If

Else

If InStr(oldc, " ") <> 0 Then
clen = clen * 1.4
Else
clen = clen * 1.3
End If

End If

SpcF = frm.Width / 61.2244
SpcF = SpcF - clen


If SpcF > 1 Then
DoEvents
frm.Caption = Space(Int(SpcF / 2)) + oldc
Else
frm.Caption = oldc
End If

End Sub

 

ex_01 (1).accdb

[jjafferr]

همممم

وحسب المعلومة اللي طرحتها في الرابط اعلاه ، فيكفي هذا الكود :

Private Sub Form_Load()

    Me.Caption = Space(127 - Len(Me.Caption)) & Me.Caption

End Sub

.

جرب واعمل تغيير للرقم ، من 127 الى 129 ، وشوف التسمية كيف تكون متآكلة من النهاية 🙂

 

جعفر

[ناقل]

7 دقائق مضت, jjafferr said:

همممم

وحسب المعلومة اللي طرحتها في الرابط اعلاه ، فيكفي هذا الكود :

Private Sub Form_Load()

    Me.Caption = Space(127 - Len(Me.Caption)) & Me.Caption

End Sub

.

جرب واعمل تغيير للرقم ، من 127 الى 129 ، وشوف التسمية كيف تكون متآكلة من النهاية 🙂

 

جعفر

كلام معلم .... صحي اخي الكريم .... منكم نتعلم

[kafi2021]

السلام عليكم

تم التجريب

ولكن للاسف، الامر ازداد سوءً، 

عنوان الفورم حتى انه لم يأتي الى المنتصف 

 

هل من حل حديد ؟

 

[jjafferr]

وعليكم السلام 🙂

 

انا قلت:

16 ساعات مضت, jjafferr said:

اذا اردت ان تزحف العنوان بعيد عن الاطراف (بس لا تخلي آمال كبيرة 🙂 )

.

 

طيب اذا استعملت هذه الطريقة في عمل برنامجك ، فلن يكون هناك Toolbar لإسم النموذج وآخر لإسم البرنامج ، وبدون نماذج منبثقة

 

 

فتستطيع ان تجعل اسم النموذج في المنتصف (رجاء تجرب النموذجين ، وشوف اسم النموذج واسم البرنامج على الشريط) :

.

جعفر

 

 

TitleBar.zip

[kafi2021]

اخي الكريم 

جعفر 

شكرا لك على تواصلك

جربت المثال المرفق لكلا الفورمين الموجودين بالمثال

ولكن للاسف 

لم الحظ اي تأثير للكود

وبقي العنوان على اليسار

كما هو بالصور المرفقة

 

[kafi2021]

up