kafi2021 قام بنشر نوفمبر 17, 2021 قام بنشر نوفمبر 17, 2021 بسم الله الرحمن الرحيم السلام عليكم قمت بتنصب الاكسس 2019، تفاجئت بأن عنوانين النوافذ لدي أصبحت تظهر الى اليسار كيف هو السبيل لجعلها على اليمين او في منتصف الشاشة ؟ وشكراً
عبد اللطيف سلوم قام بنشر نوفمبر 17, 2021 قام بنشر نوفمبر 17, 2021 صديقي للمرة الثالثة ارفق مثال دائما لكي يتم التعديل عليه اسئلة نظرية صعب تجد من يلبي طلبك
moamen salem قام بنشر نوفمبر 18, 2021 قام بنشر نوفمبر 18, 2021 اتفضل اخي اما مشكلة اتجاة العنوان معرفش للاسف
kafi2021 قام بنشر نوفمبر 18, 2021 الكاتب قام بنشر نوفمبر 18, 2021 للاسف اخي الكريم ما فهمت شئ على اجابتك ان كان لديك حل ارجو ان تطبقه على المثال المرفق حتى يتضح للجميع بارك الله فيك
jjafferr قام بنشر نوفمبر 18, 2021 قام بنشر نوفمبر 18, 2021 وعليكم السلام 🙂 عندك 3 اختيارات 🙂 1 و 2 ، يعتمد على نسخة الاكسس التي قمت بتثبيتها : اذا بالانجليزي ، فعنوان النموذج يكون على اليسار ، واذا بالعربي ، فعنوان النموذج يكون على اليمين. 3. في الحالتين ا و 2 ، اذا اردت ان تزحف العنوان بعيد عن الاطراف (بس لا تخلي آمال كبيرة 🙂 ) : جعفر
ناقل قام بنشر نوفمبر 18, 2021 قام بنشر نوفمبر 18, 2021 جرب المرفق لعلها بداية حل لك للعنوان ...... 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 قام بنشر نوفمبر 18, 2021 قام بنشر نوفمبر 18, 2021 همممم وحسب المعلومة اللي طرحتها في الرابط اعلاه ، فيكفي هذا الكود : Private Sub Form_Load() Me.Caption = Space(127 - Len(Me.Caption)) & Me.Caption End Sub . جرب واعمل تغيير للرقم ، من 127 الى 129 ، وشوف التسمية كيف تكون متآكلة من النهاية 🙂 جعفر 1
ناقل قام بنشر نوفمبر 18, 2021 قام بنشر نوفمبر 18, 2021 7 دقائق مضت, jjafferr said: همممم وحسب المعلومة اللي طرحتها في الرابط اعلاه ، فيكفي هذا الكود : Private Sub Form_Load() Me.Caption = Space(127 - Len(Me.Caption)) & Me.Caption End Sub . جرب واعمل تغيير للرقم ، من 127 الى 129 ، وشوف التسمية كيف تكون متآكلة من النهاية 🙂 جعفر كلام معلم .... صحي اخي الكريم .... منكم نتعلم 1
kafi2021 قام بنشر نوفمبر 18, 2021 الكاتب قام بنشر نوفمبر 18, 2021 السلام عليكم تم التجريب ولكن للاسف، الامر ازداد سوءً، عنوان الفورم حتى انه لم يأتي الى المنتصف هل من حل حديد ؟
jjafferr قام بنشر نوفمبر 19, 2021 قام بنشر نوفمبر 19, 2021 وعليكم السلام 🙂 انا قلت: 16 ساعات مضت, jjafferr said: اذا اردت ان تزحف العنوان بعيد عن الاطراف (بس لا تخلي آمال كبيرة 🙂 ) . طيب اذا استعملت هذه الطريقة في عمل برنامجك ، فلن يكون هناك Toolbar لإسم النموذج وآخر لإسم البرنامج ، وبدون نماذج منبثقة فتستطيع ان تجعل اسم النموذج في المنتصف (رجاء تجرب النموذجين ، وشوف اسم النموذج واسم البرنامج على الشريط) : . جعفر TitleBar.zip
kafi2021 قام بنشر نوفمبر 19, 2021 الكاتب قام بنشر نوفمبر 19, 2021 اخي الكريم جعفر شكرا لك على تواصلك جربت المثال المرفق لكلا الفورمين الموجودين بالمثال ولكن للاسف لم الحظ اي تأثير للكود وبقي العنوان على اليسار كما هو بالصور المرفقة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.