اجرا کردن خود برنامه

[mehrdad_xn]

سلام بر استادان برنامه نویس :چشمک:
دوستان یه سوال داشتک می خواستم بدونم که چه جوری می تونیم کاری بکنیم که برنامه رو که کاربر اجرا کرد خودشو (توجه کنید خودشو )دوباره اجرا کنه مثلا اگر کاربر 1 بار برنامه رو اجرا کرد 2 بار برنامه ما باز بشه

[M_P_1374]

فکر کنم این بدردتون بخوره فقط به جای ؟ تعداد زمانی که میخواین اجرا بشه رو بنویسین


Private Sub Form_Load()
Dim A as Integer
A = ?
Do While A = 0
Load New Form1
A = A - 1
Loop
End Subاگه اسم فرمتون Form1 (اسم پیشفرض VB ) نیست به جایFّorm1 توی کد اسم فرمتون رو بذارین

[mehrdad_xn]

کدتون کار نمی کنه !!!! :عصبانی++:

[xxxxx_xxxxx]

سلام
اون چيزي كه شما گفتيد ميشه اين:


Shell App.Path & "\" & App.EXEName & ".exe", vbNormalFocus

اما اون چيزي كه دوستمون گفت، منظورشون اين بود:


Dim f As New Form1
f.Show

شما بايد بگيد هدفتون چيه؟ اين كد دومي فقط فرم رو دوباره ميسازه و نه اين كه كل برنامه رو دوباره اجرا كنه.
با دستور اولي شما كلا برنامه رو تحت پروسس جديدي اجرا مي كنيد كه مستقل از اجراهاي قبليش هست.
هدفتون از اين كار چيه؟

[mohsen57]

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

[vbhamed]

سلام



Private Sub Form_Load()

On Error Resume Next

Dim x$

Open "c:\test.txt" For Input As #1

Line Input #1, x

If x < 2 Then
Close #1
Open "c:\test.txt" For Output As #1
Print #1, 2
Close #1
Shell App.Path & "\" & App.EXEName & ".exe", vbNormalFocus
Else
Close #1
Open "c:\test.txt" For Output As #1
Print #1, 0
Close #1
End If

End Sub