منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - سؤال اخير للأخ ابراهيم ايبو وارجو ان لن اكون متطفل عليك

لدي علي الفورم كما هو موضح اعلي اليسار كلمه بوينت وامامها 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()

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

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

اولآ قم بالذهاب الى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

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