منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم وكل عام وانتم بخير
السؤال وكما هو موضح من عنوانه كيف اعمل قائمة رقمية في اداة الريتش تيكست
وليس نقطيه كما الكود التالي

(27-08-18, 12:01 PM)معاذ_ابراهيم كتب : [ -> ]السلام عليكم وكل عام وانتم بخير
السؤال وكما هو موضح من عنوانه كيف اعمل قائمة رقمية في اداة الريتش تيكست
وليس نقطيه كما الكود التالي

PHP كود :

RichTextBox1.SelectionBullet = True 


اليك الكود التالى قم بوضعه فى حدث RichTextBox1_KeyDown

السلام عليكم ورحمة الله وبعد
شكرا اخي elgokr هكذا يفكر المبرمج  فالاكواد ليست  قوالب جاهزة  copy ثم paste ينبغي لعقولنا ان تسلك منهج التفكير والتفاعل والبحث لايجاد علاقات صحيحة بين عبارات اللغة البرمجية لتنفيذ فكرة ما وهذا هو السر في البرمجة فالمبرمج الناجح يعمل عقله والمبرمج المعتمد على الغير يعمل نقله وشتان مابين العاقل والناقل بصراحة حاولت ايجاد الكود وفكرت بأن ات بالنقطة واستبدالها برقم عبر جملة تكرار ولم انجح واستفدت  كثيرا رغم فشلي بالنتيجة لانني اعملت عقلي وهنا كان النجاح لانني في مرات اخرى ستكون المهمة اسهل علي بسبب التجربة التي مررت بها اتمنى من الجميع قبل ان يسأل سؤالاً ان يقوم بالتجربة والمحاولة وان لم يحالفه التوفيق (وما التوفيق الا من عند الله) يقوم بعرض مشكلته ومعضلته ليقوم الاخوة في المنتدى مشكورين بتقديم المساعة اتمنى ان يكون هذا نهجنا جميعا لنتعلم وترتقي بالعلم دمتم اخوة غاليين على قلبي ودامت اسرة فيجوال بيسك العرب

(28-08-18, 12:09 AM)elgokr كتب : [ -> ]

(27-08-18, 12:01 PM)معاذ_ابراهيم كتب : [ -> ]السلام عليكم وكل عام وانتم بخير
السؤال وكما هو موضح من عنوانه كيف اعمل قائمة رقمية في اداة الريتش تيكست
وليس نقطيه كما الكود التالي

PHP كود :

RichTextBox1.SelectionBullet = True 


وعليكم السلام ورحمة الله وبركاته

لا اعلم اذا كان متوفر فى هذا الاداء تغيير علامة * الى ارقام او احرف ام لا

لكن حبيت ان انشاء كود للفكرة المطلوب واتمنى ان فكرة الكود ان تنال وان تكون المطلوب تماماً

اليك الكود التالى قم بوضعه فى حدث RichTextBox1_KeyDown

كود :

       Dim ListLine As New List(Of String)(RichTextBox1.Lines)
       For i As Integer = 0 To ListLine.Count - 1
           ListLine(i) = ListLine(i).Replace(i + 1 & "- ", "")
           ListLine(i) = i + 1 & "- " & ListLine(i)
       Next
       RichTextBox1.Lines = ListLine.ToArray
       RichTextBox1.Focus()
       RichTextBox1.SelectionStart = RichTextBox1.TextLength

فبمجرد ما تكتب اى جملة فى السطر ستجد انه يقوم بالترقيم تلقائي

طبعاً يمكنك استغلال الكود والتعديل عليه ليعمل حسب الحاجة

تحياتى لك

وتمنياتى لك التوفيق

(28-08-18, 06:59 AM)ابو روضة كتب : [ -> ]

عبقرى والله ماشاء الله عليك اخى الجوكر...

كان فيه سؤال لو تكرمت 

هو ازاى اخلى يمين الماوس تعمل  وتقوم مثلا بعمل نسخ  او لصق داخل الاداه RichTextBox ؟؟

لآن يمين الماوس لا تعمل اطلاقا داخل هذه الاداة 

(30-08-18, 02:04 PM)elgokr كتب : [ -> ]

هذا من اصلك الطيب اخى ابو روضة

بخصوص الكلك يمين ستحتاج الى عمل اضافة اداء

ContextMenuStrip1

ثم وضع القائمة مثل نسخ ولصق .. الخ وربطها بـ RichTextBox 

وبكده تكون لديك القائمة كلما قمت بعملم كلك يمين

قم بالبحث عن شروحات هذه الاداء وستجد لها الكثير وامرها ابسط مما يكون

فكل التحية لك

وتمنياتى لك التوفيق

(30-08-18, 03:05 PM)ابو روضة كتب : [ -> ]

حمدلله على سلامتك أخى والله كنت لسة فى سيرتك مع اولادى أمس ودعولك اقسم بالله العظيم

(30-08-18, 03:48 PM)elgokr كتب : [ -> ]

(30-08-18, 03:05 PM)ابو روضة كتب : [ -> ]

حمدلله على سلامتك أخى والله كنت لسة فى سيرتك مع اولادى أمس ودعولك اقسم بالله العظيم

الله يسلمك يارب وتسلملى يارب اخى ابو روضة

ولا يحلمك من اولادك ابداً ودائماً تسعدهم ويكون مصدر ساعدتك دائماً

فكل التحية لك

وتمنياتى لك التوفيق