تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال ضروري
#1
بنسالكم انا ندير في مشروعي عن ميكنة مبيعات صيدلية وعندي اصناف ندخل فيهم وفي اكواد مقدرتش اني نعرفهم ف في شخص ساعدني وعطاني اكواد مهم لما بيسالوني مش فاهمة شن طبيعتهم الاكواد ف بنسال الكود هذا شن يعني
    Sub cler()
        Me.Txtid.Clear()
        Txtname.Clear()
        txttrade.Clear()
        cbcountery.Text = ""
        Txtrp.Clear()
        Txtmpt.Clear()
        cbType.Text = ""
        Txtp.Clear()
        Txtr.Clear()
        Txtrs.Clear()
        Txtsale.Clear()

        Txtid.Focus()

    End Sub
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
وكل عام وانتم بخير
هذا الكود فقط لافراغ الحقول لا اكثر و لا اقل
يمكن استدعاؤه ضمن كود آخر في المشروع
الرد }}}}
تم الشكر بواسطة:
#3
طيب حنوضحلك الكود بالجزء

كود :
 Sub cler()
' الكود هنا    
End Sub

هذا اسمه دالة method او function
وهي توفر امكانية تجميع عدة اوامر لتنفيذها في مرة واحدة
يعني في برنامجك لما تحتاجي تنفيذ الاوامر اللي في الدالة بتستدعيها بسطر واحد بالشكل هذا
cler()
وهي تتنفذ على طول

كود :
 
       Me.Txtid.Clear()
       Txtname.Clear()

السطرين هادو فيهم امر اسمه clear وظيفته ينظف (يمسح) محتوى العنصر ويخليها فراغ
يعني السطر الاول بينظف المربع النصي اللي اسمه Txtid والواضح انه مربع حقل الـ id
بالنسبة لكلمة Me المقصود بيها الفورم نفسه والامر يشتغل بيه او بدونه
والسطر التاني ينظف مربع النص Txtname

وهكذا السطور اللي فيهم امر clear نفس المهمة

كود :
       cbcountery.Text = ""
       cbType.Text = ""

واضح ان السطرين لتنظيف كومبو بوكس cbcountry و cbtype
السطرين بيعدلو على قيمة الخاصية text الخاصة بالكومبو بوكس
ويعني انه يحط قيمة text تساوي "" يعني فراغ

كود :
       Txtid.Focus()

امر Focus يحط مؤشر الماوس تلقائي على مربع النص Txtid
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بسيط في ال count khaled12345 2 56 منذ 4 ساعة مضت
آخر رد: khaled12345
  سؤال فى حضور و انصراف الموظفين salah mansour 0 15 منذ 4 ساعة مضت
آخر رد: salah mansour
  سؤال فى ثيمات المشروع salah mansour 10 93 منذ 9 ساعة مضت
آخر رد: محمود بكرى
  سؤال في ريبورت فيو زيد زينوبي 2 75 24-05-17, 01:29 PM
آخر رد: صبري زينوبي
  سؤال فى ادوات الديف اكسبريس salah mansour 4 89 24-05-17, 10:55 AM
آخر رد: salah mansour
  سؤال فى الداتا جريد salah mansour 1 99 21-05-17, 12:09 AM
آخر رد: boudyonline
  سؤال مهم فى اجازت العاملين salah mansour 8 141 17-05-17, 01:07 AM
آخر رد: salah mansour
Exclamation سؤال حول طباعة تقارير RDLC ndjakoub 1 44 16-05-17, 12:45 AM
آخر رد: alma2
  سؤال بخصوص التحكم بالمحرك عن طريق الحاسوب Basil Abdallah 2 65 16-05-17, 12:29 AM
آخر رد: alma2
  سؤال فى اجازات العاملين salah mansour 3 94 13-05-17, 02:57 AM
آخر رد: mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم