إكمال برنامج تحصيل الايجار

[العام الجديد2012]

السلام عليكم ورحمه الله

انا العضو (( العام الجديد2012))

اهديكم باقة من الورود معطرة بالعود

بقدوم العام الجديدة

واخص استاذنا العزيز

خبور خير

والاستاذ / الحسامي

والاستاذ / أبو عبد الله

والاستاذ / يحيى حسين

والاستاذ / هشام شلبى

والاستاذ / احمدزمان

والاستاذ / عبدالله المجرب

والاستاذ / يوسف عطا

والاستاذ / دغيدى

والاستاذ / kemas

والاستاذ / TareQ M

والاستاذ / naderwatfa

والاستاذ / Adel.Hanafy

وجميع الاخوه الاعضاء المحترمين

جعله الله عام خير وبركة ونصر للإسلام والمسلمين ...

-------------------------

امل المساعدة في اكمال برنامج الاول

وهو عن تحصيل الايجارات

حيث تعلمت منكم الكثير وباقي الكثير

المطلوب بالملف

شكري للمنتدى الغالي ولكل الاساتذة والمشرفين والاعضاء الافاضل

العام لجديد2012.rar

[يوسف عطا]

شكراً على الهدية والتهنئة وجارى العمل على الملف

[مجدى يونس]

هدية جميلة فى عام هجرى اجمل على الامة الاسلامية وخلفية مناسبة للعام الهجرى واهلا بك بالمنتدى وبالتوفيق

مجدى يونس

[الـعيدروس]

السلام عليكم

الاخ الفاضل 2012 مشكور على الهديه

الاكواد الثلاثه للشكل الجمالي هي اساساً لعدة تنسيقات للفورم وانا استخدمتها لمهنه بسيطه

لإخفاء اطار الفورم كشكل جمالي واذا لاتريد الترويسة تختفي احذف الاكواد الثلاثه

مع الجزئيه التالية من داخل الفورم

Private Sub optHideTitleBar_Click()

Dim B As Boolean

B = ShowTitleBar(UF:=Me, HideTitle:=True)

B = IsTitleBarVisible(UF:=Me)

If B = True Then

    Me.lblCaptionVisible.Caption = ""

Else

    Me.lblCaptionVisible.Caption = ""

End If

End Sub

Private Sub optEnableCloseButton_Click()

Dim B As Boolean

B = EnableCloseButton(UF:=Me, Disable:=False)

B = IsCloseButtonEnabled(UF:=Me)

If B = True Then

    Me.lblCloseEnabled.Caption = "Button Enabled"

Else

    Me.lblCloseEnabled.Caption = "Button Disabled"

End If

End Sub

وهذه لانها متصله بالاكواد التي تريد حذفها

Dim B As Boolean

B = IsTitleBarVisible(UF:=Me)

If B = True Then

    Me.lblCaptionVisible.Caption = ""

Else

    Me.lblCaptionVisible.Caption = ""

End If

واما فورم ثلاثة هو فورم ( Calendar تقويم) كان متصل بتكست بوكس في فورم UserForm2

نصيحه لو تريد استجابة اكثر من الاساتذه

حاول ان تبدء بطلب بسيط

اولا لان طرح الاضافات مرة واحده يصعب فهمها

وفي الاخر تلقى اكثر تحميل ومشاهدات للملف المرفق واقل استجابه

وعلى العموم القي نظرة على هذا الرابط ربما فيه احد طلباتك

http://www.officena.net/ib/index.php?showtopic=39386&st=20

تحياتي

[العام الجديد2012]

السلام عليكم ورحمه الله

انا العضو (( العام الجديد2012))

حياك الله اخي الكريم

===

***امل عدم حذف او تغيير ومصادرت مشاركاتنا ونحن نقبل التوجيه والنصح والنقد لا الظلم ***

لم يتم حذف مشاركتك بل تم تعديل العنوان (عبدالله المجرب)

العام لجديد2012.rar

تم تعديل نوفمبر 28, 2011 بواسطه اا عبدالله المجرب اا

[SAAD12345]

شكرا يعطيكم العافيه

[احمد الحاوي]

البرنامج يعطي خطا في الكود .. لماذا؟ وجزاكم الله خيرا