PDA

View Full Version : سوال: trial کردن یک برنامه


linktaz
یک شنبه 30 خرداد 1389, 19:18 عصر
با عرض سلام خدمت دوستان.
چطوری میتونم به بانک ام یه تاریخ بدم که بعد از اون تاریخ پیغام خاصی رو نمایش بده و وارد بانک نشه و فقط وارد یه فرم خاص که واسه غیر فعال کردن این گزینه میشه ،بشه.
مرسی.
wolfstander
دوشنبه 31 خرداد 1389, 07:24 صبح
شما باید از تابعی به این صورت استفاده کنید

Dim TheDate As Date ' Declare variables.
Dim Msg
TheDate = "01/01/01"
DateForCalc = DateDiff("d", TheDate, Now)
If DateForCalc > 3500 Then MsgBox "Your Trial Period Is Expired.Please Contact To Your AdminIstrator": End

و این کد رو توی فرم استارت آپ خودتون قرار بدید
برنامه بعد از x روز که شما اون رو باید از امروز محاسبه کنید و جای 3500 قرار بدید، از کار میفته
یه اونت خروج از برنامه هم تعریف کنید
مشکل زیادی نداره
حالا بعدش میتونید فرم بذارید و بگید که در صورتی که عدد خاصی رو بعنوان اکتیو وارد کرد، دیگه این کنترل رو انجام نده
linktaz
یک شنبه 06 تیر 1389, 13:48 عصر
امکانش هست یه نمونه ساده رو واسم آپ کنید.ممنون
مهدی قربانی
دوشنبه 07 تیر 1389, 15:48 عصر
سلام
اينجا (http://barnamenevis.org/forum/showpost.php?p=433063&postcount=161) رو ببينيد .
linktaz
سه شنبه 08 تیر 1389, 13:44 عصر
سلام
اينجا (http://barnamenevis.org/forum/showpost.php?p=433063&postcount=161) رو ببينيد .
سلام.آقای قربانی در این نمونه بعد از بستن برنامه و باز کزدن دوباره اون تنظیمات از بین میره و غیر فعال میشه.قاعدتا من نمیوتنم هر روز تنظیمش کنم.میشه کمکم کنید
linktaz
پنج شنبه 10 تیر 1389, 15:07 عصر
با همون نمونه مشکلم حل شد.با تشکر از آقای قربانی