منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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



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



والعفو يالغالي
حفظ الإعدادات
اشكرك اخى لكن هذا الرابط ليس له علاقة بما اريد

انا اريد عند الضغط على زرار معين 10 مرات يتم تحويل التيكست بوكسس الى disabled فقط
يأخي الكريم بالعكس الموضوع له علاقة كبيرة بما تريد انا لم اقل لك بأنه به الموضوع ولكن به الفكرة انت استخدم الفكرة اتمنا تكون فهمت قصدي انا لو عندي الحين لغة البرمجة لأنشأت لك هذا المثل من هذا الموضوع
تحياتي لك
حسناً اخى سأنتظرك انا اعمل على الفيجوال 2008
و سأعاود النظر فى الموضوع مرة اخرى
أخي الكريم ممكن تعمل المثال لي بتقول عليه بطريقة بسيطة جدا و هي:

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

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

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

كود :
 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
اخى بعد وضع الكود البرنامج مازال يعمل
الصفحات : 1 2