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

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

قام بنشر

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information