..:: مغز کامپیوتر ::..
کلید رهایی از تاریکی
درباره وبلاگ



مدیر وبلاگ : علی عبدیان
مطالب اخیر
نویسندگان
نظرسنجی
شما بیشتر به چه نوع مطلبی علاقه دارید ؟








1390/03/22 :: نویسنده : علی عبدیان

از تابع MsgBox برای ارسال یک پیغام به کاربر و یا مطرح نمودن یک پرسش و دریافت جواب مثبت یا منفی او به سؤال مطرح شده و از تابع InputBox برای دریافت یک عبارت از کاربر، استفاده می‌شود.

توابع مذکور را می‌توان مانند دستور نوشت، یعنی نام یکی از آن دو را و با یک فاصله پارامترهای احتمالی آنها را نوشت. همچنین می‌توان آنها را مانند یک Function به VB معرفی کرد. (یعنی این توابع دارای مقدار بازگشتی باشند) که برای این منظور باید پارامترهای آنها را داخل پرانتز نوشت.

پنج پارامتر اول Input Box به ترتیب عبارتند از:

Prompt: که یک عبارت رشته ای را (و یا یک متغیر رشته ای (String) را) بجای آن می‌نویسیم که این عبارت همان پیغامی خواهد بود که در اجرای  InputBox به کاربر نشان داده خواهد شد (مثلاً پیغام اینکه او باید چه چیزی را وارد کند).

Title: که عنوان InputBox در TitleBar آن خواهد بود (به صورت عبارت رشته‌ای).

Default: که مقدار پیش فرض برای آن چیزی است که کاربر قرار است وارد نماید.

XPos و YPos: که طول و عرض گوشه بالا و سمت چپ InputBox را در هنگام اجرای آن مشخص می‌کند.

که می توان هریک از آنها را مقداردهی نکرد و در اینصورت مقادیر پیش فرض VB برای آنها در نظر گرفته خواهد شد.

به عنوان مثال اگر دستورات:


Dim s As String

s = InputBox (“Please enter your name” , “Title” , “Alireza”)

را در برنامه داشته باشیم در زمان اجرای این دستورات شکل 12 را مشاهده خواهیم کرد:

شکل 12

مشاهده می کنید که بطور پیش فرض مقدار “Alireza” در کادر مربوط قرار گرفته است که کاربر می تواند آن را تغییر دهد. در هر حال پس از تأیید این کادر توسط کاربر، آنچه در کادر مذکور باشد به عنوان نتیجه در متغیر رشته ای s ذخیره می شود و می‌توان از آن در ادامه استفاده نمود.

اما سه پارامتر اول MsgBox نیز به قرار زیراند:

Prompt: که پیغامی است که در Message Box زمان اجرا به کاربر نمایش داده خواهد شد.

Button: که می توان دکمه های مورد نظر و علامت موردنظر برای  Message Box را در آن تعیین نمود. برخی از مقادیر مهمی که می توان در این پارامتر قرار داد عبارتند از:

  1. VBOKOnly : کادر مذکور فقط دارای دکمه OK خواهد بود.

  2. VBOKCancel: کادر مذکور دارای دکمه های OK و Cancel خواهد بود.

  3. VBYesNo: کادر مذکور دارای دکمه های Yes و No خواهد بود.

  4. VBYesNoCancel: کادر مذکور دارای دکمه های Yes و No و Cancel خواهد بود.

  5. VBAbortRetryIgnore: کادر مذکور دارای دکمه های Abort و Retry و Ignore خواهد بود.

  6. VBRetryCancel: کادر مذکور دارای دکمه های Retry و Cancel خواهد بود.

  7. VBMsgBoxRight: در کادر مذکور Title را راست چین می‌کند.

  8. VBMsgBoxRtlReading: کادر مذکور را راست به چپ (Right to Left)  می‌کند (و برای پیغام های فارسی مناسب است)

  9. VBCritical: یک علامت       در کنار کادر اضافه خواهد شد.

  10. VBExclamation: یک علامت       در کنار کادر اضافه خواهد شد.

  11. VBInformation: یک علامت       در کنار کادر اضافه خواهد شد.

  12. VBQuestion: یک علامت      در کنار کادر اضافه خواهد شد.

نکته: می توان آنهایی را که با هم تداخلی ندارند با علامت + با هم ترکیب کرد. مثلاً اگر بخواهیم که هم دکمه های OK و Cancel بیایند و هم در کنار پیغام، علامت          بیاید و هم Title راست چین شود، می توان در این پارامتر چنین نوشت:

VBOKCancel + VBInformation + VBMsgBoxRight

Title: که می توان عبارتی که در TitleBar این کادر می آید را مشخص نمود.

به عنوان مثال اگر دستورات:

Dim Result As VbMsgBoxResult

Result = MsgBox (“Are you sure you want to exit?”,vbQuestion+vbYesNo, “Exit”)

IF Result = vbYes then Unload Me

را وارد کنیم، در اینصورت در زمان اجرای این دستورات ابتدا شکل 13 به کاربر نمایش داده خواهد شد و در صورتی که کاربر به پیغام داده شده پاسخ Yes دهد، فرم فعال (که در VB با Me نمایش داده می شود)، Unload خواهد شد:

شکل 13

توجه داریم که نتیجه تابع MsgBox از نوع داده vbMsgBoxResult می باشد و لذا ما در بالا متغیر Result را از این نوع داده تعریف کردیم. این نوع داده می تواند یکی از مقادیر vbAbort، vbCancel، vbIgnore، vbNo، vbOK، vbRetry و vbYes باشد.






نوع مطلب : برنامه سازی، 
برچسب ها :
لینک های مرتبط :
نظرات پس از تایید نشان داده خواهند شد.


آمار وبلاگ
  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :
 
 
 
شبکه اجتماعی فارسی کلوب | Buy Website Traffic | Buy Targeted Website Traffic