[™Snip3R™]

انا فكرت انى اعمل البرنامج بتاعى Trial بطريقة مختلفة شوية وهى 
 
مثلا انا عندى 
 
textbox1 , textbox2 , textbox3
 
دول انا بستخدمهم لإدراج البيانات الى قاعدة البيانات لغاية كده حلو 
 
فيه طبعاُ زرار للاضافة و الفكرة هنا 
 
انا فكرت انى لو عملت كود و قولت فيه للبرنامج اسمح بالضغط على الزرار ده 10 مرات بس بعد كده خلى ال Textboxs فى خاصية Disable و اظهر مسج بوكس بتقول ان نسخة البرنامج مجانية 
 
 
ياريت لو حد من الاعضاء الافاضل يعرف طريقة لتنفيذها اكيد هيساعد بيها ناس كتير غيرى 

[تركي الحلواني]

السلام عليكم يالغالي والله ماني منزل لغة الدت نت ع جهاز المكتب



لكن هذا رابط راح يفيدك كثير والفكرة انك تحفظ القيمة في الرجيستري



والعفو يالغالي
حفظ الإعدادات

[™Snip3R™]

اشكرك اخى لكن هذا الرابط ليس له علاقة بما اريد

انا اريد عند الضغط على زرار معين 10 مرات يتم تحويل التيكست بوكسس الى disabled فقط

[تركي الحلواني]

يأخي الكريم بالعكس الموضوع له علاقة كبيرة بما تريد انا لم اقل لك بأنه به الموضوع ولكن به الفكرة انت استخدم الفكرة اتمنا تكون فهمت قصدي انا لو عندي الحين لغة البرمجة لأنشأت لك هذا المثل من هذا الموضوع
تحياتي لك

[™Snip3R™]

حسناً اخى سأنتظرك انا اعمل على الفيجوال 2008
و سأعاود النظر فى الموضوع مرة اخرى

[eng.bassel]

أخي الكريم ممكن تعمل المثال لي بتقول عليه بطريقة بسيطة جدا و هي:

تعمل حقل في قاعدة البيانات الخاصة ببرنامجك يقوم بحفظ قيمة معينة عن كل ضغطة لهذا الزر مثلا القيمة (1)
ويحفظ هذه القيمة في قاعدة البيانات و عند الدخول مرة أخرى يقوم بإضافة القيمة (1) لتصبح قيمة الحقل (2)
وهكذا الى ان تصبح القيمة (10)
عندها انت تكون قد وضعت شرط عند الدخول للبرنامج انه اذا كانت القيمة = 10-------> إغلاق البرنامج.

[™Snip3R™]

شكرا اخى [b]eng.bassel

هذه الطريقة لم تخطر على بالى من قبل اشكرك مرة اخى
[/b]

[تركي الحلواني]

هذه الطريقة سهله جداً بس انا ماطرحتها لانه ممكن يعمل نسخة من الداتا في اول مرة ويقدر يشغل البرنامج مرة ثانية لكن في الرجيستري بتكون اصعب ع العموم كل الطرق ولها عيوبها

[eng.khalidvb]

الســــــــــــــــــــــــــــلام عليكم

تفضل اخي هذا الكود   البسيط ينجز لك المهمه بكفاه عاليه

كود :

 Dim a As Integer

Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseClick
        a = a + 1
        TextBox1.Text = a
        If a = 10 Then
            MsgBox("You click the button " & a & " times")
            TextBox1.Enabled = False
            a = 0
            TextBox1.Text = a
        End If
    End Sub

[™Snip3R™]

اخى بعد وضع الكود البرنامج مازال يعمل