اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


kafi2021

الردود الموصى بها

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

السلام عليكم

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

 

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

 

وشكراً

 

عنوان الفورم.png

رابط هذا التعليق
شارك

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

 

عندك 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

رابط هذا التعليق
شارك

همممم

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

Private Sub Form_Load()

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

End Sub

.

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

 

جعفر

  • Haha 1
رابط هذا التعليق
شارك

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

همممم

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

Private Sub Form_Load()

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

End Sub

.

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

 

جعفر

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

  • Thanks 1
رابط هذا التعليق
شارك

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

 

انا قلت:

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

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

.

 

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

 

 

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

image.png.20cc5da66dcacf5d322bb0c4981d54dc.png

.

جعفر

 

 

TitleBar.zip

رابط هذا التعليق
شارك

اخي الكريم 

جعفر 

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

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

ولكن للاسف 

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

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

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


 

555.png

4444.png

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information