الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

create x o game

مغلق
بدأه medo1976 في 18 سبتمبر 2003 · 0 رد · 625 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1

salam alekom

here we can creat xo game

Dim bl As Boolean

Private Sub Command1_Click(Index As Integer)

If bl Then

Command1(Index).Caption = "x"

Else

Command1(Index).Caption = "o"

End If

bl = Not bl

End Sub

Private Sub Form_Load()

bl = True

End Sub

thanks

mohamed

هذا الموضوع مغلق.

مواضيع مشابهة