دخول

**samawi** · 04-11-17, 06:53 AM

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

وشكرا

**حريف برمجة** · 04-11-17, 12:03 PM

(04-11-17, 06:53 AM)samawi كتب : السلام عليكم
هل استطيع ان اجعل الخاصية ENABLE للكومند بوتن تتفعل فقط مرة في الشهر
مثلا نهاية كل شهر

وشكرا

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

الكود مشروح ،،

كود :

   'آخر يوم في الشهر الحالي

        Dim lastDay As Int16 = DateTime.DaysInMonth(Now.Year, Now.Month)

        'للتأكد من آخر يوم في الشهر

        MsgBox("آخر يوم في الشهر الحالي هو " & lastDay)

        'تاريخ اليوم الحالي

        Dim today As DateTime = Now

        'للتأكد من تاريخ اليوم الحالي

        MsgBox("اليوم الحالي بدون الشهر والسنة هو " & today.Day)

        'اذا اليوم يساوي آخر يوم في الشهر الحالي نفعل البوتن

        If lastDay = today.Day Then

            Button1.Enabled = True

        Else

            MsgBox("لايمكن تفعيل البوتن إلا في آخر يوم من كل شهر")

        End If

**محمد محمود الغرياني** · 08-11-17, 03:02 AM

if mid(date.today,1,2)="30" then
button1.enabeld=true
else
button1.enabeld=false
endif

**samawi**

(04-11-17, 12:03 PM)حريف برمجة كتب :
(04-11-17, 06:53 AM)samawi كتب : السلام عليكم
هل استطيع ان اجعل الخاصية ENABLE للكومند بوتن تتفعل فقط مرة في الشهر
مثلا نهاية كل شهر

وشكرا

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

الكود مشروح ،،

كود :

'آخر يوم في الشهر الحالي Dim lastDay As Int16 = DateTime.DaysInMonth(Now.Year, Now.Month) 'للتأكد من آخر يوم في الشهر MsgBox("آخر يوم في الشهر الحالي هو " & lastDay) 'تاريخ اليوم الحالي Dim today As DateTime = Now 'للتأكد من تاريخ اليوم الحالي MsgBox("اليوم الحالي بدون الشهر والسنة هو " & today.Day) 'اذا اليوم يساوي آخر يوم في الشهر الحالي نفعل البوتن If lastDay = today.Day Then Button1.Enabled = True Else MsgBox("لايمكن تفعيل البوتن إلا في آخر يوم من كل شهر") End If

اشكرك اخي وجزاك الله خير

(08-11-17, 03:02 AM)محمد محمود الغرياني كتب : if mid(date.today,1,2)="30" then
button1.enabeld=true
else
button1.enabeld=false
endif

اشكرك اخي وجزاك الله خير

(08-11-17, 03:02 AM)محمد محمود الغرياني كتب : if mid(date.today,1,2)="30" then
button1.enabeld=true
else
button1.enabeld=false
endif

اشكرك اخي وجزاك الله خير

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[VB.NET] بوتن	EMADW	1	232	18-05-25, 08:36 PM آخر رد: Taha Okla
	[VB.NET] الغاء كود ضمن بوتن	EMADW	1	211	12-04-25, 09:00 PM آخر رد: أبو خالد الشكري
	تغيير اللون تلقائياً عند إقتراب نهاية العقد	F.H.M	2	441	25-10-24, 07:16 AM آخر رد: F.H.M
	استفسار هل استطيع جلب بيانات من موقع الى الفروم بالفجول	alachk	0	320	02-09-24, 09:15 PM آخر رد: alachk
	كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1	Adel27213	2	619	09-11-23, 09:07 PM آخر رد: Adel27213
	كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من	Adel27213	3	924	05-11-23, 01:45 AM آخر رد: justforit
	[VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر	Adel27213	2	652	03-11-23, 06:50 AM آخر رد: Adel27213
	[سؤال] كيف استطيع ان اعمل مثل هذه التبويبات في الواجهة كما في المرفق ادناه	aYHAMMMS	0	545	14-07-23, 10:21 AM آخر رد: aYHAMMMS
	هل ممكن اجعل عناصر ال LISTBOX بشكل افقي	ismaeel	0	612	01-05-23, 11:26 PM آخر رد: ismaeel
	لا استطيع الحصول على الرقم التسلسلي للقرص C	ابو محمد محمد محمد	6	1,149	27-04-23, 01:49 PM آخر رد: ابو محمد محمد محمد