29-11-12, 12:50 PM
السلام عليكم جميعا
هذا الكود الي شي راسي وخلاني مجنون
عندي مشروعين مشروع اجرب عليه والثاني اطبق عليه
طبعا هذا الكود شغال 100%
لكن يشتغل بس في مشروع التجارب ثم اقوم بنسخه ولصقه في المشروع الي اشتغل عليه ولكن الكود لايعمل مع العلم اي شي تقريبا يخص الادوات مايعمل عليه اي كود
شرح الكود
ياخذ نص من متغير
يبدل بعضض الرموز ويخليها فارغه
يبدل رمز ويحط بدلاه سطر
ثم يحط جميع الاسطر الي في التكست بوكس الى ليست بوكس
ومن ثم يحذف العناصر الفارقه
واخيرا يحط عناصر اليست بوكس الي ليست فيو
أرجو المساعده
كود :
TextBox1.Text = imglist
TextBox1.Text = TextBox1.Text.Replace("ttt", "")
TextBox1.Text = TextBox1.Text.Replace("tttt", "")
TextBox1.Text = TextBox1.Text.Replace("tttt", "")
TextBox1.Text = TextBox1.Text.Replace("tttt", "")
TextBox1.Text = TextBox1.Text.Replace("*#*#", vbNewLine)
For Each ll In TextBox1.Lines
listbox1.Items.Add(ll)
Next
For a As Integer = 0 To listbox1.Items.Count - 1
listbox1.Items.Remove("")
Next
For Each i In ListBox1.Items
ListView1.Items.Add(i, 0)
Next
هذا الكود الي شي راسي وخلاني مجنون
عندي مشروعين مشروع اجرب عليه والثاني اطبق عليه
طبعا هذا الكود شغال 100%
لكن يشتغل بس في مشروع التجارب ثم اقوم بنسخه ولصقه في المشروع الي اشتغل عليه ولكن الكود لايعمل مع العلم اي شي تقريبا يخص الادوات مايعمل عليه اي كود
شرح الكود
ياخذ نص من متغير
يبدل بعضض الرموز ويخليها فارغه
يبدل رمز ويحط بدلاه سطر
ثم يحط جميع الاسطر الي في التكست بوكس الى ليست بوكس
ومن ثم يحذف العناصر الفارقه
واخيرا يحط عناصر اليست بوكس الي ليست فيو
أرجو المساعده