السلام عليكم
سؤالى هو هل يمكن تبديل او مسح حروف من التكست بوكس عندى ليست بوكس به هذا الكلام 1H2o.level of water 50%
2H2o.level of water 40%
3Fe.Weight iron 80
كيف يمكن مسح مثلآ H2o.level of water 50% الناتج يكون 1 H2o.level of water 40% الناتج يكون 2 Fe.Weight iron 80 الناتج يكون 3
يمكنك حذف عنصر في ليست بوكس عبر اسمه او رقمه Index
عبر اسمه : Listbox1.items.remove("Name")
عبر رقمه : Listbox1.items.removeat(0)
العد يبدا من 0
اذا كنت تريد حذف العنصر الاخير تضع بداخل الاقواس مجموعه العناصر - 1
Listbox1.items.count - 1
(20-07-16, 06:56 AM)LoveVb كتب : [ -> ]يمكنك حذف عنصر في ليست بوكس عبر اسمه او رقمه Index
عبر اسمه : Listbox1.items.remove("Name")
عبر رقمه : Listbox1.items.removeat(0)
العد يبدا من 0
اذا كنت تريد حذف العنصر الاخير تضع بداخل الاقواس مجموعه العناصر - 1
Listbox1.items.count - 1
شكرآ اخى تم تعديل العنوان الى تكست بوكس
انا جربت هذه الطريقة
كود :
Dim o As Object = CreateObject("ScriptControl")
o.Language = "VBScript"
Dim a As String = TextBox1.Text.Replace(TextBox1.Text.Substring(3, TextBox1.Text.Length - 3), "")
Dim b As String = a.Replace("H2", "+0")
TextBox2.Text = " مجموع العمليات" & o.Eval(b)
o = Nothing
لاحصل على مجموع العمليات لاكن لا اعلم لماذا لا يحسب الى اخر عملية تم ادخالها يفترض ان يكون المجوع الكلى 6 عمليات
اتمنى التوضيح اكثر
هذا النص سيكون في تكست بوكس 1
H2o.level of water 50%
H2o.level of water 40%
Fe.Weight iron 80
صحيح؟
والناتج في تكست بوكس 2 ماذا سيكون؟
مفهمت كويس شو بتريد بس لو عاوز تغير زي المثال دا رايح ابعثلك السورس
