رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.
جستجو در
  • تنظیمات بیشتر ...
نمایش نتایجی که شامل ...
جستجو در ...

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


  • 0
amirking76

کمک اجرای دستورات فقط برای یک بار

سوال

amirking76    15

کاربر عادی

سلام اساتید

چطور میشه وقتی برنامه نصب کردیم و اجرا کردیم دستوراتی را اجرا کنه فقط همون بار و بعد از اون هر چی هم برنامه رو باز کردیم دیگه اون دستورات رو اجرا نکنه

مثلا یه برنامه نوشتم  بعد این که نصب کرد توی مسیج باکس نشون میده اخرین تغیرات نسخه

ولی دفعه بعد که برنامه باز کردیم این مسیج باکسو دیگه نشون نده

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

6 پاسخ به این سوال تا کنون داده شده است

پست های پیشنهاد شده

  • 0
امین شاهدی    5,596

مدیر بازنشسته

میتونی با یه فایل اینو تعریف کنی که اگه فایل وجود داشت این کار رو انجام نده اگه هم وجود نداشت کار رو انجام بده و فایل رو بسازه ..

 

مثال :

If File.Exists(File.DirInternal,"first.txt")=False Then
Msgbox("dafe aval ! ","")
File.WriteString(File.DirInternal,"first.txt","")
End If
  • پسندیدن 1
  • تشکر 1

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
مهدی کفشگر    548

کاربر فعال

 

البته این روش هم هست که خیلی بدرد نمیخوره.برنامه به هر نحوی بسته بشه، بازم اون رویداد اجرا میشه

if first time = true then
msgbox("","")
end if

میتونید به جای خط وسط، کد دلخواهتون رو بنویسید.

  • پسندیدن 1

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
مهدی کفشگر    548

کاربر فعال

 

ببینید امکان نداره جواب نده.یه فیلم آماده کردم.لینک فیلمو براتون پیام میکنم.

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
پژمان نیکروان    5,995

مدیر بازنشسته

 

میتونی با یه فایل اینو تعریف کنی که اگه فایل وجود داشت این کار رو انجام نده اگه هم وجود نداشت کار رو انجام بده و فایل رو بسازه ..

 

مثال :

If File.Exists(File.DirInternal,"first.txt")=False Then
Msgbox("dafe aval ! ","")
File.WriteString(File.DirInternal,"first.txt","")
End If

از همین کد استفاده کنید جواب میده و تمام.....

  • پسندیدن 2

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

×