تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 3 68 منذ 2 ساعة مضت
آخر رد: محمد كريّم
  سؤال حول Combobox noway 2 48 06-12-16, 04:26 AM
آخر رد: amgad525
  [VB.NET] سؤال كيف يمكن معرفة التغير في قاعدة البيانات وليد الزنتاني 2 116 10-11-16, 01:20 AM
آخر رد: وليد الزنتاني
Lightbulb [VB.NET] سؤال حول التعامل مع الماسح الضوئي salhigc 3 123 02-11-16, 04:15 PM
آخر رد: salhigc
Exclamation [VB.NET] سؤال احتاج مساعده فيه a_abdullah 11 168 25-10-16, 03:20 PM
آخر رد: a_abdullah
  سؤال بسيط في فصل التاريخ عن الوقت فراس صلاح 3 135 19-10-16, 04:17 AM
آخر رد: mhmd_911
  سؤال : عن داتا قريد تقسيم قيمة الى عمودين abid 5 124 13-10-16, 04:40 AM
آخر رد: abid
  سؤال بخصوص طباعة تقرير في فيجوال بيسك 2010 haiderkh 2 103 12-10-16, 08:48 PM
آخر رد: أبو عمر
  [VB.NET] سؤال في الريبورت فيور دمعتز السمان 1 78 08-10-16, 01:52 AM
آخر رد: ابو ليلى
  سؤال عن ربط البرنامج الفيجوال بيسك بالموقع لسه مبتدئ 4 161 06-10-16, 07:13 PM
آخر رد: سعود

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


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