دوشنبه شانزدهم آبان 1384

تبدیل شمسی به میلادی

شاید شما در بعضی اوقات احتیاج داشته باشید تا تاریخ شمسی را به میلادی و یا قمری تبدیل کنید از این رو می تونید این سورس  vb رو دانلود کنید و از کد های اون استفاده کنید

دانلود 21KB

نوشته شده توسط حمید در 16:58 | | لینک به این مطلب

جمعه سیزدهم آبان 1384

متهم گریخت

تیتراژ اولیه متهم گریخت رو می تونید دانلود کنید

 

نوشته شده توسط حمید در 17:1 | | لینک به این مطلب

جمعه سیزدهم آبان 1384

تابع Environ

سلام

شاید در بعض اوقات مجبور باشد که مسیر ریشه ویندوز یا My Documents و یا ProgramFiles کامپیوتر مورد نظر خود را پیدا کنید به غیر از توابع API می تونید از تابع زیر هم استفاده کنید:

Private sub command1_click()

dim path as string

path=Environ("windir")    'این کد مسیر ویندوز رو در متغیر قرار می ده

end sub

 

و همین طور بجای Windir می تونید از :

Programfiles : که مسیر programfiles رو بر می گردونه

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

 

نوشته شده توسط حمید در 16:19 | | لینک به این مطلب