20-10-19, 12:46 PM
(20-10-19, 11:58 AM)حريف برمجة كتب :(20-10-19, 11:42 AM)hannileo كتب : السلام عليكم ورحمة الله وبركاته
اخواني ما هو بديل هذا الكود
كود :
If LblDay.Caption = "1" Or LblDay.Caption = "2" Or LblDay.Caption = "3" Or LblDay.Caption = "4" Or LblDay.Caption = "5" Then
TxtTotal.Text = txtday.Text
txtdip.Text = txtlimday.Text
End If
حيث انه يجب ان يكون من 1 الى 29 انا كتبته الى رقم 5 للاختصار قليلا
اي ان الكود طويل جدا
كيف اقول بتغير الكود الى حلقة For Next
وشكرا جزيلا لكم
وعليكم السلام ورحمة الله وبركاته ،،
كود :
If LblDay.Caption > 0 Or LblDay.Caption < 30 Then
TxtTotal.Text = txtday.Text
txtdip.Text = txtlimday.Text
End If
شكرا لك استاذي الكريم
لكن للاسف لم تنجح الطريقة
اصبحت اتجوز رقم 29 و30 .... الخ
اعتقد انها بحلقة for next نجح اكثر
وشكرا لك
