تقييم الموضوع :
  • 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
السلام عليكم
وكل عام وانتم بخير
هذا الكود فقط لافراغ الحقول لا اكثر و لا اقل
يمكن استدعاؤه ضمن كود آخر في المشروع
الرد }}}
تم الشكر بواسطة: rnmr
#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
الرد }}}
تم الشكر بواسطة:



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


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