اذهب الي المحتوي
أوفيسنا

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


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

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

انا العضو (( العام الجديد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

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

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

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

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

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

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

تحياتي

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

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

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

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

===

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

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

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

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

  • 1 year later...
  • 3 months later...

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

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



سجل دخولك الان
×
×
  • اضف...

Important Information