نقل قول: بخش نمونه کدهای VB.Net ( تقویم)
سلام
این کلاسی که برای دوستان آپلود کردم مناسبت های تاریخ شمسی و قمری و میلادی را نمایش میدهد در کل یه تقویم هست
برای تمام سال ها جواب میده مگر این که مناسبت های جدیدی اضافه بشه
درسته که نوشتنش وقت زیادی گرفت اما قابل شما دوستان عزیز را ندارد
حالا نحوه استفاده
اول این کلاس را دانلود کرده و به پرژه خود اضافه کنید
بعد یه نمونه از کلاس ایجاد کرده و به ترتیب زیر استفاهده کنید
Dim urgs AsNew Urge
Dim clf AsBoolean = False
Label1.Text = String.Empty
'مناسبت تاريخ قمري
If urgs.UrgeGamari <> "-1"Then
Label1.Text = urgs.UrgeGamari
clf = True
EndIf
Dim gModel = urgs.GetModel
'مناسبت تاريخ شمسي
If urgs.UrgeShamsi <> "-1"Then
If clf = TrueThen
Label1.Text &= vbCrLf & urgs.UrgeShamsi
Else
Label1.Text = urgs.UrgeShamsi
clf = True
EndIf
EndIf
Dim SModel = urgs.GetModel
'مناسبت تاريخ قمري
If urgs.UrgeMiladi <> "-1"Then
If clf = TrueThen
Label1.Text &= vbCrLf & urgs.UrgeMiladi
Else
Label1.Text = urgs.UrgeMiladi
EndIf
EndIf
'آن روز تعطيل هست
If urgs.GetHaliDay = TrueThen
Label1.ForeColor = Color.Red
EndIf
'روز غم هست يا نه
If gModel = 2 Or SModel = 2 Then
'روز شادي
ElseIf gModel = 1 Or SModel = 1 Then
'روز غم
EndIf
راستی این تاپیک به نظر خیلی خوب شده
پاسخ با نقل قول
