اللهم عجل لولیک الفرج

نوشته شده توسط مهدی در جمعه 88/12/28 و ساعت 9:34 عصر | نظرات دیگران()

این تابع تاریخ رو به میلادی میگیره و مشخص میکنه اون تاریخ چند شنبه است.

Public Function DayName(strDate As String) As String
Select Case Weekday(strDate)
    Case 7:
        DayName = "شنبه"
    Case 1:
        DayName = "یکشنبه"
    Case 2:
        DayName = "دوشنبه"
    Case 3:
        DayName = "سه شنبه"
    Case 4:
        DayName = "چهارشنبه"
    Case 5:
        DayName = "پنج شنبه"
    Case 6:
        DayName = "جمعه"
End Select
End Function

نوشته شده توسط مهدی در چهارشنبه 88/9/25 و ساعت 4:18 عصر | نظرات دیگران()

با سلام

امروز چندتا سورس به درد بخور براتون میذارم:

Create PDF : همونطور که از اسمش پیداست ، مربوط به ایجاد فایل پی دی اف هست اما بدون نیاز به کامپوننت

DetectCD : اینم برای پیدا کردن تعداد سی دی رام سیستم

DrawFram : برای رسم کادرهای مختلف روی فرم

Fire : ایجاد نمای آتش بسیار زیبا داخل پیکچر باکس

FormGradiant : رسم گرادیانت در پس زمینه فرم

FormGradiant2 : روش دیگه ای برای رسم گرادیانت در پس زمینه فرم

نوشته شده توسط مهدی در جمعه 88/6/6 و ساعت 5:39 صبح | نظرات دیگران()