چطور با msgbox2 کار کنم؟؟

[amirsafari 116]

سلام 

آموزش استفاده از msgbox رو دیدم ولی آخرش کامل نیست

یعنی یه چند دقیقه ای کمه

میخواستم بدونم توی قسمت پاسخ مثبت و منفی و کنسلش چطور میتونم کد بزنم و مثلا بگم فلان کارو بکن.

ممنونم

[-A.T.M- 58]

سلام بفرما خدمتت :

answ = Msgbox2("ALL DATA SHOWN IN LIST WILL BE EXPORTED", "SELECT EXPORT OPTION", "STANDARD", "SPECIAL", "CANCEL", Null)
   Select answ
      Case DialogResponse.POSITIVE 'اگه پاسخ کاربر مثبت بود
         ExportStandard
      Case DialogResponse.CANCEL 'اگه دکمه کنسل زد
         ExportSpecial
      Case DialogResponse.NEGATIVE 'اگه منفی بود
         Return
   End Select