كود لزيادة الارقام كلما ضغطنا على زر الاضافة

[قنديل الصياد]

كود لزيادة الارقام كلما ضغطنا على زر الاضافة

 

الاكواد المستخدمة فى البرنامج

 

كود اضافة الارقام

Private Sub CommandButton1_Click()
TextBox1.Text = Val(TextBox1.Text) + 1
End Sub

كود مسح الارقام فى مربع النص

Private Sub CommandButton2_Click()
TextBox1.Text = ""
End Sub

مرفق ملف به التطبيق

 

الصياد.rar

 

 

 

[حمادة عمر]

اخي الحبيب

قنديل الصياد

بارك الله فيك

تقبل خالص تحياتي

نشاط راائع

[حمادة عمر]

رمضـــان كـــريـــم

[قنديل الصياد]

شكرا اخى واستاذى الحبيب

وكل عام وحضرتك بخير

[مجدى يونس]

الاخ قنديل

مجهود رائع شكر لك