مشکل در فعال کردن باتون

[vistamobile 1,700]

سلام

من به یه مشکل کوچولو برخوردم:

یه بازی آموزشی واسه بچه ها خواستم بسازم :

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

[پژمان نیکروان 6,055]

سلام.

تعریف سه متغیر:

Dim a As Boolean
Dim b As Boolean
Dim c As Boolean

از نوع bolean بود.

در رویداد کلیک باتون1:

Sub Button1_Click
   a=True
End Sub

باتون 2:

Sub Button2_Click
   b=True
End Sub

باتون3:

Sub Button3_Click
   c=True
End Sub

و در رویداد همه باتون هایی که بالا اینو نوشتی پایینشون اینو بنویس:

    If a=True AND b=True AND c=True Then
   Button4.Enabled=True
   End If

یعنی مثلا واسه باتون1:

Sub Button1_Click
a=True

   If a=True AND b=True AND c=True Then
   Button4.Enabled=True
   End If

End Sub

بقیه هم به این صورت.

[vistamobile 1,700]

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

[vistamobile 1,700]

دادا یه سوال دیگه داشتم. چجوری میشه با کلیک رو یه باتون اون رو viseble کرد؟ یعنی خود باتون مخفی هستش ولی اگر روش کلیک شد مرئی بشه؟ خودم اینجوری نوشتم عمل نکرد:

Sub btn_3_Click
btn_3.Visible=True
end sub

[kamysanj 34]

اینجوری نمیشه شیی که ویزیبیل هست غیرفعاله ولی می تونی زیرش یک پنل بزار ی و الفاش رو صفر کن

بعد توی کد کلیک پنل این کد رو بنویس

[vistamobile 1,700]

داداش خودم حلش کردم. از باتون مکمل استفاده کردم. یه باتون رو گذاشتم رو اون یکی. حل شد ممنون

[kamysanj 34]

موفق باشید