متوقف کردن یک خط برنامه

[abolfazl-z]

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

[mohsen_iceman2000]

سلام منظورت از متوقف كردن چيه ؟ يه مثال بزن تا جواب رو واست بفرستم

Yahoo : mohsen_iceman2000

[abolfazl-z]

دوست عزیز

منظور من اینکه من مثلا کد زیر را نوشتم:
a = InputBox("Enter a Number:")
'==============
B = B + 1
من به جای '============== چی بنویسم که برنامه تا همانجا پیش بره
و بعد اش چی بنویسم که برنامه از اونجا به بعد پیش بره یعنی خط B = B +1 را اجرا کند؟؟؟؟؟؟؟؟؟؟؟

[mohsen_iceman2000]

خوب اينكه كاري نداري به جاي ============ شما بايد از دستور if استفاده كني
مثلا
a = InputBox("Enter a Number
if a = 25 then
b=b+1
else
msgbox("code vared shode eshtebah ast " )
end if

[abolfazl-z]

نه دوست عزیز ما را دست کم گرفتی :قهقهه:
دوست من منظور من اجرا نشدن تا یک قسمت از خط
یه چیزی اگر با کنترل Inet کار کرده باشی می بینی که تا زمانی که کنترل Inet داده را دریافت نکند به خط بعدی نمی رود و دستور بعدی را که هر چی باشه اجرا نمی کنه به مثال زیر دقت کن:

a= Inet1.OpenUrl ("www.google.com")
Print "Yes"
این Print "Yes اجرا نمیشه تا زمانیکه اطلاعات دریافت شه؟:متفکر:

[arenaw]

فکر میکنم این خصوصیت فرم input box & message box هستش که به صورت vbModal اجرا میشن
یعنی تا زمانی که input box جوابی ارسال نکنه به خط بعدی نمیره
شما دستور input box رو از یه فرم دیگه فراخوانی کنی یا یه input box رو خودت طراحی کنی و اونو به جای اینطوری:
frmInputbox.show vbModal
که مثل همون inputbox ویبی لود میکنه اینطوری load کنی
frmInputbox.show vbNormal

[M.T.P]

خود تابع InputBox پروسیجر رو تو همون خط کد نگه میداره و تا مادامی که کاربر تکلیف پنجره INputbox رو مشخص نکرده
خط بعدی کد خونده نمیشه.

همچنین شما می تونید برای متوقف کردن پروسیجر از نمایش یک فرم بصورت Modal استفاده کنید.

تابع Msgbox هم همین کار رو انجام میده.

[abolfazl-z]

مرسی دوستان عزییییییییییییییییییییییی یییییییییز

چون خودم فهمیدم یکم بیشتر و واضح تر توضیح میدم تا بقیه هم بفهمند:

Private Sub CmdُShow_Click()
frmInputBox.Show vbModal
Print "D"
End Sub

زمانی که شما از متد VBModal در show استفاده می کنید از خط 3 یعنی "Print "D تا زمانی که فرمی را که نشان دادیم(frmInputBox) نبندیم یعنی Unload نکنیم اجرا نمیشه.
:بوس::بوس::بوس::بوس::بوس::بوس::� �وس::بوس::بوس::بوس::بوس::بوس::ب� �س::بوس::بوس::بوس::بوس::بوس::بو� �:

[vbhamed]

سلام

مي تونيد از دستور ساده تر زير هم استفاده كنيد
Msgbox ""