[اليوم السابع]

لدي علي الفورم كما هو موضح اعلي اليسار كلمه بوينت وامامها 1000 
وعلي اليسار ليست بوكس وحضرتك ساعدتني في الحصول علي عدد السطور لديه 
اود عند احتساب عدد السطور مثلا 100 سطر يطرح هذه ال100 من 1000 اللتي امام كلمه بوينت حتي تصبح 900 
وهكذا عند احتساب عدد كميه من السطور يتم طرحها من رقم 1000 ويتم تثبيتها حتي وان اغلق البرنامج وفتحه مره اخري لم تتغير القيمه او ترجع 1000 ثانيا

---

(21-10-19, 07:15 PM)اليوم السابع كتب : لدي علي الفورم كما هو موضح اعلي اليسار كلمه بوينت وامامها 1000 
وعلي اليسار ليست بوكس وحضرتك ساعدتني في الحصول علي عدد السطور لديه 
اود عند احتساب عدد السطور مثلا 100 سطر يطرح هذه ال100 من 1000 اللتي امام كلمه بوينت حتي تصبح 900 
وهكذا عند احتساب عدد كميه من السطور يتم طرحها من رقم 1000 ويتم تثبيتها حتي وان اغلق البرنامج وفتحه مره اخري لم تتغير القيمه او ترجع 1000 ثانيا

[quote pid='150712' dateline='1571670952']
لدي علي الفورم كما هو موضح اعلي اليسار كلمه بوينت وامامها 1000 
وعلي اليسار ليست بوكس وحضرتك ساعدتني في الحصول علي عدد السطور لديه 
اود عند احتساب عدد السطور مثلا 100 سطر يطرح هذه ال100 من 1000 اللتي امام كلمه بوينت حتي تصبح 900 
وهكذا عند احتساب عدد كميه من السطور يتم طرحها من رقم 1000 ويتم تثبيتها حتي وان اغلق البرنامج وفتحه مره اخري لم تتغير القيمه او ترجع 1000 ثانيا
[/quote]

[ابراهيم ايبو]

السلام عليكم
اخي ضع هذا الكود في حدث فورم لود

وكذلك في حدث  اضافة سطر جديد

كود :

Label2.Text -= ListBox1.Items.Count()

[3booody]

السلام عليكم ورحمة الله وبركاته
أخي الفاضل اختار عنوان واضح لسؤالك حتى يقوم الاخ ابراهيم او احد الاخوة بمساعدتك
ولو انك بحثت قليلآ لوجدت ماتبحث عنه واتمنالك التوفيق

وان شاء الله هذا الذي تبحث عنه

اولآ قم بالذهاب الىMy Project الموجود على اليمين
واختار Settings الموجوده على اليسار
سوف تظهر لك قاعدة بيانات
الحقل Name اكتب فيه      Point
والحقل Type اختار الكلمة    Integer
والحقل Value اكتب بداخله عدد النقاط ولتكن 1000

وضع زر Button وضع الكود التالي

كود :

Public Class Form1
   Dim p As Integer = My.Settings.Point

   Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       My.Settings.Point = p
       My.Settings.Save()
   End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Label1.Text = "Point : " & p
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       p -= ListBox1.Items.Count
       Label1.Text = "Point : " & p
   End Sub
End Class

[اليوم السابع]

(21-10-19, 07:26 PM)ابراهيم ايبو كتب : السلام عليكم
اخي ضع هذا الكود في حدث فورم لود

وكذلك في حدث  اضافة سطر جديد

كود :

Label2.Text -= ListBox1.Items.Count()

احسنت اخي ابراهيم

---

(21-10-19, 07:55 PM)3booody كتب : السلام عليكم ورحمة الله وبركاته
أخي الفاضل اختار عنوان واضح لسؤالك حتى يقوم الاخ ابراهيم او احد الاخوة بمساعدتك
ولو انك بحثت قليلآ لوجدت ماتبحث عنه واتمنالك التوفيق

وان شاء الله هذا الذي تبحث عنه

اولآ قم بالذهاب الىMy Project الموجود على اليمين
واختار Settings الموجوده على اليسار
سوف تظهر لك قاعدة بيانات
الحقل Name اكتب فيه      Point
والحقل Type اختار الكلمة    Integer
والحقل Value اكتب بداخله عدد النقاط ولتكن 1000

وضع زر Button وضع الكود التالي

كود :

Public Class Form1
   Dim p As Integer = My.Settings.Point

   Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       My.Settings.Point = p
       My.Settings.Save()
   End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Label1.Text = "Point : " & p
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       p -= ListBox1.Items.Count
       Label1.Text = "Point : " & p
   End Sub
End Class

احسنت اخي شرح فوق فوق الممتاز