مشکل با کتابخانه afollestad material-dialogs

[yaser_b4a 131]

با سلام وقتی از این کتابخانه به صورت زیر استفاده میکنم:

Dim md1 As MD_BasicDialog
md1.Initialize("md1")
  (  md1.Show(title,content,positiveText,negativeText,"",Null,False,False

میخوام مثل Msgbox2 عمل کنه یعنی بعد از اینکه دیالوگ نشون داد و بعد از انتخاب گزینه  positive یا negative به خط بعد بره.

چطور میشه این مشکل رو حل کرد؟

[yaser_b4a 131]

خوب تا کاربر بخواد یک گزینه رو انتخاب کنه و برنامه به زیربرنامه مورد نظر بره و وضعیت response مشخص بشه a برابر 10شده. میخوام اول وضعیت response  مشخص بشه بعد بره خط بعد مثل Msgbox2

[yaser_b4a 131]

از دوستان کسی نمیدونه باید چیکار کرد؟

[mshafiee110 730]

سلام اگر منظورتون از به خط بعد رفتن اینه که کاری که شما میخواین انجام بده باید شما ساب مربوط به این دیالوگ رو بنویسی و حالا شرط بزاری که اگر مثبت بود اینکار اگر نه اینکار رو انجام بده.

اینم ساب مربوط به

Sub md1_buttonpress(response As Int)
	ToastMessageShow(response,False)
End Sub

مثلا تو این ساب اگر response برابر یک باشه یعنی positive انتخاب شده و اگر منفی یک باشه negative هستش.موفق باشین

[yaser_b4a 131]

از دوستان کسی نظری نداره؟

[yaser_b4a 131]

با تشکر از شما

منظورم این نبود .ببنید مثلا کد من اینه:

Dim md1 As MD_BasicDialog
dim a as string
md1.Initialize("md1")
 (  md1.Show(title,content,positiveText,negativeText,"",Null,False,False
a=10

میخوام قبل از اینکه a=10 بشه وضعیت response مشخص بشه در حالت عادی سریع به خط بعد میره.

[mshafiee110 730]

با تشکر از شما

منظورم این نبود .ببنید مثلا کد من اینه:

Dim md1 As MD_BasicDialog
dim a as string
md1.Initialize("md1")
 (  md1.Show(title,content,positiveText,negativeText,"",Null,False,False
a=10

میخوام قبل از اینکه a=10 بشه وضعیت response مشخص بشه در حالت عادی سریع به خط بعد میره.

اهان -ببین باز هم از شرط استفاده کن.به اینصورت که اگر response برابر با-1 یا 1 بود بره a=10