نمایش فرم و پیغام تنها در اولین اجرا(فقط یکبار بعد از نصب)

[sepehr2009]

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

جستجو کردم چیزی پیدا نشد.

[Mr'Jamshidy]

شما برای اینکه بدونی کاربر برنامه رو ثبت کرده یا نه باید اطلاعات روردی کاربر رو یک جا ذخیره کنی

حالا یا تو فایل یا تو رجیستری

بعد در هر بار اجرا برنامه میاد و اطلاعات رو چک میکنه و اگر درست بود (یعنی ثبت شده بود) که هیچی به روال عادیش ادامه میده در غیر اینصورت فرم درخواست کد ثبت رو نمایش میده

در مورد توضیحاتی که دادم سرچ کن حتما چیزی پیدا میکنی

[sepehr2009]

ممنون.مشکل حل شد.
فقط یه سوال
من یه کد میخواستم که به این صورت عمل کنه که مثلا اگر در درایو c پوشه ی salam فایل about.txt موجود بود برو به فرم 1 (form1.show) در غیر این صورت برو به فرم 2(form2.show)
میشه بگین این کد رو چه جوری بنویسم؟
ممنون

[returnx]

چندین راه وجود داره مثلا استفاده از FileListBox و DriveBox و....
اما راحت ترین کار این که با دستور Open شما فایل رو باز کنید در صورتی که این فایل نباشه قطعا Error پیدا نشدن فایل رو میده ، بعد شما میتونید Error رو کنترل کنید...
اینم نحوه پیاده سازی:

On Error GoTo error:
Open "c:\salam.txt" For Input As #1
'Code
Close #1

error:
If Err.Number = 53 Then 'File Not Found
' Code
End If
موفق باشید...

[محسن واژدی]

ممنون.مشکل حل شد.
فقط یه سوال
من یه کد میخواستم که به این صورت عمل کنه که مثلا اگر در درایو c پوشه ی salam فایل about.txt موجود بود برو به فرم 1 (form1.show) در غیر این صورت برو به فرم 2(form2.show)
میشه بگین این کد رو چه جوری بنویسم؟
ممنون

سلام علیکم
یکی دو روش دیگر نیز:
1 - استفاده از API ی PathFileExists :



Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

If CBool(PathFileExists("c:\1.txt")) = True Then
MsgBox "Target file exist...", vbInformation
Else
MsgBox "Not found...", vbCritical
End If




2- استفاده از تابع Dir:

If Dir("c:\1.txt") <> "" Then
MsgBox "Target file exist...", vbInformation
Else
MsgBox "Not found...", vbCritical
End If



موفق باشید