غیر فعال کردن msgbox در برنامه

[reza_akbari2009]

سلام به همه دوستان یک سوال داشتم امیدوارم یک نفر توی این انجمن بزرگ و حرفه ای پیدا بشه و جواب این سوال منو بده.
من یک برنامه می خواستم که وقتی یک msg box رو تایید کردم سایر msg box های که قراره بعدا توی برنامه اجرا بشند رو غیر فعال کنه.و دیگه اونا رو نشون نده به هیچ وجه.
ممنون میشم کسی سورسش رو بگذاره.:لبخندساده::قلب:

[M_P_1374]

یه متغیر از نوع Variant تعریف کنید که مقدار رو توی خودش نگه میداره توجه کنید متغیر رو قبل از هر کدی توی حالت General تعریفش کنید
بعد وقتی MsgBoxتون اجرا شد متغیر یه مقدار بگیره بعد با دستورات شرطی یا همون If/Then/Else بگین اگه اون متغیر برابر با اون مقدار نبود MsgBox اجرا در غیر اون صورت اجرا نشه

[M_P_1374]

Dim a As Variant

Private Sub Command1_Click(Index As Integer)
If a = False Then
MsgBox Command1(Index).Caption
a = True
End If
End Sub
اینم کد
برای امتحان چند تا کامند رو فرمتون بذارین و همه اسمشون رو به Command1 تغییر بدین و نتیجه رو ببینین
اگه منظورتون این نبود بگین

[reza_akbari2009]

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