مشكلة بفورم داخل لعبة من سيربح المليون

[ياسر أحمد الشيخ]

السلام عليكم ورحمه الله وبركاته

الملف المرفق به فورم عبارة عن محاكاة للفلاش الموجود فى لعبه من سيربح المليون باستخدام الأكواد والذى يقوم بالانتقال بين الأسئلة ال 15

أريد عمل التالى:

1- عند الضغط بالماوس على أى منطقى بالفورم يتوقف البرنامج (أريد حل تلك المشكلة)

2- اريد تقليل الفارق الزمنى لعملية الانتقال (مثلاً نصف ثانية)

وشكرا جزيلا

Million2.rar

[ياسر أحمد الشيخ]

آسف لسوء الفهم الذى حدث

أعتقد أن البعض قد فهم أننى أرفقت اللعبة

ولكننى أرفق فورم واحد فقط به مشكلة أريد حلها

وأوعدكم بارفاق اللعبة كاملة ولكن بعد الانتهاء منها

أرجو الاهتمام

للرفع

تم تعديل أكتوبر 14, 2012 بواسطه leprince2007

[عبدالله باقشير]

السلام عليكم

غير الرقم في المتغير tm

حسب ما يناسبك من التوقيت بالزيادة او النصان

Private Const Tm As Long = 5000

'''''''''''''''''''''''''''''''''

Private iii  As Integer


Private Sub ButtonRun_Click()

Dim i As Integer

Dim ii As Long

''''''''''''''''''''''''''''

Me.ButtonRun.Enabled = False

''''''''''''''''''''''''''''

If iii = 1 Then Me.OptB_1.BackStyle = 0: iii = 15

''''''''''''''''''''''''''''

For i = iii To 1 Step -1

    Me.Controls("OptB_" & iii).BackStyle = 0

    Me.Controls("OptB_" & i).BackStyle = 1: iii = i

    For ii = 1 To Tm

        DoEvents

        If Me.ButtonRun.Enabled = True Then Exit Sub

    Next

Next

''''''''''''''''''''''''''''

Me.OptB_1.BackStyle = 0

Me.ButtonRun.Enabled = True

End Sub


Private Sub UserForm_Activate()

iii = 15

End Sub


Private Sub UserForm_Click()

Me.ButtonRun.Enabled = True

End Sub

المرفق 2007

Million2.rar

[ياسر أحمد الشيخ]

شكرا أخى على الرد

تمت الاجابة